GNU bug report logs - #75135
30.0.93; Infinite loop in comp--native-compile

Previous Next

Full log

View this message in rfc822 format

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Andrea Corallo <acorallo <at> gnu.org>
Cc: 75135 <at> debbugs.gnu.org, Eli Zaretskii <eliz <at> gnu.org>, Hugh Daschbach <hdasch <at> ccss.com>
Subject: bug#75135: 30.0.93; Infinite loop in comp--native-compile
Date: Sat, 1 Mar 2025 20:21:53 -0800

Andrea Corallo <acorallo <at> gnu.org> writes:

> The attached should be fixing it, could you give it a try?

Ping, Hugh, any chance you could try the below patch?  Thanks.

>
> Circular objects are rare in code and we lived with this for a long
> time, I'd suggest to install this only on master not to touch the
> release branch.  Eli WDYT?
>
> Thanks
>
>   Andrea
>
> diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
> index 2966ed255ac..f3b6b8fd606 100644
> --- a/lisp/emacs-lisp/comp.el
> +++ b/lisp/emacs-lisp/comp.el
> @@ -2481,8 +2481,9 @@ comp--ssa-rename-insn
>                   (setf (comp-vec-aref frame slot-n) mvar
>                         (cadr insn) mvar))))
>       (pcase insn
> -       (`(setimm ,(pred targetp) ,_imm)
> -        (new-lvalue))
> +       (`(setimm ,lval ,_imm)
> +        (when (targetp lval)
> +          (new-lvalue)))
>         (`(,(pred comp--assign-op-p) ,(pred targetp) . ,_)
>          (let ((mvar (comp-vec-aref frame slot-n)))
>            (setf (cddr insn) (cl-nsubst-if mvar #'targetp (cddr insn))))

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.