Deleted Added
sdiff udiff text old ( 42679 ) new ( 43078 )
full compact
sysdep.c (42679) sysdep.c (43078)
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*******************************************************************/

--- 52 unchanged lines hidden (view full) ---

61 return;
62}
63
64void *ficlMalloc (size_t size)
65{
66 return malloc(size);
67}
68
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*******************************************************************/

--- 52 unchanged lines hidden (view full) ---

61 return;
62}
63
64void *ficlMalloc (size_t size)
65{
66 return malloc(size);
67}
68
69void *ficlRealloc (void *p, size_t size)
70{
71 return realloc(p, size);
72}
73
69void ficlFree (void *p)
70{
71 free(p);
72}
73
74void ficlFree (void *p)
75{
76 free(p);
77}
78
79#ifndef TESTMAIN
74#ifdef __i386__
75/*
76 * outb ( port# c -- )
77 * Store a byte to I/O port number port#
78 */
79void
80ficlOutb(FICL_VM *pVM)
81{

--- 15 unchanged lines hidden (view full) ---

97 u_char c;
98 u_int32_t port;
99
100 port=stackPopUNS32(pVM->pStack);
101 c=inb(port);
102 stackPushINT32(pVM->pStack,c);
103}
104#endif
80#ifdef __i386__
81/*
82 * outb ( port# c -- )
83 * Store a byte to I/O port number port#
84 */
85void
86ficlOutb(FICL_VM *pVM)
87{

--- 15 unchanged lines hidden (view full) ---

103 u_char c;
104 u_int32_t port;
105
106 port=stackPopUNS32(pVM->pStack);
107 c=inb(port);
108 stackPushINT32(pVM->pStack,c);
109}
110#endif
111#endif
105
106/*
107** Stub function for dictionary access control - does nothing
108** by default, user can redefine to guarantee exclusive dict
109** access to a single thread for updates. All dict update code
110** is guaranteed to be bracketed as follows:
111** ficlLockDictionary(TRUE);
112** <code that updates dictionary>

--- 14 unchanged lines hidden --- 		112
113/*
114** Stub function for dictionary access control - does nothing
115** by default, user can redefine to guarantee exclusive dict
116** access to a single thread for updates. All dict update code
117** is guaranteed to be bracketed as follows:
118** ficlLockDictionary(TRUE);
119** <code that updates dictionary>

--- 14 unchanged lines hidden ---