version 1.19, 2010/04/06 21:33:44
|
version 1.20, 2010/04/10 14:36:34
|
Line 27 vocabulary assembler ( -- ) \ tools-ext
|
Line 27 vocabulary assembler ( -- ) \ tools-ext
|
also assembler ; |
also assembler ; |
|
|
: code ( "name" -- colon-sys ) \ tools-ext |
: code ( "name" -- colon-sys ) \ tools-ext |
\ start a native code definition |
\G start a native code definition |
header |
header |
here >body cfa, |
here >body cfa, |
defstart init-asm ; |
defstart init-asm ; |
|
|
[ifdef] doabicode: |
[ifdef] doabicode: |
: abi-code ( "name" -- colon-sys ) \ gforth |
: abi-code ( "name" -- colon-sys ) \ gforth abi_code |
\ start a native code definition that is called using the platform's |
\G Start a native code definition that is called using the platform's |
\ ABI conventions corresponding to C-prototype |
\G ABI conventions corresponding to the C-prototype: |
\ struct{Cell*sp;double*fp;} function (Cell *sp, double *fp); |
\G @example |
|
\G struct@{Cell*sp;double*fp;@} function (Cell *sp, double *fp); |
|
\G @end example |
header |
header |
doabicode: cfa, |
doabicode: cfa, |
defstart init-asm ; |
defstart init-asm ; |
Line 56 vocabulary assembler ( -- ) \ tools-ext
|
Line 58 vocabulary assembler ( -- ) \ tools-ext
|
interpret/compile: ;code ( compilation. colon-sys1 -- colon-sys2 ) \ tools-ext semicolon-code |
interpret/compile: ;code ( compilation. colon-sys1 -- colon-sys2 ) \ tools-ext semicolon-code |
|
|
: end-code ( colon-sys -- ) \ gforth end_code |
: end-code ( colon-sys -- ) \ gforth end_code |
( end a code definition ) |
\G end a code definition |
latestxt here over - flush-icache |
latestxt here over - flush-icache |
previous ?struc reveal ; |
previous ?struc reveal ; |
|
|