![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to forth.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
Return to forth.h CVS log | Up to [gforth] / gforth / engine |
| version 1.42, 2003/01/07 22:38:36 | version 1.43, 2003/01/08 10:25:34 |
|---|---|
| Line 157 typedef Label *Xt; | Line 157 typedef Label *Xt; |
| #define DOES_CODE(cfa) ({Xt _cfa=(Xt)(cfa); \ | |
| (Xt *)(_cfa[0]==DOES_CA ? _cfa[1] : NULL);}) | |
| #define DOES_CODE1(cfa) ((Xt *)(cfa[1])) | #define DOES_CODE1(cfa) ((Xt *)(cfa[1])) |
| /* MAKE_CF creates an appropriate code field at the cfa; | /* MAKE_CF creates an appropriate code field at the cfa; |
| ca is the code address */ | ca is the code address */ |