[BACK]Return to libffi.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/libffi.fs between versions 1.24 and 1.29

version 1.24, 2008/07/13 19:20:54 version 1.29, 2008/08/09 21:28:39
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 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 24 Line 24
 c-library libffi  c-library libffi
 s" ffi" add-lib  s" ffi" add-lib
   
 s" os-type" environment? [IF] s" darwin" string-prefix?  \ The ffi.h of XCode needs the following line, and it should not hurt elsewhere
 [IF]  \c #define MACOSX
     \c #define MACOSX  include-ffi.h-string save-c-prefix-line \ #include <ffi.h>
     \c #include <ffi/ffi.h>  
 [ELSE]  
     \c #include <ffi.h>  
 [THEN]  
 [ELSE]  
     \c #include <ffi.h>  
 [THEN]  
 \c extern Cell *gforth_RP;  \c extern Cell *gforth_RP;
 \c extern unsigned char *gforth_LP;  \c extern unsigned char *gforth_LP;
 \c static void **gforth_clist;  \c static void **gforth_clist;
Line 344  also c-decl definitions Line 337  also c-decl definitions
 ' >dl+ ' >dl-   6 argtype dlong  ' >dl+ ' >dl-   6 argtype dlong
 ' >sf+ ' >sf-   9 argtype sf  ' >sf+ ' >sf-   9 argtype sf
 ' >df+ ' >df- &10 argtype df  ' >df+ ' >df- &10 argtype df
   : ints 0 ?DO int LOOP ;
   
 ' noop   0 rettype (void)  ' noop   0 rettype (void)
 ' is>x   6 rettype (int)  ' is>x   6 rettype (int)
Line 431  also cb-decl definitions Line 425  also cb-decl definitions
 ' ffi-arg-longlong   8 argtype' llong  ' ffi-arg-longlong   8 argtype' llong
 ' ffi-arg-dlong      6 argtype' dlong  ' ffi-arg-dlong      6 argtype' dlong
 ' ffi-arg-ptr      &12 argtype' ptr  ' ffi-arg-ptr      &12 argtype' ptr
   : ints ( n -- ) 0 ?DO postpone int LOOP ; immediate
   
 ' ffi-ret-void       0 rettype' (void)  ' ffi-ret-void       0 rettype' (void)
 ' ffi-ret-int        6 rettype' (int)  ' ffi-ret-int        6 rettype' (int)
Removed from v.1.24  
changed lines
  Added in v.1.29

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>