From 17cf659fdfab02d7c5008d4a4b1df11f93b4764d Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 2 Sep 2019 11:51:32 +0200 Subject: [PATCH] add helper_unwind_protect as runtime imported --- src/comp.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/comp.c b/src/comp.c index 453d6f6fe2c..a08077ee41d 100644 --- a/src/comp.c +++ b/src/comp.c @@ -1649,6 +1649,9 @@ declare_runtime_imported (void) args[3] = comp.int_type; ADD_IMPORTED ("set_internal", comp.void_type, 4, args); + args[0] = comp.lisp_obj_type; + ADD_IMPORTED ("helper_unwind_protect", comp.void_type, 1, args); + #undef ADD_IMPORTED return field_list; @@ -3128,6 +3131,9 @@ load_comp_unit (dynlib_handle_ptr handle) } else if (!strcmp (f_str, "set_internal")) { f_relocs[i] = (void *) set_internal; + } else if (!strcmp (f_str, "helper_unwind_protect")) + { + f_relocs[i] = (void *) helper_unwind_protect; } else { error ("Unexpected function relocation %s", f_str); -- 2.39.5