diff options
| author | Paul Eggert | 2021-07-12 00:07:38 -0700 |
|---|---|---|
| committer | Paul Eggert | 2021-07-12 00:12:21 -0700 |
| commit | c22cf4d02ff7ebd85839aac5336f6e279f32db54 (patch) | |
| tree | ba12fd9a4340fd92d2519f8de389da7529100f08 /src/eval.c | |
| parent | 1a0fe2a5184cd4c57972994cf4b688042aecc534 (diff) | |
| download | emacs-c22cf4d02ff7ebd85839aac5336f6e279f32db54.tar.gz emacs-c22cf4d02ff7ebd85839aac5336f6e279f32db54.zip | |
Pacify gcc 11.1.1 -Wclobbered
* src/eval.c (Fprogn, internal_lisp_condition_case):
Add CACHEABLE to work around more instances of -Wclobbered bug.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
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, | |||
| 462 | usage: (progn BODY...) */) | 462 | usage: (progn BODY...) */) |
| 463 | (Lisp_Object body) | 463 | (Lisp_Object body) |
| 464 | { | 464 | { |
| 465 | Lisp_Object val = Qnil; | 465 | Lisp_Object CACHEABLE val = Qnil; |
| 466 | 466 | ||
| 467 | while (CONSP (body)) | 467 | while (CONSP (body)) |
| 468 | { | 468 | { |
| @@ -1429,7 +1429,7 @@ internal_lisp_condition_case (Lisp_Object var, Lisp_Object bodyform, | |||
| 1429 | } | 1429 | } |
| 1430 | } | 1430 | } |
| 1431 | 1431 | ||
| 1432 | Lisp_Object result = eval_sub (bodyform); | 1432 | Lisp_Object CACHEABLE result = eval_sub (bodyform); |
| 1433 | handlerlist = oldhandlerlist; | 1433 | handlerlist = oldhandlerlist; |
| 1434 | if (!NILP (success_handler)) | 1434 | if (!NILP (success_handler)) |
| 1435 | { | 1435 | { |