Diff for /gforth/fi2c.fs between versions 1.18 and 1.20

version 1.18, 2007/03/25 21:30:59 version 1.20, 2007/04/09 22:36:01
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?
Line 199  Variable bitmap-chars Line 199  Variable bitmap-chars
   
 : fi2c ( addr u -- )  base @ >r hex  : fi2c ( addr u -- )  base @ >r hex
     read-image      read-image
     ." static void* image[" .imagesize ." ] = {" cr .image ." };" cr      \    .\" const static __attribute__ ((__section__ (\".rodata\"))) void* image[" .imagesize ." ] = {" cr .image ." };" cr
       .\" static void* image[" .imagesize ." ] = {" cr .image ." };" cr
     ." #ifdef USE_RELOC" cr      ." #ifdef USE_RELOC" cr
     ." const char reloc_bits[" .relocsize ." ] = {" cr .reloc ." };" cr      ." const char reloc_bits[" .relocsize ." ] = {" cr .reloc ." };" cr
     ." #endif" cr      ." #endif" cr

Removed from v.1.18  
changed lines
  Added in v.1.20


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>