version 1.64, 2004/08/26 15:50:44
|
version 1.65, 2004/08/27 15:53:51
|
Line 263 has? peephole [IF]
|
Line 263 has? peephole [IF]
|
: !does ( addr -- ) \ gforth store-does |
: !does ( addr -- ) \ gforth store-does |
latestxt does-code! ; |
latestxt does-code! ; |
|
|
|
\ !! unused, but ifdefed/gosted in some places |
: (does>) ( R: addr -- ) |
: (does>) ( R: addr -- ) |
r> cfaligned /does-handler + !does ; \ !! no gforth-native |
r> cfaligned /does-handler + !does ; \ !! no gforth-native |
|
|
: (does>1) ( addr r:retaddr -- ) |
|
rdrop cfaligned /does-handler + !does ; \ !! no tail-call optimization |
|
|
|
: (does>2) ( addr -- ) |
: (does>2) ( addr -- ) |
cfaligned /does-handler + !does ; |
cfaligned /does-handler + !does ; |
|
|