gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/libcc.fs between versions 1.30 and 1.32

version 1.30, 2008/02/12 20:28:51	version 1.32, 2008/04/25 22:17:17
Line 444 create gen-wrapped-types	Line 444 create gen-wrapped-types
: .lib-error ( -- )	: .lib-error ( -- )
[ifdef] lib-error	[ifdef] lib-error
['] cr stderr outfile-execute	['] cr stderr outfile-execute
lib-error ['] type outfile-execute	lib-error ['] type stderr outfile-execute
[then] ;	[then] ;

DEFER compile-wrapper-function	DEFER compile-wrapper-function
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
Line 462 DEFER compile-wrapper-function	Line 463 DEFER compile-wrapper-function
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"
lib-filename 2@ s" .la" s+	lib-filename 2@ s" .la" s+
	\ 2dup type cr
2dup open-lib dup 0= if	2dup open-lib dup 0= if
.lib-error true abort" open-lib failed"	.lib-error true abort" open-lib failed"
endif	endif

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.30
changed lines
	Added in v.1.32