From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 11 Nov 2019 12:19:23 +0000 (+0100)
Subject: minimal error handling in load_comp_unit
X-Git-Tag: emacs-28.0.90~2727^2~1009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3bc77cca86fbed8c12fb6c10c51e1237d65c9143;p=emacs.git

minimal error handling in load_comp_unit
---

diff --git a/src/comp.c b/src/comp.c
index 0e190e88874..f72d25a6ba9 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -3210,7 +3210,9 @@ load_comp_unit (dynlib_handle_ptr handle)
       Lisp_Object subr = Fsymbol_function (f_sym);
       if (!NILP (subr))
 	{
-	  eassert (SUBRP (subr));
+	  /* FIXME: This is really not robust in case of subr redefinition.  */
+	  if (!SUBRP (subr))
+	    error ("Native code load error, subr redefined or wrong relocation.");
 	  f_relocs[i] = XSUBR (subr)->function.a0;
 	} else if (!strcmp (f_str, "wrong_type_argument"))
 	{