Return to prim CVS log | Up to [gforth] / gforth |
version 1.254, 2010/08/21 19:08:46 | version 1.255, 2010/08/31 20:10:59 |
---|---|
Line 612 SET_IP((Xt *)a_target); | Line 612 SET_IP((Xt *)a_target); |
cell+ | cell+ |
THEN >r ; | THEN >r ; |
(try1) ( ... a_oldhandler a_recovery -- R:a_recovery R:a_sp R:f_fp R:c_lp R:a_oldhandler a_newhandler ) gforth paren_try1 | |
a_sp = sp-1; | |
f_fp = fp; | |
c_lp = lp; | |
a_newhandler = rp-5; | |
\+ | \+ |
\ don't make any assumptions where the return stack is!! | \ don't make any assumptions where the return stack is!! |