[gforth] / gforth / libcc.fs  

gforth: gforth/libcc.fs

Diff for /gforth/libcc.fs between version 1.35 and 1.36

version 1.35, Tue Jun 17 18:46:04 2008 UTC version 1.36, Tue Jun 17 20:18:11 2008 UTC
Line 440 
Line 440 
     endif      endif
     .\" }\n" ;      .\" }\n" ;
   
   : open-wrappers ( -- addr )
       lib-filename 2@ s" .la" s+
       2dup open-lib >r
       drop free throw r> ;
   
 : tempdir ( -- c-addr u )  : tempdir ( -- c-addr u )
     s" TMPDIR" getenv dup 0= if      s" TMPDIR" getenv dup 0= if
         2drop s" /tmp"          2drop s" /tmp"
Line 496 
Line 501 
     c-libs @ ['] append-l list-map      c-libs @ ['] append-l list-map
 \    2dup type cr  \    2dup type cr
     2dup system drop free throw $? abort" libtool link failed"      2dup system drop free throw $? abort" libtool link failed"
     lib-filename 2@ s" .la" s+      open-wrappers
 \    2dup type cr      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
     ( lib-handle ) lib-handle-addr @ !      ( lib-handle ) lib-handle-addr @ !
     2dup delete-file throw drop free throw  
     lib-filename 2@ s" .c" s+ 2dup delete-file throw drop free throw  
     lib-filename 2@ drop free throw 0 0 lib-filename 2! ;      lib-filename 2@ drop free throw 0 0 lib-filename 2! ;
 ' compile-wrapper-function1 IS compile-wrapper-function  ' compile-wrapper-function1 IS compile-wrapper-function
 \    s" ar rcs xxx.a xxx.o" system  \    s" ar rcs xxx.a xxx.o" system

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help