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.33, 2009/12/31 15:32:35
Line 1	Line 1
\ libffi.fs shared library support package 14aug05py	\ libffi.fs shared library support package 14aug05py

\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008,2009 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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