Remove arch-alpha variable.
[dragonfly.git] / sys / boot / ficl / alpha / 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 /*
11  * $FreeBSD: src/sys/boot/ficl/alpha/sysdep.c,v 1.8 2000/06/02 20:07:55 dcs Exp $
12  * $DragonFly: src/sys/boot/ficl/alpha/Attic/sysdep.c,v 1.3 2003/11/10 06:08:33 dillon Exp $
13  */
14
15 #ifdef TESTMAIN
16 #include <stdio.h>
17 #include <stdlib.h>
18 #else
19 #include <stand.h>
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
84 /*
85 ** Stub function for dictionary access control - does nothing
86 ** by default, user can redefine to guarantee exclusive dict
87 ** access to a single thread for updates. All dict update code
88 ** is guaranteed to be bracketed as follows:
89 ** ficlLockDictionary(TRUE);
90 ** <code that updates dictionary>
91 ** ficlLockDictionary(FALSE);
92 **
93 ** Returns zero if successful, nonzero if unable to acquire lock
94 ** befor timeout (optional - could also block forever)
95 */
96 #if FICL_MULTITHREAD
97 int ficlLockDictionary(short fLock)
98 {
99         IGNORE(fLock);
100         return 0;
101 }
102 #endif /* FICL_MULTITHREAD */
103
104