version 1.34, 2012/03/17 01:36:04
|
version 1.35, 2012/03/17 22:18:59
|
Line 31 include-ffi.h-string save-c-prefix-line
|
Line 31 include-ffi.h-string save-c-prefix-line
|
\c static void **gforth_clist; |
\c static void **gforth_clist; |
\c static void *gforth_ritem; |
\c static void *gforth_ritem; |
\c #ifndef HAS_BACKLINK |
\c #ifndef HAS_BACKLINK |
\c static void **saved_gforth_pointers; |
\c static void *(*saved_gforth_pointers)(Cell); |
\c #endif |
\c #endif |
\c typedef void *Label; |
\c typedef void *Label; |
\c typedef Label *Xt; |
\c typedef Label *Xt; |
\c static void gforth_callback_ffi(ffi_cif * cif, void * resp, void ** args, void * ip) |
\c static void gforth_callback_ffi(ffi_cif * cif, void * resp, void ** args, void * ip) |
\c { |
\c { |
\c #ifndef HAS_BACKLINK |
\c #ifndef HAS_BACKLINK |
\c void **gforth_pointers = saved_gforth_pointers; |
\c void *(*gforth_pointers)(Cell) = saved_gforth_pointers; |
\c #endif |
\c #endif |
\c { |
\c { |
\c Cell *rp1 = gforth_RP; |
\c Cell *rp1 = gforth_RP; |