From 1b9b19ebf911a959948de513afe3f639e23f346a Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 8 Sep 2019 18:48:14 +0200 Subject: [PATCH] fix missing specbind import --- src/comp.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/comp.c b/src/comp.c index 2b6f8bf0536..b6733522a10 100644 --- a/src/comp.c +++ b/src/comp.c @@ -1676,6 +1676,9 @@ declare_runtime_imported_funcs (void) args[0] = comp.lisp_obj_type; ADD_IMPORTED ("helper_unwind_protect", comp.void_type, 1, args); + args[0] = args[1] = comp.lisp_obj_type; + ADD_IMPORTED ("specbind", comp.void_type, 2, args); + #undef ADD_IMPORTED return field_list; @@ -3149,6 +3152,9 @@ load_comp_unit (dynlib_handle_ptr handle) } else if (!strcmp (f_str, "helper_unwind_protect")) { f_relocs[i] = (void *) helper_unwind_protect; + } else if (!strcmp (f_str, "specbind")) + { + f_relocs[i] = (void *) specbind; } else { error ("Unexpected function relocation %s", f_str); -- 2.39.5