Diff for /gforth/libcc.fs between versions 1.42 and 1.43

version 1.42, 2008/07/10 21:11:57 version 1.43, 2008/07/12 20:14:26
Line 463  create gen-wrapped-types Line 463  create gen-wrapped-types
     0 <<# ['] #s $10 base-execute #>       0 <<# ['] #s $10 base-execute #> 
     s" gforth_c_" 2swap s+ #>> ;      s" gforth_c_" 2swap s+ #>> ;
   
   2variable libcc-named-dir-v
   
 : libcc-named-dir ( -- c-addr u )  : libcc-named-dir ( -- c-addr u )
     s" ~/.gforth/libcc-named/" ;      libcc-named-dir-v 2@ ;
   
 : libcc-tmp-dir ( -- c-addr u )  : libcc-tmp-dir ( -- c-addr u )
     s" ~/.gforth/libcc-tmp/" ;      s" ~/.gforth/libcc-tmp/" ;
Line 473  create gen-wrapped-types Line 475  create gen-wrapped-types
     2over s+ 2swap drop free throw ;      2over s+ 2swap drop free throw ;
   
 0 value libcc-path  0 value libcc-path
 here 1024 dup , 0 , allot to libcc-path \ !! the path words should grow buffers dynamically  
 libcc-path clear-path  
 libcc-named-dir libcc-path also-path  
 \ !! setup path on boot  
   
 : open-wrappers ( -- addr|0 )  : open-wrappers ( -- addr|0 )
     lib-filename 2@ s" .la" s+      lib-filename 2@ s" .la" s+
Line 642  clear-libs Line 640  clear-libs
 \G Finish and (if necessary) build the latest C library interface.  \G Finish and (if necessary) build the latest C library interface.
     ['] compile-wrapper-function1 is compile-wrapper-function      ['] compile-wrapper-function1 is compile-wrapper-function
     compile-wrapper-function1 ;      compile-wrapper-function1 ;
   
   : init-libcc ( -- )
       s" ~/.gforth/libcc-named/" libcc-named-dir-v 2!
       make-path to libcc-path
       libcc-named-dir libcc-path also-path
       [ s" libccdir" getenv ] sliteral libcc-path also-path
   ;
   
   init-libcc
   
   :noname ( -- )
       defers 'cold
       init-libcc ;
   is 'cold

Removed from v.1.42  
changed lines
  Added in v.1.43


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