version 1.35, 2012/03/17 22:18:59
|
version 1.37, 2012/10/08 01:10:30
|
Line 34 include-ffi.h-string save-c-prefix-line
|
Line 34 include-ffi.h-string save-c-prefix-line
|
\c static void *(*saved_gforth_pointers)(Cell); |
\c static void *(*saved_gforth_pointers)(Cell); |
\c #endif |
\c #endif |
\c typedef void *Label; |
\c typedef void *Label; |
\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 |
Line 51 include-ffi.h-string save-c-prefix-line
|
Line 50 include-ffi.h-string save-c-prefix-line
|
\c gforth_clist = args; |
\c gforth_clist = args; |
\c gforth_ritem = resp; |
\c gforth_ritem = resp; |
\c |
\c |
\c gforth_engine((Xt *)ip, sp, rp1, fp, lp); |
\c gforth_engine((Xt *)ip); |
\c |
\c |
\c /* restore global variables */ |
\c /* restore global variables */ |
\c gforth_RP = rp1; |
\c gforth_RP = rp1; |