gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.33, 2008/04/28 08:42:59	version 1.34, 2008/04/29 20:03:40
Line 481 DEFER compile-wrapper-function ( -- )	Line 481 DEFER compile-wrapper-function ( -- )
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"
lib-filename 2@ s" .la" s+	lib-filename 2@ s" .la" s+
\ 2dup type cr	\ 2dup type cr