gforth/libffi.fs - diff

Return to libffi.fs CVS log

Up to [gforth] / gforth

version 1.30, 2008/09/18 02:42:24	version 1.32, 2009/12/27 01:00:52
Line 231 DOES> ( -- ) dup thislib ! proc: ;	Line 231 DOES> ( -- ) dup thislib ! proc: ;
here thisproc @ 2 cells + ! parse-name s,	here thisproc @ 2 cells + ! parse-name s,
thislib @ thisproc @ @proc ;	thislib @ thisproc @ @proc ;

	: func@ >body cell+ @ ;
	: func' ' func@ ;
	: [func'] postpone ['] postpone func@ ; immediate restrict

\ stuff for libffi	\ stuff for libffi

\ libffi uses a parameter array for the input	\ libffi uses a parameter array for the input
Line 270 Create argptr maxargs 0 [DO] argbuf [I]	Line 274 Create argptr maxargs 0 [DO] argbuf [I]
: sf>x ( -- r ) retbuf sf@ ;	: sf>x ( -- r ) retbuf sf@ ;
: df>x ( -- r ) retbuf df@ ;	: df>x ( -- r ) retbuf df@ ;

wordlist constant cifs	table constant cifs

Variable cifbuf $40 allot \ maximum: 64 parameters	Variable cifbuf $40 allot \ maximum: 64 parameters
: cifreset cifbuf cell+ cifbuf ! ;	: cifreset cifbuf cell+ cifbuf ! ;