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 |