gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.63, 2009/12/31 15:32:35	version 1.64, 2010/09/13 22:26:16
Line 594 DEFER compile-wrapper-function ( -- )	Line 594 DEFER compile-wrapper-function ( -- )
lib-handle 0= if	lib-handle 0= if
c-source-file close-file throw	c-source-file close-file throw
0 c-source-file-id !	0 c-source-file-id !
[ libtool-command s" --silent --mode=compile " s+	[ libtool-command s" --silent --tag=CC --mode=compile " s+
libtool-cc append s" -I '" append	libtool-cc append s" -I '" append
s" includedir" getenv append s" '" append ] sliteral	s" includedir" getenv append s" '" append ] sliteral
s" -O -c " s+ lib-filename 2@ append s" .c -o " append	s" -O -c " s+ lib-filename 2@ append s" .c -o " append
lib-filename 2@ append s" .lo" append ( c-addr u )	lib-filename 2@ append s" .lo" append ( c-addr u )
\ 2dup type cr	\ 2dup type cr
2dup system drop free throw $? abort" libtool compile failed"	2dup system drop free throw $? abort" libtool compile failed"
[ libtool-command s" --silent --mode=link " s+	[ libtool-command s" --silent --tag=CC --mode=link " s+
libtool-cc append libtool-flags append s" -module -rpath " s+ ] sliteral	libtool-cc append libtool-flags append s" -module -rpath " s+ ] sliteral
lib-filename 2@ dirname replace-rpath s+ s" " append	lib-filename 2@ dirname replace-rpath s+ s" " append
lib-filename 2@ append s" .lo -o " append	lib-filename 2@ append s" .lo -o " append