X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fcpfront%2F486%2FLib%2FMod%2FFFI.cp;h=d14bf4f1a0c3fc0917a2b9881becd90174fa0c71;hp=02f61d3ca3038e1e943a513dea1fc0ea56d2663c;hb=40872c64fb10eeb0864a6819923504a02a225c19;hpb=4399688214fe9abbf588fe811bfc5a8cd074ae98

diff --git a/src/cpfront/486/Lib/Mod/FFI.cp b/src/cpfront/486/Lib/Mod/FFI.cp
index 02f61d3..d14bf4f 100644
--- a/src/cpfront/486/Lib/Mod/FFI.cp
+++ b/src/cpfront/486/Lib/Mod/FFI.cp
@@ -18,6 +18,9 @@ MODULE LibFFI ["ffi.h"];
     LAST_ABI* = 7;
     DEFAULT_ABI* = SYSV;
 
+    (* stub *)
+    VFP* = -1;
+
   CONST (* status *)
     OK* = 0; BAD_TYPEDEF* = 1; BAD_ABI* = 2;
 
@@ -84,6 +87,6 @@ MODULE LibFFI ["ffi.h"];
 
   PROCEDURE [ccall] prep_cif* ["ffi_prep_cif"] (VAR c: cif; a: abi; nargs: types.unsigned_int; rtype: POINTER TO type; atypes: POINTER [untagged] TO ARRAY [untagged] OF POINTER TO type): status;
   PROCEDURE [ccall] prep_cif_var* ["ffi_prep_cif_var"] (VAR c: cif; a: abi; nfixedargs, ntotalargs: types.unsigned_int; rtype: POINTER TO type; atypes: POINTER [untagged] TO ARRAY [untagged] OF POINTER TO type): status;
-  PROCEDURE [ccall] call* ["ffi_call"] (VAR c: cif; fn, rvalue, avalue: SYSTEM.ADDRESS);
+  PROCEDURE [ccall] call* ["ffi_call"] (VAR c: cif; fn, rvalue, avalue: INTEGER);
 
 END LibFFI.