version 1.162, 2005/01/25 22:16:29
|
version 1.163, 2005/01/26 21:24:15
|
Line 249 execute ( xt -- ) core
|
Line 249 execute ( xt -- ) core
|
#ifndef NO_IP |
#ifndef NO_IP |
ip=IP; |
ip=IP; |
#endif |
#endif |
IF_spTOS(spTOS = sp[0]); /* inst_tail would produce a NEXT_P1 */ |
/* IF_spTOS(spTOS = sp[0]); /* inst_tail would produce a NEXT_P1 */ |
SUPER_END; |
SUPER_END; |
VM_JUMP(EXEC1(xt)); |
VM_JUMP(EXEC1(xt)); |
|
|
Line 259 perform ( a_addr -- ) gforth
|
Line 259 perform ( a_addr -- ) gforth
|
#ifndef NO_IP |
#ifndef NO_IP |
ip=IP; |
ip=IP; |
#endif |
#endif |
IF_spTOS(spTOS = sp[0]); /* inst_tail would produce a NEXT_P1 */ |
/* IF_spTOS(spTOS = sp[0]); /* inst_tail would produce a NEXT_P1 */ |
SUPER_END; |
SUPER_END; |
VM_JUMP(EXEC1(*(Xt *)a_addr)); |
VM_JUMP(EXEC1(*(Xt *)a_addr)); |
: |
: |