gforth/libcc.fs.in - diff

Return to libcc.fs.in CVS log

Up to [gforth] / gforth

version 1.2, 2008/07/13 23:53:08	version 1.3, 2008/07/13 23:54:15
Line 558 DEFER compile-wrapper-function ( -- )	Line 558 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	\ 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 '@CC@' -module -rpath " s+ ] sliteral	[ libtool-command s" --silent --mode=link '@CC@' -module -rpath " s+ ] sliteral
lib-filename 2@ dirname s+ s" " append	lib-filename 2@ dirname 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 )
c-libs @ ['] append-l list-map	c-libs @ ['] append-l list-map
2dup type cr	\ 2dup type cr
2dup system drop free throw $? abort" libtool link failed"	2dup system drop free throw $? abort" libtool link failed"
open-wrappers dup 0= if	open-wrappers dup 0= if
.lib-error true abort" open-lib failed"	.lib-error true abort" open-lib failed"