version 1.172, 2005/07/28 19:15:00
|
version 1.174, 2005/08/02 12:00:51
|
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 417 INST_TAIL;
|
Line 417 INST_TAIL;
|
JUMP(a_target); |
JUMP(a_target); |
#else |
#else |
SET_IP((Xt *)a_target); |
SET_IP((Xt *)a_target); |
INST_TAIL; NEXT_P2; |
|
#endif |
#endif |
} |
} else { |
sp--; |
sp--; |
sp[0]=f; |
sp[0]=f; |
SUPER_CONTINUE; |
} |
|
|
?dup-0=-?branch ( #a_target f -- S:... ) new question_dupe_zero_equals_question_branch |
?dup-0=-?branch ( #a_target f -- S:... ) new question_dupe_zero_equals_question_branch |
""The run-time procedure compiled by @code{?DUP-0=-IF}."" |
""The run-time procedure compiled by @code{?DUP-0=-IF}."" |
Line 433 if (f!=0) {
|
Line 432 if (f!=0) {
|
JUMP(a_target); |
JUMP(a_target); |
#else |
#else |
SET_IP((Xt *)a_target); |
SET_IP((Xt *)a_target); |
NEXT; |
|
#endif |
#endif |
} |
} |
SUPER_CONTINUE; |
|
|
|
\+ |
\+ |
\fhas? skiploopprims 0= [IF] |
\fhas? skiploopprims 0= [IF] |
Line 2491 av_longlong(alist, d);
|
Line 2488 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 2522 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 2688 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 |