Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Omit 2 ‘volatile’s in internal_lisp_condition_case

Browse source 
* 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.
This commit is contained in:
Paul Eggert 2025-02-01 14:09:06 -08:00
parent 3ae7c9069f
commit c91c591f0f
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/eval.c
View file

@ -1478,7 +1478,7 @@ Lisp_Object
internal_lisp_condition_case (Lisp_Object var, Lisp_Object bodyform,
Lisp_Object handlers)
{
struct handler *volatile oldhandlerlist = handlerlist;
struct handler *oldhandlerlist = handlerlist;
/* The number of non-success handlers, plus 1 for a sentinel. */
ptrdiff_t clausenb = 1;
@ -1543,12 +1543,11 @@ internal_lisp_condition_case (Lisp_Object var, Lisp_Object bodyform,
if (!CONSP (condition))
condition = list1 (condition);
struct handler *c = push_handler (condition, CONDITION_CASE);
Lisp_Object volatile *clauses_volatile = clauses;
if (sys_setjmp (c->jmp))
{
var = var_volatile;
val = handlerlist->val;
Lisp_Object volatile *chosen_clause = clauses_volatile;
Lisp_Object volatile *chosen_clause = clauses;
struct handler *oldh = oldhandlerlist;
for (struct handler *h = handlerlist->next; h != oldh; h = h->next)
chosen_clause++;