mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-07-15 16:32:53 +00:00
Code Issues 1 Releases Wiki Activity

Make calling convention optional for trampoline

Browse Source
This commit is contained in:
Calvin Rose 2022-06-11 15:47:51 -05:00
parent 0cc53a8964
commit 458c2c6d88
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/core/ffi.c
View File

@ -197,11 +197,11 @@ static size_t type_align(JanetFFIType t) {
} }
} }
#define JANET_FFI_CC_DEFAULT JANET_FFI_CC_SYSV_64
static JanetFFICallingConvention decode_ffi_cc(const uint8_t *name) { static JanetFFICallingConvention decode_ffi_cc(const uint8_t *name) {
if (!janet_cstrcmp(name, "sysv64")) return JANET_FFI_CC_SYSV_64; if (!janet_cstrcmp(name, "sysv64")) return JANET_FFI_CC_SYSV_64;
if (!janet_cstrcmp(name, "default")) { if (!janet_cstrcmp(name, "default")) return JANET_FFI_CC_DEFAULT;
return JANET_FFI_CC_SYSV_64;
}
janet_panicf("unknown calling convention %s", name); janet_panicf("unknown calling convention %s", name);
} }
@ -792,8 +792,9 @@ JANET_CORE_FN(cfun_ffi_get_callback_trampoline,
"It is up to the programmer to ensure that the `userdata` argument contains a janet function " "It is up to the programmer to ensure that the `userdata` argument contains a janet function "
"the will be called with one argument, `ctx` which is an opaque pointer. This pointer can " "the will be called with one argument, `ctx` which is an opaque pointer. This pointer can "
"be further inspected with `native-read`.") { "be further inspected with `native-read`.") {
janet_fixarity(argc, 1); janet_arity(argc, 0, 1);
JanetFFICallingConvention cc = decode_ffi_cc(janet_getkeyword(argv, 0)); JanetFFICallingConvention cc = JANET_FFI_CC_DEFAULT;
if (argc >= 1) cc = decode_ffi_cc(janet_getkeyword(argv, 0));
switch (cc) { switch (cc) {
default: default:
case JANET_FFI_CC_SYSV_64: case JANET_FFI_CC_SYSV_64: