sys/boot/ficl/i386/sysdep.c

   1 /*******************************************************************
   2 ** s y s d e p . c
   3 ** Forth Inspired Command Language
   4 ** Author: John Sadler (john_sadler@alum.mit.edu)
   5 ** Created: 16 Oct 1997
   6 ** Implementations of FICL external interface functions...
   7 **
   8 *******************************************************************/
   9
  10 /* $FreeBSD: src/sys/boot/ficl/i386/sysdep.c,v 1.7 1999/09/29 04:43:07 dcs Exp $ */
  11
  12 #ifdef TESTMAIN
  13 #include <stdio.h>
  14 #include <stdlib.h>
  15 #else
  16 #include <stand.h>
  17 #ifdef __i386__
  18 #include <machine/cpufunc.h>
  19 #endif
  20 #endif
  21 #include "ficl.h"
  22
  23 /*
  24 *******************  FreeBSD  P O R T   B E G I N S   H E R E ******************** Michael Smith
  25 */
  26
  27 #if PORTABLE_LONGMULDIV == 0
  28 DPUNS ficlLongMul(FICL_UNS x, FICL_UNS y)
  29 {
  30     DPUNS q;
  31     u_int64_t qx;
  32
  33     qx = (u_int64_t)x * (u_int64_t) y;
  34
  35     q.hi = (u_int32_t)( qx >> 32 );
  36     q.lo = (u_int32_t)( qx & 0xFFFFFFFFL);
  37
  38     return q;
  39 }
  40
  41 UNSQR ficlLongDiv(DPUNS q, FICL_UNS y)
  42 {
  43     UNSQR result;
  44     u_int64_t qx, qh;
  45
  46     qh = q.hi;
  47     qx = (qh << 32) | q.lo;
  48
  49     result.quot = qx / y;
  50     result.rem  = qx % y;
  51
  52     return result;
  53 }
  54 #endif
  55
  56 void  ficlTextOut(FICL_VM *pVM, char *msg, int fNewline)
  57 {
  58     IGNORE(pVM);
  59
  60     while(*msg != 0)
  61         putchar(*(msg++));
  62     if (fNewline)
  63         putchar('\n');
  64
  65    return;
  66 }
  67
  68 void *ficlMalloc (size_t size)
  69 {
  70     return malloc(size);
  71 }
  72
  73 void *ficlRealloc (void *p, size_t size)
  74 {
  75     return realloc(p, size);
  76 }
  77
  78 void  ficlFree   (void *p)
  79 {
  80     free(p);
  81 }
  82
  83 #ifndef TESTMAIN
  84 #ifdef __i386__
  85 /*
  86  * outb ( port# c -- )
  87  * Store a byte to I/O port number port#
  88  */
  89 void
  90 ficlOutb(FICL_VM *pVM)
  91 {
  92         u_char c;
  93         u_int32_t port;
  94
  95         port=stackPopUNS(pVM->pStack);
  96         c=(u_char)stackPopINT(pVM->pStack);
  97         outb(port,c);
  98 }
  99
 100 /*
 101  * inb ( port# -- c )
 102  * Fetch a byte from I/O port number port#
 103  */
 104 void
 105 ficlInb(FICL_VM *pVM)
 106 {
 107         u_char c;
 108         u_int32_t port;
 109
 110         port=stackPopUNS(pVM->pStack);
 111         c=inb(port);
 112         stackPushINT(pVM->pStack,c);
 113 }
 114 #endif
 115 #endif
 116
 117 /*
 118 ** Stub function for dictionary access control - does nothing
 119 ** by default, user can redefine to guarantee exclusive dict
 120 ** access to a single thread for updates. All dict update code
 121 ** is guaranteed to be bracketed as follows:
 122 ** ficlLockDictionary(TRUE);
 123 ** <code that updates dictionary>
 124 ** ficlLockDictionary(FALSE);
 125 **
 126 ** Returns zero if successful, nonzero if unable to acquire lock
 127 ** befor timeout (optional - could also block forever)
 128 */
 129 #if FICL_MULTITHREAD
 130 int ficlLockDictionary(short fLock)
 131 {
 132         IGNORE(fLock);
 133         return 0;
 134 }
 135 #endif /* FICL_MULTITHREAD */
 136
 137