version 1.17, 2007/12/31 19:02:24
|
version 1.18, 2010/04/05 22:17:56
|
Line 32 vocabulary assembler ( -- ) \ tools-ext
|
Line 32 vocabulary assembler ( -- ) \ tools-ext
|
here >body cfa, |
here >body cfa, |
defstart init-asm ; |
defstart init-asm ; |
|
|
|
: abi-code ( "name" -- colon-sys ) \ gforth |
|
\ start a native code definition that is called using the platform's |
|
\ ABI conventions corresponding to C-prototype |
|
\ struct{Cell*sp;double*fp;} function (Cell *sp, double *fp); |
|
header |
|
doabicode: cfa, |
|
defstart init-asm ; |
|
|
: (;code) ( -- ) \ gforth |
: (;code) ( -- ) \ gforth |
\ execution semantics of @code{;code} |
\ execution semantics of @code{;code} |
r> latestxt code-address! ; |
r> latestxt code-address! ; |