gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.20, 2007/06/09 15:55:44	version 1.21, 2007/07/21 18:18:20
Line 430 create gen-wrapped-types	Line 430 create gen-wrapped-types
: c-source-file ( -- file-id )	: c-source-file ( -- file-id )
c-source-file-id @ assert( dup ) ;	c-source-file-id @ assert( dup ) ;

: compile-wrapper-function ( -- )	DEFER compile-wrapper-function
	:NONAME ( -- )
c-source-file close-file throw	c-source-file close-file throw
0 c-source-file-id !	0 c-source-file-id !
s" gcc -fPIC -shared -Wl,-soname," lib-filename 2@ s+	s" gcc -fPIC -shared -Wl,-soname," lib-filename 2@ s+
Line 444 create gen-wrapped-types	Line 445 create gen-wrapped-types
( lib-handle ) lib-handle-addr @ !	( lib-handle ) lib-handle-addr @ !
2dup delete-file throw drop free throw	2dup delete-file throw drop free throw
lib-filename 2@ s" .c" s+ 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! ; IS compile-wrapper-function
\ s" ar rcs xxx.a xxx.o" system	\ s" ar rcs xxx.a xxx.o" system
\ $? abort" ar generated error" ;	\ $? abort" ar generated error" ;