| version 1.75, Mon Feb 26 15:14:20 2001 UTC | version 1.76, Tue Feb 27 21:17:10 2001 UTC | ||
|---|---|---|---|
|
|
||
| ""Perform the semantics represented by the execution token, @i{xt}."" | ""Perform the semantics represented by the execution token, @i{xt}."" | ||
| ip=IP; | ip=IP; | ||
| IF_spTOS(spTOS = sp[0]); | IF_spTOS(spTOS = sp[0]); | ||
| SUPER_END; | |||
| EXEC(xt); | EXEC(xt); | ||
| perform ( a_addr -- ) gforth | perform ( a_addr -- ) gforth | ||
|
|
||
| /* and pfe */ | /* and pfe */ | ||
| ip=IP; | ip=IP; | ||
| IF_spTOS(spTOS = sp[0]); | IF_spTOS(spTOS = sp[0]); | ||
| SUPER_END; | |||
| EXEC(*(Xt *)a_addr); | EXEC(*(Xt *)a_addr); | ||
| : | : | ||
| @ execute ; | @ execute ; |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |