From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 8 Sep 2019 16:48:14 +0000 (+0200)
Subject: fix missing specbind import
X-Git-Tag: emacs-28.0.90~2727^2~1196
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b9b19ebf911a959948de513afe3f639e23f346a;p=emacs.git

fix missing specbind import
---

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);