From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 12 Jul 2021 07:07:38 +0000 (-0700)
Subject: Pacify gcc 11.1.1 -Wclobbered
X-Git-Tag: emacs-28.0.90~1895
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c22cf4d02ff7ebd85839aac5336f6e279f32db54;p=emacs.git

Pacify gcc 11.1.1 -Wclobbered

* src/eval.c (Fprogn, internal_lisp_condition_case):
Add CACHEABLE to work around more instances of -Wclobbered bug.
---

diff --git a/src/eval.c b/src/eval.c
index 18faa0b9b15..b76ced79d61 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -462,7 +462,7 @@ DEFUN ("progn", Fprogn, Sprogn, 0, UNEVALLED, 0,
 usage: (progn BODY...)  */)
   (Lisp_Object body)
 {
-  Lisp_Object val = Qnil;
+  Lisp_Object CACHEABLE val = Qnil;
 
   while (CONSP (body))
     {
@@ -1429,7 +1429,7 @@ internal_lisp_condition_case (Lisp_Object var, Lisp_Object bodyform,
 	}
     }
 
-  Lisp_Object result = eval_sub (bodyform);
+  Lisp_Object CACHEABLE result = eval_sub (bodyform);
   handlerlist = oldhandlerlist;
   if (!NILP (success_handler))
     {