Diff for /gforth/libcc.fs between versions 1.59 and 1.60

version 1.59, 2009/10/03 21:33:48 version 1.60, 2009/10/17 20:57:33
Line 251  variable c-prefix-lines-end c-prefix-lin Line 251  variable c-prefix-lines-end c-prefix-lin
 : print-c-prefix-lines ( -- )  : print-c-prefix-lines ( -- )
     c-prefix-lines @ ['] print-c-prefix-line list-map ;      c-prefix-lines @ ['] print-c-prefix-line list-map ;
   
   : free-c-prefix-lines ( -- )
       c-prefix-lines @ off  c-prefix-lines @ c-prefix-lines-end ! ;
   
 : save-c-prefix-line ( c-addr u -- )  : save-c-prefix-line ( c-addr u -- )
     c-source-file-id @ ?dup-if      c-source-file-id @ ?dup-if
         >r 2dup r> write-line throw          >r 2dup r> write-line throw
Line 492  create gen-wrapped-types Line 495  create gen-wrapped-types
     lib-filename 2@ s" .c" s+ 2dup w/o create-file throw      lib-filename 2@ s" .c" s+ 2dup w/o create-file throw
     dup c-source-file-id !      dup c-source-file-id !
     ['] print-c-prefix-lines swap outfile-execute      ['] print-c-prefix-lines swap outfile-execute
     drop free throw ;      drop free-c-prefix-lines free throw ;
   
 : c-named-library-name ( c-addr u -- )  : c-named-library-name ( c-addr u -- )
     \ set up filenames for a (possibly new) library; c-addr u is the      \ set up filenames for a (possibly new) library; c-addr u is the

Removed from v.1.59  
changed lines
  Added in v.1.60


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