index 02f61d3ca3038e1e943a513dea1fc0ea56d2663c..d14bf4f1a0c3fc0917a2b9881becd90174fa0c71 100644 (file)
LAST_ABI* = 7;
DEFAULT_ABI* = SYSV;
LAST_ABI* = 7;
DEFAULT_ABI* = SYSV;
+ (* stub *)
+ VFP* = -1;
+
CONST (* status *)
OK* = 0; BAD_TYPEDEF* = 1; BAD_ABI* = 2;
CONST (* status *)
OK* = 0; BAD_TYPEDEF* = 1; BAD_ABI* = 2;
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] 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.
END LibFFI.