gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.24, 2007/12/04 15:19:59	version 1.25, 2007/12/04 18:57:58
Line 443 DEFER compile-wrapper-function	Line 443 DEFER compile-wrapper-function
:NONAME ( -- )	:NONAME ( -- )
c-source-file close-file throw	c-source-file close-file throw
0 c-source-file-id !	0 c-source-file-id !
[ s" libtool --silent --mode=compile gcc -I "	[ libtool-command s" --silent --mode=compile gcc -I " s+
s" includedir" getenv append ] sliteral	s" includedir" getenv 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 system drop free throw $? abort" libtool compile failed"	2dup system drop free throw $? abort" libtool compile failed"
s" libtool --silent --mode=link gcc -module -rpath " tempdir s+ s" " append
	[ libtool-command s" --silent --mode=link gcc -module -rpath " s+ ] sliteral
	tempdir s+ s" " append
lib-filename 2@ append s" .lo -o " append	lib-filename 2@ append s" .lo -o " append
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"