Diff for /gforth/libcc.fs between versions 1.40 and 1.41

version 1.40, 2008/07/10 16:18:41 version 1.41, 2008/07/10 19:59:41
Line 469  create gen-wrapped-types Line 469  create gen-wrapped-types
     0 <<# ['] #s $10 base-execute #>       0 <<# ['] #s $10 base-execute #> 
     s" gforth_c_" 2swap s+ #>> ;      s" gforth_c_" 2swap s+ #>> ;
   
 : home-dir ( -- c-addr u )  
     s" HOME" getenv ;  
   
 : libcc-named-dir ( -- c-addr u )  : libcc-named-dir ( -- c-addr u )
     home-dir s" /.gforth/libcc-named/" s+ ;      s" ~/.gforth/libcc-named/" ;
   
 : libcc-tmp-dir ( -- c-addr u )  : libcc-tmp-dir ( -- c-addr u )
     home-dir s" /.gforth/libcc-tmp/" s+ ;      s" ~/.gforth/libcc-tmp/" ;
   
 : prepend-dirname ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 )  : prepend-dirname ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 )
     2over append 2swap drop free throw ;      2over s+ 2swap drop free throw ;
   
 : c-library-name-setup ( c-addr u -- )  : c-library-name-setup ( c-addr u -- )
     assert( c-source-file-id @ 0= )      assert( c-source-file-id @ 0= )

Removed from v.1.40  
changed lines
  Added in v.1.41


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