version 1.184, 2005/12/31 15:46:10
|
version 1.185, 2006/01/05 01:37:31
|
Line 1229 useraddr ( #u -- a_addr ) new
|
Line 1229 useraddr ( #u -- a_addr ) new
|
a_addr = (Cell *)(up+u); |
a_addr = (Cell *)(up+u); |
|
|
up! ( a_addr -- ) gforth up_store |
up! ( a_addr -- ) gforth up_store |
UP=up=(char *)a_addr; |
gforth_UP=up=(char *)a_addr; |
: |
: |
up ! ; |
up ! ; |
Variable UP |
Variable UP |
Line 1788 access the stack itself. The stack point
|
Line 1788 access the stack itself. The stack point
|
variables @code{SP} and @code{FP}."" |
variables @code{SP} and @code{FP}."" |
/* This is a first attempt at support for calls to C. This may change in |
/* This is a first attempt at support for calls to C. This may change in |
the future */ |
the future */ |
FP=fp; |
gforth_FP=fp; |
SP=sp; |
gforth_SP=sp; |
((void (*)())w)(); |
((void (*)())w)(); |
sp=SP; |
sp=gforth_SP; |
fp=FP; |
fp=gforth_FP; |
|
|
\+ |
\+ |
\+file |
\+file |
Line 2440 u3 = 0;
|
Line 2440 u3 = 0;
|
#endif |
#endif |
|
|
wcall ( ... u -- ... ) gforth |
wcall ( ... u -- ... ) gforth |
FP=fp; |
gforth_FP=fp; |
sp=(Cell*)(SYSCALL(Cell*(*)(Cell *, void *))u)(sp, &FP); |
sp=(Cell*)(SYSCALL(Cell*(*)(Cell *, void *))u)(sp, &gforth_FP); |
fp=FP; |
fp=gforth_FP; |
|
|
w@ ( a_addr -- u ) gforth wfetch |
w@ ( a_addr -- u ) gforth wfetch |
u = *(UWyde*)(a_addr); |
u = *(UWyde*)(a_addr); |
Line 2565 REST_REGS
|
Line 2565 REST_REGS
|
c_addr = prv; |
c_addr = prv; |
|
|
alloc-callback ( a_ip -- c_addr ) gforth alloc_callback |
alloc-callback ( a_ip -- c_addr ) gforth alloc_callback |
c_addr = (char *)alloc_callback(engine_callback, (Xt *)a_ip); |
c_addr = (char *)alloc_callback(gforth_callback, (Xt *)a_ip); |
|
|
va-start-void ( -- ) gforth va_start_void |
va-start-void ( -- ) gforth va_start_void |
va_start_void(clist); |
va_start_void(clist); |
Line 2662 ffi_call(a_cif, a_ip, a_rvalue, a_avalue
|
Line 2662 ffi_call(a_cif, a_ip, a_rvalue, a_avalue
|
REST_REGS |
REST_REGS |
|
|
ffi-prep-closure ( a_ip a_cif a_closure -- w ) gforth ffi_prep_closure |
ffi-prep-closure ( a_ip a_cif a_closure -- w ) gforth ffi_prep_closure |
w = ffi_prep_closure(a_closure, a_cif, ffi_callback, a_ip); |
w = ffi_prep_closure(a_closure, a_cif, gforth_callback, a_ip); |
|
|
ffi-2@ ( a_addr -- d ) gforth ffi_2fetch |
ffi-2@ ( a_addr -- d ) gforth ffi_2fetch |
#ifdef BUGGY_LONG_LONG |
#ifdef BUGGY_LONG_LONG |