[gforth] / gforth / fi2c.fs  

gforth: gforth/fi2c.fs

Diff for /gforth/fi2c.fs between version 1.18 and 1.19

version 1.18, Sun Mar 25 21:30:59 2007 UTC version 1.19, Sat Mar 31 12:58:07 2007 UTC
Line 82 
Line 82 
             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?

Generate output suitable for use with a patch program
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help