version 1.18, 2010/04/05 22:17:56
|
version 1.19, 2010/04/06 21:33:44
|
Line 32 vocabulary assembler ( -- ) \ tools-ext
|
Line 32 vocabulary assembler ( -- ) \ tools-ext
|
here >body cfa, |
here >body cfa, |
defstart init-asm ; |
defstart init-asm ; |
|
|
|
[ifdef] doabicode: |
: abi-code ( "name" -- colon-sys ) \ gforth |
: abi-code ( "name" -- colon-sys ) \ gforth |
\ start a native code definition that is called using the platform's |
\ start a native code definition that is called using the platform's |
\ ABI conventions corresponding to C-prototype |
\ ABI conventions corresponding to C-prototype |
Line 39 vocabulary assembler ( -- ) \ tools-ext
|
Line 40 vocabulary assembler ( -- ) \ tools-ext
|
header |
header |
doabicode: cfa, |
doabicode: cfa, |
defstart init-asm ; |
defstart init-asm ; |
|
[endif] |
|
|
: (;code) ( -- ) \ gforth |
: (;code) ( -- ) \ gforth |
\ execution semantics of @code{;code} |
\ execution semantics of @code{;code} |