suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use sysv only on Windows (usable elsewhere, but its the default anyway)

Browse Source 
svn: r11625
This commit is contained in:
Eli Barzilay 2008-09-10 02:22:59 +00:00
parent bb470554a5
commit f43990ee3b
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/foreign/foreign.c
View File

@ -978,7 +978,11 @@ ffi_abi sym_to_abi(char *who, Scheme_Object *sym)
if (SCHEME_FALSEP(sym) || SAME_OBJ(sym, default_sym)) if (SCHEME_FALSEP(sym) || SAME_OBJ(sym, default_sym))
return FFI_DEFAULT_ABI; return FFI_DEFAULT_ABI;
else if (SAME_OBJ(sym, sysv_sym)) { else if (SAME_OBJ(sym, sysv_sym)) {
#ifdef WINDOWS_DYNAMIC_LOAD
return FFI_SYSV; return FFI_SYSV;
#else
scheme_signal_error("%s: ABI not implemented: %V", who, sym);
#endif
} else if (SAME_OBJ(sym, stdcall_sym)) { } else if (SAME_OBJ(sym, stdcall_sym)) {
#ifdef WINDOWS_DYNAMIC_LOAD #ifdef WINDOWS_DYNAMIC_LOAD
return FFI_STDCALL; return FFI_STDCALL;

4
src/foreign/foreign.ssc
View File

@ -830,7 +830,11 @@ ffi_abi sym_to_abi(char *who, Scheme_Object *sym)
if (SCHEME_FALSEP(sym) || SAME_OBJ(sym, default_sym)) if (SCHEME_FALSEP(sym) || SAME_OBJ(sym, default_sym))
return FFI_DEFAULT_ABI; return FFI_DEFAULT_ABI;
else if (SAME_OBJ(sym, sysv_sym)) { else if (SAME_OBJ(sym, sysv_sym)) {
#ifdef WINDOWS_DYNAMIC_LOAD
return FFI_SYSV; return FFI_SYSV;
#else
scheme_signal_error("%s: ABI not implemented: %V", who, sym);
#endif
} else if (SAME_OBJ(sym, stdcall_sym)) { } else if (SAME_OBJ(sym, stdcall_sym)) {
#ifdef WINDOWS_DYNAMIC_LOAD #ifdef WINDOWS_DYNAMIC_LOAD
return FFI_STDCALL; return FFI_STDCALL;