xref: /freebsd/stand/ficl/aarch64/sysdep.c (revision a0b9e2e854027e6ff61fb075a1309dbc71c42b54)
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$ */
11 
12 #ifdef TESTMAIN
13 #include <stdio.h>
14 #include <stdlib.h>
15 #else
16 #include <stand.h>
17 #endif
18 #include "ficl.h"
19 
20 /*
21 *******************  FreeBSD  P O R T   B E G I N S   H E R E ******************** Michael Smith
22 */
23 
24 #if PORTABLE_LONGMULDIV == 0
25 DPUNS ficlLongMul(FICL_UNS x, FICL_UNS y)
26 {
27     DPUNS q;
28     uint64_t qx;
29 
30     qx = (uint64_t)x * (uint64_t) y;
31 
32     q.hi = (uint32_t)( qx >> 32 );
33     q.lo = (uint32_t)( qx & 0xFFFFFFFFL);
34 
35     return q;
36 }
37 
38 UNSQR ficlLongDiv(DPUNS q, FICL_UNS y)
39 {
40     UNSQR result;
41     uint64_t qx, qh;
42 
43     qh = q.hi;
44     qx = (qh << 32) | q.lo;
45 
46     result.quot = qx / y;
47     result.rem  = qx % y;
48 
49     return result;
50 }
51 #endif
52 
53 void  ficlTextOut(FICL_VM *pVM, char *msg, int fNewline)
54 {
55     IGNORE(pVM);
56 
57     while(*msg != 0)
58 	putchar(*(msg++));
59     if (fNewline)
60 	putchar('\n');
61 
62    return;
63 }
64 
65 void *ficlMalloc (size_t size)
66 {
67     return malloc(size);
68 }
69 
70 void *ficlRealloc (void *p, size_t size)
71 {
72     return realloc(p, size);
73 }
74 
75 void  ficlFree   (void *p)
76 {
77     free(p);
78 }
79 
80 
81 /*
82 ** Stub function for dictionary access control - does nothing
83 ** by default, user can redefine to guarantee exclusive dict
84 ** access to a single thread for updates. All dict update code
85 ** is guaranteed to be bracketed as follows:
86 ** ficlLockDictionary(TRUE);
87 ** <code that updates dictionary>
88 ** ficlLockDictionary(FALSE);
89 **
90 ** Returns zero if successful, nonzero if unable to acquire lock
91 ** befor timeout (optional - could also block forever)
92 */
93 #if FICL_MULTITHREAD
94 int ficlLockDictionary(short fLock)
95 {
96 	IGNORE(fLock);
97 	return 0;
98 }
99 #endif /* FICL_MULTITHREAD */
100