version 1.50, 2008/07/15 16:11:49
|
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 |