From 23874aee8825a6f670b6c2da9eca2d9cf643b3af Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 20 Nov 2019 22:37:09 +0100 Subject: [PATCH] define internal-native-compiler-error as error --- src/comp.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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)); -- 2.39.5