Return to fi2c.fs CVS log | Up to [gforth] / gforth |
version 1.18, 2007/03/25 21:30:59 | version 1.19, 2007/03/31 12:58:07 |
---|---|
Line 82 s" NULL" groups @ cell+ $! | Line 82 s" NULL" groups @ cell+ $! |
IF | IF |
11 /string $has? 0= IF r@ scan-ifs THEN | 11 /string $has? 0= IF r@ scan-ifs THEN |
ELSE 2dup s" #else" prefix? | ELSE 2dup s" #else" prefix? |
IF r@ scan-ifs | IF 2drop r@ scan-ifs |
ELSE 2dup s" GROUP(" prefix? | ELSE 2dup s" GROUP(" prefix? |
IF 2drop drop 1+ 0 ELSE | IF 2drop drop 1+ 0 ELSE |
2dup s" INST_ADDR(" prefix? | 2dup s" INST_ADDR(" prefix? |