minimal error handling in load_comp_unit

1 files changed, 3 insertions, 1 deletions

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"))
         {