[gforth] / gforth / libcc.fs  

gforth: gforth/libcc.fs

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

version 1.59, Sat Oct 3 21:33:48 2009 UTC version 1.60, Sat Oct 17 20:57:33 2009 UTC
Line 251 
Line 251 
 : 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 
Line 495 
     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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help