[gforth] / gforth / libcc.fs  

gforth: gforth/libcc.fs

Diff for /gforth/libcc.fs between version 1.30 and 1.31

version 1.30, Tue Feb 12 20:28:51 2008 UTC version 1.31, Sat Apr 19 19:15:14 2008 UTC
Line 444 
Line 444 
 : .lib-error ( -- )  : .lib-error ( -- )
     [ifdef] lib-error      [ifdef] lib-error
         ['] cr stderr outfile-execute          ['] cr stderr outfile-execute
         lib-error ['] type outfile-execute          lib-error ['] type stderr outfile-execute
     [then] ;      [then] ;
   
 DEFER compile-wrapper-function  DEFER compile-wrapper-function
Line 462 
Line 462 
     lib-filename 2@ append s" .la" append ( c-addr u )      lib-filename 2@ append s" .la" append ( c-addr u )
     2dup system drop free throw $? abort" libtool link failed"      2dup system drop free throw $? abort" libtool link failed"
     lib-filename 2@ s" .la" s+      lib-filename 2@ s" .la" s+
   \    2dup type cr
     2dup open-lib dup 0= if      2dup open-lib dup 0= if
         .lib-error true abort" open-lib failed"          .lib-error true abort" open-lib failed"
     endif      endif

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help