From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 20 Nov 2019 21:37:09 +0000 (+0100)
Subject: define internal-native-compiler-error as error
X-Git-Tag: emacs-28.0.90~2727^2~961
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=23874aee8825a6f670b6c2da9eca2d9cf643b3af;p=emacs.git

define internal-native-compiler-error as error
---

diff --git a/src/comp.c b/src/comp.c
index b3e61297513..f7950bcc72c 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -214,9 +214,9 @@ static void
 ice (const char* msg)
 {
   if (msg)
-    error ("Internal native compiler error: %s", msg);
+    xsignal1 (Qinternal_native_compiler_error, build_string (msg));
   else
-    error ("Internal native compiler error");
+    xsignal0 (Qinternal_native_compiler_error);
 }
 
 static void
@@ -3396,6 +3396,12 @@ syms_of_comp (void)
   DEFSYM (Qadvice, "advice");
 
   /* To be signaled.  */
+  DEFSYM (Qinternal_native_compiler_error, "internal-native-compiler-error");
+  Fput (Qinternal_native_compiler_error, Qerror_conditions,
+	pure_list (Qinternal_native_compiler_error, Qerror));
+  Fput (Qinternal_native_compiler_error, Qerror_message,
+        build_pure_c_string ("Internal native compiler error"));
+
   DEFSYM (Qnative_lisp_load_failed, "native-lisp-load-failed");
   Fput (Qnative_lisp_load_failed, Qerror_conditions,
 	pure_list (Qnative_lisp_load_failed, Qerror));