gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.52, 2008/07/29 09:01:44	version 1.53, 2008/08/09 20:44:03
Line 226 end-struct c-lib%	Line 226 end-struct c-lib%

variable c-libs \ linked list of library names (without "lib")	variable c-libs \ linked list of library names (without "lib")

: add-lib ( c-addr u -- )	: add-lib ( c-addr u -- ) \ gforth
\G Add library lib@i{string} to the list of libraries, where	\G Add library lib@i{string} to the list of libraries, where
\G @i{string} is represented by @i{c-addr u}.	\G @i{string} is represented by @i{c-addr u}.
c-lib% %size allocate throw dup >r	c-lib% %size allocate throw dup >r
Line 614 DEFER compile-wrapper-function ( -- )	Line 614 DEFER compile-wrapper-function ( -- )
defer lastxt dup c-function-rt lastxt c-function-ft	defer lastxt dup c-function-rt lastxt c-function-ft
lastxt swap defer! ;	lastxt swap defer! ;

: clear-libs ( -- )	: clear-libs ( -- ) \ gforth
\G Clear the list of libs	\G Clear the list of libs
c-source-file-id @ if	c-source-file-id @ if
compile-wrapper-function	compile-wrapper-function