gforth/libffi.fs - diff

Return to libffi.fs CVS log

Up to [gforth] / gforth

version 1.31, 2009/02/24 22:34:35	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 274 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 ! ;