version 1.8, 1998/06/04 16:17:41
|
version 1.9, 1998/07/05 20:50:00
|
Line 2004 define(argclist,
|
Line 2004 define(argclist,
|
\ icall(argnum) |
\ icall(argnum) |
define(icall, |
define(icall, |
`icall$1 argflist($1)u -- uret gforth |
`icall$1 argflist($1)u -- uret gforth |
uret = ((Cell(*)(argdlist($1)))u)(argclist($1)); |
uret = (SYSCALL(Cell(*)(argdlist($1)))u)(argclist($1)); |
|
|
') |
') |
define(fcall, |
define(fcall, |
`fcall$1 argflist($1)u -- rret gforth |
`fcall$1 argflist($1)u -- rret gforth |
rret = ((Float(*)(argdlist($1)))u)(argclist($1)); |
rret = (SYSCALL(Float(*)(argdlist($1)))u)(argclist($1)); |
|
|
') |
') |
|
|