gforth/libffi.fs - diff

Return to libffi.fs CVS log

Up to [gforth] / gforth

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@ ;