gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.35, 2008/06/17 18:46:04	version 1.36, 2008/06/17 20:18:11
Line 440 create gen-wrapped-types	Line 440 create gen-wrapped-types
endif	endif
.\" }\n" ;	.\" }\n" ;

	: open-wrappers ( -- addr )
	lib-filename 2@ s" .la" s+
	2dup open-lib >r
	drop free throw r> ;

: tempdir ( -- c-addr u )	: tempdir ( -- c-addr u )
s" TMPDIR" getenv dup 0= if	s" TMPDIR" getenv dup 0= if
2drop s" /tmp"	2drop s" /tmp"
Line 496 DEFER compile-wrapper-function ( -- )	Line 501 DEFER compile-wrapper-function ( -- )
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+	open-wrappers
\ 2dup type cr	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
( lib-handle ) lib-handle-addr @ !	( lib-handle ) lib-handle-addr @ !
2dup delete-file throw drop free throw
lib-filename 2@ s" .c" s+ 2dup delete-file throw drop free throw
lib-filename 2@ drop free throw 0 0 lib-filename 2! ;	lib-filename 2@ drop free throw 0 0 lib-filename 2! ;
' compile-wrapper-function1 IS compile-wrapper-function	' compile-wrapper-function1 IS compile-wrapper-function
\ s" ar rcs xxx.a xxx.o" system	\ s" ar rcs xxx.a xxx.o" system