From 3f841a942b22c4b6b140654d3d8de535b08b672a Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 2 Sep 2019 10:33:58 +0200 Subject: [PATCH] add set_internal as runtime imported --- src/comp.c | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/comp.c b/src/comp.c index 62b0dd0732e..77d8cad5514 100644 --- a/src/comp.c +++ b/src/comp.c @@ -1573,7 +1573,9 @@ declare_runtime_imported (void) Lisp_Object el = Fcons (name, field); \ field_list = Fcons (el, field_list); \ } while (0) - gcc_jit_type *args[2]; + + gcc_jit_type *args[4]; + ADD_IMPORTED ("wrong_type_argument", comp.void_type, 2, NULL); args[0] = comp.lisp_obj_type; @@ -1596,6 +1598,10 @@ declare_runtime_imported (void) ADD_IMPORTED ("record_unwind_current_buffer", comp.void_type, 0, NULL); + args[0] = args[1] = args[2] = comp.lisp_obj_type; + args[3] = comp.int_type; + ADD_IMPORTED ("set_internal", comp.void_type, 4, args); + #undef ADD_IMPORTED return field_list; @@ -3072,6 +3078,9 @@ load_comp_unit (dynlib_handle_ptr handle) } else if (!strcmp (f_str, "record_unwind_current_buffer")) { f_relocs[i] = (void *) record_unwind_current_buffer; + } else if (!strcmp (f_str, "set_internal")) + { + f_relocs[i] = (void *) set_internal; } else { error ("Unexpected function relocation %s", f_str); -- 2.39.5