diff options
Diffstat (limited to 'foci.c')
| -rw-r--r-- | foci.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -101,7 +101,13 @@ W(colon, ":", &w_align) FTH(here), LIT(0), comma, FTH(latest), comma, poke, comp, END I(semic, ";", &w_colon) LIT(fexit), comma, LIT(&latest), poke, intr, END I(literal, "literal", &w_semic) LIT(push), comma, comma, END -#define LATEST &w_literal +N(b, "_b", &w_literal) { ++pp; pp = (intptr_t **)*pp; NEXT; } +N(bz, "_bz", &w_literal) { ++pp; if (!*sp++) { pp = (intptr_t **)*pp; } NEXT; } +I(fif, "if", &w_b) LIT(bz), comma, FTH(here), LIT(0), comma, END +I(then, "then", &w_fif) FTH(here), LIT(sizeof(intptr_t)), sub, swap, poke, END +I(felse, "else", &w_then) LIT(b), comma, FTH(here), LIT(0), comma, swap, + FTH(here), LIT(sizeof(intptr_t)), sub, swap, poke, END +#define LATEST &w_felse void call(void *ptr) { |