summaryrefslogtreecommitdiff
path: root/src/comp.c
diff options
context:
space:
mode:
authorAndrea Corallo <andrea_corallo@yahoo.it>2019-09-02 11:51:32 +0200
committerAndrea Corallo <akrl@sdf.org>2020-01-01 11:37:42 +0100
commit17cf659fdfab02d7c5008d4a4b1df11f93b4764d (patch)
tree37f8a38047cf4a510be905ee1dfdaf575c4ab0e3 /src/comp.c
parent6ac6e5b4752a596436b35419e7ca111b04f35d95 (diff)
downloademacs-17cf659fdfab02d7c5008d4a4b1df11f93b4764d.tar.gz
emacs-17cf659fdfab02d7c5008d4a4b1df11f93b4764d.tar.bz2
emacs-17cf659fdfab02d7c5008d4a4b1df11f93b4764d.zip
add helper_unwind_protect as runtime imported
Diffstat (limited to 'src/comp.c')
-rw-r--r--src/comp.c6
1 files changed, 6 insertions, 0 deletions
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);