From 22bbbd42aaf68793c71269ec5efc9fff072c757d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 2 Mar 1994 03:44:58 +0000 Subject: [PATCH] (struct handler): New field chosen_clause. (memory_signal_data): Declare it. --- src/lisp.h | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/lisp.h b/src/lisp.h index 6d3e6681f0e..934f499ad11 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -905,6 +905,9 @@ struct handler /* The handler clauses and variable from the condition-case form. */ Lisp_Object handler; Lisp_Object var; + /* Fsignal stores here the condition-case clause that applies, + and Fcondition_case thus knows which clause to run. */ + Lisp_Object chosen_clause; /* Used to effect the longjump out to the handler. */ struct catchtag *tag; @@ -918,6 +921,8 @@ extern struct handler *handlerlist; extern struct catchtag *catchlist; extern struct backtrace *backtrace_list; +extern Lisp_Object memory_signal_data; + /* An address near the bottom of the stack. Tells GC how to save a copy of the stack. */ extern char *stack_bottom; -- 2.39.5