| version 1.87, Tue Dec 25 16:55:10 2001 UTC | version 1.88, Fri Jan 4 20:31:53 2002 UTC | ||
|---|---|---|---|
|
|
||
| call ( #a_callee -- R:a_retaddr ) new | call ( #a_callee -- R:a_retaddr ) new | ||
| ""Call callee (a variant of docol with inline argument)."" | ""Call callee (a variant of docol with inline argument)."" | ||
| #ifdef DEBUG | |||
| { | |||
| CFA_TO_NAME((((Cell *)a_callee)-2)); | |||
| fprintf(stderr,"%08lx: call %08lx %.*s\n",(Cell)ip,(Cell)a_callee, | |||
| len,name); | |||
| } | |||
| #endif | |||
| a_retaddr = (Cell *)IP; | a_retaddr = (Cell *)IP; | ||
| SET_IP((Xt *)a_callee); | SET_IP((Xt *)a_callee); | ||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |