diff options
| author | Pip Cet <pipcet@protonmail.com> | 2025-02-17 15:21:16 +0000 |
|---|---|---|
| committer | Pip Cet <pipcet@protonmail.com> | 2025-02-17 19:03:14 +0000 |
| commit | 53a5dada413662389a17c551a00d215e51f5049f (patch) | |
| tree | 70f3cc9c97885f49151a33e457536c32d5567e8a /lisp/emacs-lisp | |
| parent | fd5dbea21b8982cff8d3ae774b0e68c077a4ec89 (diff) | |
| download | emacs-53a5dada413662389a17c551a00d215e51f5049f.tar.gz emacs-53a5dada413662389a17c551a00d215e51f5049f.tar.bz2 emacs-53a5dada413662389a17c551a00d215e51f5049f.zip | |
Fix compilation errors due to insufficient compiler safety (bug#63288)
The default safety level is 1. Restoring the default safety level to
1 after it was temporarily 0 should reset byte-compile-delete-errors
to nil, its default level. Failing to do that resulted in
miscompilation of code in highly-parallel builds.
* lisp/emacs-lisp/cl-macs.el (cl--do-proclaim): Change
'byte-compile-delete-errors' to become t only at 'safety' level 0, not
levels 1 or 2.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index eef69e6899e..e73edbadaf2 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2701,7 +2701,7 @@ Example: (let ((speed (assq (nth 1 (assq 'speed (cdr spec))) '((0 nil) (1 t) (2 t) (3 t)))) (safety (assq (nth 1 (assq 'safety (cdr spec))) - '((0 t) (1 t) (2 t) (3 nil))))) + '((0 t) (1 nil) (2 nil) (3 nil))))) (if speed (setq cl--optimize-speed (car speed) byte-optimize (nth 1 speed))) (if safety (setq cl--optimize-safety (car safety) |