aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
authorPaul Eggert2025-02-01 14:09:06 -0800
committerPaul Eggert2025-02-01 14:17:54 -0800
commitc91c591f0f0cc774647c32bdcf05bb3a9551e340 (patch)
tree04fc094548c5f6f5ff48b6ebc8689d1ed88adfc5 /src/eval.c
parent3ae7c9069fa9320ce2cff5b421dc8d9d4c4b8430 (diff)
downloademacs-c91c591f0f0cc774647c32bdcf05bb3a9551e340.tar.gz
emacs-c91c591f0f0cc774647c32bdcf05bb3a9551e340.zip
Omit 2 ‘volatile’s in internal_lisp_condition_case
* src/eval.c (internal_lisp_condition_case): Omit an unnecessary ‘volatile’ and an unnecessary pointer-to-volatile local var. Perhaps these were needed in previous versions of Emacs, or to pacify older versions of GCC when using --enable-gcc-warnings, but they are not needed to pacify current GCC.
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/eval.c b/src/eval.c
index 666d49f03fe..70f533842b9 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1478,7 +1478,7 @@ Lisp_Object
1478internal_lisp_condition_case (Lisp_Object var, Lisp_Object bodyform, 1478internal_lisp_condition_case (Lisp_Object var, Lisp_Object bodyform,
1479 Lisp_Object handlers) 1479 Lisp_Object handlers)
1480{ 1480{
1481 struct handler *volatile oldhandlerlist = handlerlist; 1481 struct handler *oldhandlerlist = handlerlist;
1482 1482
1483 /* The number of non-success handlers, plus 1 for a sentinel. */ 1483 /* The number of non-success handlers, plus 1 for a sentinel. */
1484 ptrdiff_t clausenb = 1; 1484 ptrdiff_t clausenb = 1;
@@ -1543,12 +1543,11 @@ internal_lisp_condition_case (Lisp_Object var, Lisp_Object bodyform,
1543 if (!CONSP (condition)) 1543 if (!CONSP (condition))
1544 condition = list1 (condition); 1544 condition = list1 (condition);
1545 struct handler *c = push_handler (condition, CONDITION_CASE); 1545 struct handler *c = push_handler (condition, CONDITION_CASE);
1546 Lisp_Object volatile *clauses_volatile = clauses;
1547 if (sys_setjmp (c->jmp)) 1546 if (sys_setjmp (c->jmp))
1548 { 1547 {
1549 var = var_volatile; 1548 var = var_volatile;
1550 val = handlerlist->val; 1549 val = handlerlist->val;
1551 Lisp_Object volatile *chosen_clause = clauses_volatile; 1550 Lisp_Object volatile *chosen_clause = clauses;
1552 struct handler *oldh = oldhandlerlist; 1551 struct handler *oldh = oldhandlerlist;
1553 for (struct handler *h = handlerlist->next; h != oldh; h = h->next) 1552 for (struct handler *h = handlerlist->next; h != oldh; h = h->next)
1554 chosen_clause++; 1553 chosen_clause++;