gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.31, 2008/04/19 19:15:14	version 1.32, 2008/04/25 22:17:17
Line 455 DEFER compile-wrapper-function	Line 455 DEFER compile-wrapper-function
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 )
	\ cr 2dup type
2dup system drop free throw $? abort" libtool compile failed"	2dup system drop free throw $? abort" libtool compile failed"
[ libtool-command s" --silent --mode=link gcc -module -rpath " s+ ] sliteral	[ libtool-command s" --silent --mode=link gcc -module -rpath " s+ ] sliteral
tempdir s+ s" " append	tempdir s+ s" " append