From 0bc96304a9c104659d463cdc4e81940a7b7b0653 Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Sat, 11 Jun 2022 09:40:37 -0500 Subject: [PATCH] Add r32 and r64 aliases for real numbers in ffi types. --- src/core/ffi.c | 2 ++ tools/tm_lang_gen.janet | 1 + 2 files changed, 3 insertions(+) diff --git a/src/core/ffi.c b/src/core/ffi.c index bdccbfc7..da3e7ffb 100644 --- a/src/core/ffi.c +++ b/src/core/ffi.c @@ -227,6 +227,8 @@ static JanetFFIPrimType decode_ffi_prim(const uint8_t *name) { if (!janet_cstrcmp(name, "ssize")) return JANET_FFI_TYPE_INT32; #endif /* aliases */ + if (!janet_cstrcmp(name, "r32")) return JANET_FFI_TYPE_FLOAT; + if (!janet_cstrcmp(name, "r64")) return JANET_FFI_TYPE_DOUBLE; if (!janet_cstrcmp(name, "s8")) return JANET_FFI_TYPE_INT8; if (!janet_cstrcmp(name, "u8")) return JANET_FFI_TYPE_UINT8; if (!janet_cstrcmp(name, "s16")) return JANET_FFI_TYPE_INT16; diff --git a/tools/tm_lang_gen.janet b/tools/tm_lang_gen.janet index 9c0f6161..29c6292d 100644 --- a/tools/tm_lang_gen.janet +++ b/tools/tm_lang_gen.janet @@ -17,6 +17,7 @@ "quote" "quasiquote" "unquote" + "upscope" "splice"] (all-bindings))) (def allsyms (dyn :allsyms))