version 1.6, 2005/12/04 13:46:12
|
version 1.7, 2005/12/11 19:31:48
|
Line 112 Create argptr maxargs 0 [DO] argbuf [I]
|
Line 112 Create argptr maxargs 0 [DO] argbuf [I]
|
|
|
\ "backward" when revarg is off |
\ "backward" when revarg is off |
|
|
: >i- ( n buf -- buf' ) 2 cells - tuck t! ; |
: >i- ( n buf -- buf' ) 2 cells - tuck l! ; |
: >p- ( addr buf -- buf' ) 2 cells - tuck ! ; |
: >p- ( addr buf -- buf' ) 2 cells - tuck ! ; |
: >d- ( d buf -- buf' ) 2 cells - dup >r ffi-2! r> ; |
: >d- ( d buf -- buf' ) 2 cells - dup >r ffi-2! r> ; |
: >sf- ( r buf -- buf' ) 2 cells - dup sf! ; |
: >sf- ( r buf -- buf' ) 2 cells - dup sf! ; |
Line 120 Create argptr maxargs 0 [DO] argbuf [I]
|
Line 120 Create argptr maxargs 0 [DO] argbuf [I]
|
|
|
\ return value |
\ return value |
|
|
: i>x ( -- n ) retbuf t@ ; |
: i>x ( -- n ) retbuf l@ ; |
: is>x ( -- n ) retbuf tx@ ; |
: is>x ( -- n ) retbuf sl@ ; |
: p>x ( -- addr ) retbuf @ ; |
: p>x ( -- addr ) retbuf @ ; |
: d>x ( -- d ) retbuf ffi-2@ ; |
: d>x ( -- d ) retbuf ffi-2@ ; |
: sf>x ( -- r ) retbuf sf@ ; |
: sf>x ( -- r ) retbuf sf@ ; |