version 1.172, 2005/07/28 19:15:00
|
version 1.173, 2005/07/31 20:27:41
|
Line 140
|
Line 140
|
|
|
\ Stack caching setup |
\ Stack caching setup |
|
|
ifdef(`M4_ENGINE_FAST', `include(cache1.vmg)', `include(cache0.vmg)') |
ifdef(`STACK_CACHE_FILE', `include(STACK_CACHE_FILE)', `include(cache0.vmg)') |
|
|
\ these m4 macros would collide with identifiers |
\ these m4 macros would collide with identifiers |
undefine(`index') |
undefine(`index') |
Line 2491 av_longlong(alist, d);
|
Line 2491 av_longlong(alist, d);
|
av-ptr-r ( R:c_addr -- ) gforth av_ptr_r |
av-ptr-r ( R:c_addr -- ) gforth av_ptr_r |
av_ptr(alist, void*, c_addr); |
av_ptr(alist, void*, c_addr); |
|
|
av-call-void ( -- ) gforth av_call_void |
av-call-void ( ... -- ... ) gforth av_call_void |
SAVE_REGS |
SAVE_REGS |
av_call(alist); |
av_call(alist); |
REST_REGS |
REST_REGS |
|
|
av-call-int ( -- w ) gforth av_call_int |
av-call-int ( ... -- ... w ) gforth av_call_int |
SAVE_REGS |
SAVE_REGS |
av_call(alist); |
av_call(alist); |
REST_REGS |
REST_REGS |
w = irv; |
w = irv; |
|
|
av-call-float ( -- r ) gforth av_call_float |
av-call-float ( ... -- ... r ) gforth av_call_float |
SAVE_REGS |
SAVE_REGS |
av_call(alist); |
av_call(alist); |
REST_REGS |
REST_REGS |
r = frv; |
r = frv; |
|
|
av-call-double ( -- r ) gforth av_call_double |
av-call-double ( ... -- ... r ) gforth av_call_double |
SAVE_REGS |
SAVE_REGS |
av_call(alist); |
av_call(alist); |
REST_REGS |
REST_REGS |
r = drv; |
r = drv; |
|
|
av-call-longlong ( -- d ) gforth av_call_longlong |
av-call-longlong ( ... -- ... d ) gforth av_call_longlong |
SAVE_REGS |
SAVE_REGS |
av_call(alist); |
av_call(alist); |
REST_REGS |
REST_REGS |
Line 2525 DHI_IS(d, 0);
|
Line 2525 DHI_IS(d, 0);
|
d = llrv; |
d = llrv; |
#endif |
#endif |
|
|
av-call-ptr ( -- c_addr ) gforth av_call_ptr |
av-call-ptr ( ... -- ... c_addr ) gforth av_call_ptr |
SAVE_REGS |
SAVE_REGS |
av_call(alist); |
av_call(alist); |
REST_REGS |
REST_REGS |
Line 2691 a_addr = groups;
|
Line 2691 a_addr = groups;
|
|
|
\g static_super |
\g static_super |
|
|
ifdef(`M4_ENGINE_FAST', |
ifdef(`STACK_CACHE_FILE', |
`include(peeprules.vmg)') |
`include(peeprules.vmg)') |
|
|
\g end |
\g end |