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

Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.

Package: emacs; Reported by: Hugh Daschbach <hdasch@HIDDEN>; dated Fri, 27 Dec 2024 06:13:03 UTC; Maintainer for emacs is bug-gnu-emacs@HIDDEN.

Message received at 75135 <at> debbugs.gnu.org:


Received: (at 75135) by debbugs.gnu.org; 29 Dec 2024 14:28:58 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sun Dec 29 09:28:58 2024
Received: from localhost ([127.0.0.1]:54272 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1tRuHq-0002fP-GI
	for submit <at> debbugs.gnu.org; Sun, 29 Dec 2024 09:28:58 -0500
Received: from eggs.gnu.org ([209.51.188.92]:48774)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <eliz@HIDDEN>) id 1tRuHo-0002fC-Gc
 for 75135 <at> debbugs.gnu.org; Sun, 29 Dec 2024 09:28:56 -0500
Received: from fencepost.gnu.org ([2001:470:142:3::e])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <eliz@HIDDEN>)
 id 1tRuHj-0000pL-AK; Sun, 29 Dec 2024 09:28:51 -0500
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org;
 s=fencepost-gnu-org; h=References:Subject:In-Reply-To:To:From:Date:
 mime-version; bh=K2JE5NgOO1iA7fGepLGBgtMKdImg9iaJSbTPpLRUhAI=; b=AS8/gvOR7+XP
 Ysdm+EiZzC6cfhJgQ4dICbXwVY00hBa6E11cY3xC6bV9NURSiEAxrVd+oWX3DQK4mQxUMle0j6cl7
 GeIE3qhZzesl19/W73gZJygdIpTPCwVWWWjKKGm3ErhRtrm5fwOoEBADf5LXk6d8vZKKq1BoUkqQx
 Jfk2GXIs1Lk7V4A7wNSkHf5n9da3ZYEqKOJt1tETVgatFnsn6siAKWvaFWfdz9zIJnQs1xTlPi8ij
 4oA3UH6KIZCF817XVrX3Z4j8u74DpL9GhYCh+Oh/yYEpU/0eAC5rIlFgRFv8R71e8u8G+CBqHNSEa
 VY2+wud1Z/nvzKwGLDUDEA==;
Date: Sun, 29 Dec 2024 16:28:45 +0200
Message-Id: <861pxqr2aq.fsf@HIDDEN>
From: Eli Zaretskii <eliz@HIDDEN>
To: Andrea Corallo <acorallo@HIDDEN>
In-Reply-To: <yp1jzbi7elk.fsf@HIDDEN> (message from Andrea Corallo
 on Sun, 29 Dec 2024 09:23:19 -0500)
Subject: Re: bug#75135: 30.0.93; Infinite loop in comp--native-compile
References: <87msgiasma.fsf@HIDDEN>
 <yp1wmfi7pzt.fsf@HIDDEN> <yp1jzbi7elk.fsf@HIDDEN>
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: 75135
Cc: 75135 <at> debbugs.gnu.org, hdasch@HIDDEN
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

> From: Andrea Corallo <acorallo@HIDDEN>
> Cc: 75135 <at> debbugs.gnu.org, Eli Zaretskii <eliz@HIDDEN>
> Date: Sun, 29 Dec 2024 09:23:19 -0500
> 
> 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?

Agreed.




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#75135; Package emacs. Full text available.

Message received at 75135 <at> debbugs.gnu.org:


Received: (at 75135) by debbugs.gnu.org; 29 Dec 2024 14:23:30 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sun Dec 29 09:23:30 2024
Received: from localhost ([127.0.0.1]:54256 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1tRuCY-0002He-12
	for submit <at> debbugs.gnu.org; Sun, 29 Dec 2024 09:23:30 -0500
Received: from eggs.gnu.org ([209.51.188.92]:43214)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <acorallo@HIDDEN>) id 1tRuCT-0002HL-Ry
 for 75135 <at> debbugs.gnu.org; Sun, 29 Dec 2024 09:23:27 -0500
Received: from fencepost.gnu.org ([2001:470:142:3::e])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <acorallo@HIDDEN>)
 id 1tRuCO-0008QX-F5; Sun, 29 Dec 2024 09:23:20 -0500
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org;
 s=fencepost-gnu-org; h=MIME-Version:Date:References:In-Reply-To:Subject:To:
 From; bh=czlQ7Jn4Bg3Q3pYv48eJPm2tfORJs2d783DiB7VCqlU=; b=Clec22rwdA+ukoY8wwMC
 dKW9eQwAdJO8sW98LNnuRDsyGH5W4BW3jmx09XtDq/C/zlAHr60BYVyVRaxw0EeATRAnR7c4b/hjR
 Iw8QxfvX7Qmx7RnSOdU5dJM/mnaY49f7ItKKOZV3T9KoL3j0AOyapV8p0FUv4U+Hck5Jk1rqKPSgy
 7VWfjkTxXhXfLQUuLQZq5KF6bTghciQty1LndGrkfDzyVL3USRdW4blnY0oVgBhdSXeU/RrxqhjRQ
 qvutN2tSaJgZn2bTuNoG2QbIwyvQL1xTRqGsKz3dFA//cuAsgy0scW3bAyAVYpTUkz/SrgZEa/Opo
 CRBgDtkLWVLsiw==;
Received: from acorallo by fencepost.gnu.org with local (Exim 4.90_1)
 (envelope-from <acorallo@HIDDEN>)
 id 1tRuCN-0006Eh-Cw; Sun, 29 Dec 2024 09:23:20 -0500
From: Andrea Corallo <acorallo@HIDDEN>
To: Hugh Daschbach <hdasch@HIDDEN>
Subject: Re: bug#75135: 30.0.93; Infinite loop in comp--native-compile
In-Reply-To: <yp1wmfi7pzt.fsf@HIDDEN> (Andrea Corallo's message of
 "Sun, 29 Dec 2024 05:17:10 -0500")
References: <87msgiasma.fsf@HIDDEN>
 <yp1wmfi7pzt.fsf@HIDDEN>
Date: Sun, 29 Dec 2024 09:23:19 -0500
Message-ID: <yp1jzbi7elk.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13)
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: 75135
Cc: 75135 <at> debbugs.gnu.org, Eli Zaretskii <eliz@HIDDEN>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

--=-=-=
Content-Type: text/plain

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

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


--=-=-=
Content-Type: text/x-diff
Content-Disposition: inline; filename=circ.patch

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))))
--=-=-=--




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#75135; Package emacs. Full text available.

Message received at 75135 <at> debbugs.gnu.org:


Received: (at 75135) by debbugs.gnu.org; 29 Dec 2024 10:17:31 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sun Dec 29 05:17:31 2024
Received: from localhost ([127.0.0.1]:53817 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1tRqMP-0007SZ-LL
	for submit <at> debbugs.gnu.org; Sun, 29 Dec 2024 05:17:31 -0500
Received: from eggs.gnu.org ([209.51.188.92]:55614)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <acorallo@HIDDEN>) id 1tRqMN-0007SF-Ie
 for 75135 <at> debbugs.gnu.org; Sun, 29 Dec 2024 05:17:24 -0500
Received: from fencepost.gnu.org ([2001:470:142:3::e])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <acorallo@HIDDEN>)
 id 1tRqMC-0001ST-Hj; Sun, 29 Dec 2024 05:17:17 -0500
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org;
 s=fencepost-gnu-org; h=MIME-Version:Date:References:In-Reply-To:Subject:To:
 From; bh=CmSfGyZ7NZf332xdlw9fE0uKZBF5hWYy8aNjJgLg8og=; b=hlfwElu868FQa/zsdWVB
 WOs0eGXHOB5kLJXxfQjvwm3S9jTURo7sbpU2Tr1T3Pjun+BuwtXCbBB3TPrcQpDlVTjKsOkSn+BlC
 vfhu7iT4aXnuJen1c+jBKYjBUv6SOpuzHqlAhYUtfrLZegtr3UwVA/mVJFpa0sHpoLnh0gu4SFmzz
 rflBVgqPja2615kKFe7RJuBGm66IpKgGQX7uvH98AK+wabGYTd6iWYjV4LiH59vrNi82n3uLizmV/
 /ppxaJ88nbPxVL8ONn4RakBQBRUcNCkWanqQa2T7aHfwC+8O8/Q6j13NWCZKWFfW9HrtAzy17g7vX
 YiVuMWzA6NVjWg==;
Received: from acorallo by fencepost.gnu.org with local (Exim 4.90_1)
 (envelope-from <acorallo@HIDDEN>)
 id 1tRqMA-0005PL-DO; Sun, 29 Dec 2024 05:17:11 -0500
From: Andrea Corallo <acorallo@HIDDEN>
To: Hugh Daschbach <hdasch@HIDDEN>
Subject: Re: bug#75135: 30.0.93; Infinite loop in comp--native-compile
In-Reply-To: <87msgiasma.fsf@HIDDEN> (Hugh
 Daschbach's message of "Thu, 26 Dec 2024 16:15:25 -0800")
References: <87msgiasma.fsf@HIDDEN>
Date: Sun, 29 Dec 2024 05:17:10 -0500
Message-ID: <yp1wmfi7pzt.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13)
MIME-Version: 1.0
Content-Type: text/plain
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: 75135
Cc: 75135 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

Hugh Daschbach <hdasch@HIDDEN> writes:

> Emacs hangs when attempting to compile tests from obsolete ELPA package
> seq.
>
> To reproduce:
>
> ```
>  curl -o /tmp/seq-tests.el https://git.savannah.gnu.org/cgit/emacs/elpa.git/plain/tests/seq-tests.el?h=externals/seq
> $ emacs -Q --eval "(progn (setq debug-on-quit t) (require 'comp) (comp--native-compile \"/tmp/seq-tests.el\" nil))"
> ```
>
> Press C-g shortly after the Emacs frame opens.  This produces the
> following backtrace:

Okay I can reproduce on master as well.

> ```
> Debugger entered--Lisp error: (quit)
>   #f(compiled-function (x) #<bytecode -0x145e3142cf39a7e4>)(1)
>   cl--nsublis-rec((1 . #1))
>   cl--nsublis-rec((#s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 34397705172435 :slot 0) (1 . #3)))
>   cl--nsublis-rec(((#s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 34397705172435 :slot 0) (1 . #4))))
>   cl-nsublis(((nil . #s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 34397705043564 :slot 1))) (#s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 34397705172435 :slot 0) (1 . #4)) :if #f(compiled-function (x) #<bytecode -0x145e3142cf39a7e4>))
>   cl-nsubst-if(#s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 34397705043564 :slot 1) #f(compiled-function (x) #<bytecode -0x145e3142cf39a7e4>) (#s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 34397705172435 :slot 0) (1 . #5)))
>   comp--ssa-rename-insn((setimm #s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 34397705172435 :slot 0) (1 . #4)) #s(comp-vec :data #<hash-table eql 5/6 0x1f48d6ffbc9c ...> :beg 0 :end 5))

[...]

>   comp--ssa()
>   comp--fwprop(nil)
>   comp--native-compile("/tmp/seq-tests.el" nil)
>   (progn (setq debug-on-quit t) (require 'comp) (comp--native-compile "/tmp/seq-tests.el" nil))
>   eval((progn (setq debug-on-quit t) (require 'comp) (comp--native-compile "/tmp/seq-tests.el" nil)) t)
>   command-line-1(("--eval" "(progn (setq debug-on-quit t) (require 'comp) (comp--native-compile \"/tmp/seq-tests.el\" nil))"))
>   command-line()
>   normal-top-level()
> ```
>
> Admittedly, trying to compile an obsolete ELPA package is not a good
> idea.  In fact, it was a configuration bug.  But it might be interesting
> to see why the compiler hangs.

Yes it's certanly interesting thanks for the report will look at.

  Andrea




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#75135; Package emacs. Full text available.

Message received at submit <at> debbugs.gnu.org:


Received: (at submit) by debbugs.gnu.org; 27 Dec 2024 06:12:18 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Dec 27 01:12:18 2024
Received: from localhost ([127.0.0.1]:44432 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1tR3a2-0004wH-Td
	for submit <at> debbugs.gnu.org; Fri, 27 Dec 2024 01:12:18 -0500
Received: from lists.gnu.org ([209.51.188.17]:57162)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <hdasch@HIDDEN>) id 1tQy1G-0003U7-VJ
 for submit <at> debbugs.gnu.org; Thu, 26 Dec 2024 19:16:02 -0500
Received: from eggs.gnu.org ([2001:470:142:3::10])
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <hdasch@HIDDEN>) id 1tQy1G-0000oU-OO
 for bug-gnu-emacs@HIDDEN; Thu, 26 Dec 2024 19:15:58 -0500
Received: from vps1.ccss.com ([192.241.205.204])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <hdasch@HIDDEN>) id 1tQy1D-0006M6-UV
 for bug-gnu-emacs@HIDDEN; Thu, 26 Dec 2024 19:15:58 -0500
Received: from localhost (localhost [127.0.0.1])
 by vps1.ccss.com (Postfix) with ESMTP id B5383200D1
 for <bug-gnu-emacs@HIDDEN>; Thu, 26 Dec 2024 16:15:50 -0800 (PST)
Received: from vps1.ccss.com ([127.0.0.1])
 by localhost (vps1.ccss.com [127.0.0.1]) (amavis, port 10024) with ESMTP
 id 1GM23UABbFac for <bug-gnu-emacs@HIDDEN>;
 Thu, 26 Dec 2024 16:15:48 -0800 (PST)
Authentication-Results: vps1.ccss.com;
 dmarc=none (p=none dis=none) header.from=ccss.com
Received: from ccss.com (ccss.ccss.com [192.168.42.2])
 by vps1.ccss.com (Postfix) with ESMTPS id 0845E200D0
 for <bug-gnu-emacs@HIDDEN>; Thu, 26 Dec 2024 16:15:48 -0800 (PST)
Received: from klaatu (klaatu.lan [192.168.42.3])
 by ccss.com (Postfix) with ESMTPS id D28CE3C00A2
 for <bug-gnu-emacs@HIDDEN>; Thu, 26 Dec 2024 16:15:47 -0800 (PST)
From: Hugh Daschbach <hdasch@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: 30.0.93; Infinite loop in comp--native-compile
X-Debbugs-Cc: 
Date: Thu, 26 Dec 2024 16:15:25 -0800
Message-ID: <87msgiasma.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
Received-SPF: pass client-ip=192.241.205.204; envelope-from=hdasch@HIDDEN;
 helo=vps1.ccss.com
X-Spam_score_int: -18
X-Spam_score: -1.9
X-Spam_bar: -
X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9,
 RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, RCVD_IN_VALIDITY_SAFE_BLOCKED=0.001,
 SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -1.3 (-)
X-Debbugs-Envelope-To: submit
X-Mailman-Approved-At: Fri, 27 Dec 2024 01:12:12 -0500
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.3 (--)

Emacs hangs when attempting to compile tests from obsolete ELPA package
seq.

To reproduce:

```
 curl -o /tmp/seq-tests.el https://git.savannah.gnu.org/cgit/emacs/elpa.git=
/plain/tests/seq-tests.el?h=3Dexternals/seq
$ emacs -Q --eval "(progn (setq debug-on-quit t) (require 'comp) (comp--nat=
ive-compile \"/tmp/seq-tests.el\" nil))"
```

Press C-g shortly after the Emacs frame opens.  This produces the
following backtrace:

```
Debugger entered--Lisp error: (quit)
  #f(compiled-function (x) #<bytecode -0x145e3142cf39a7e4>)(1)
  cl--nsublis-rec((1 . #1))
  cl--nsublis-rec((#s(comp-mvar :typeset (t) :valset nil :range nil :neg ni=
l :id 34397705172435 :slot 0) (1 . #3)))
  cl--nsublis-rec(((#s(comp-mvar :typeset (t) :valset nil :range nil :neg n=
il :id 34397705172435 :slot 0) (1 . #4))))
  cl-nsublis(((nil . #s(comp-mvar :typeset (t) :valset nil :range nil :neg =
nil :id 34397705043564 :slot 1))) (#s(comp-mvar :typeset (t) :valset nil :r=
ange nil :neg nil :id 34397705172435 :slot 0) (1 . #4)) :if #f(compiled-fun=
ction (x) #<bytecode -0x145e3142cf39a7e4>))
  cl-nsubst-if(#s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :i=
d 34397705043564 :slot 1) #f(compiled-function (x) #<bytecode -0x145e3142cf=
39a7e4>) (#s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 343=
97705172435 :slot 0) (1 . #5)))
  comp--ssa-rename-insn((setimm #s(comp-mvar :typeset (t) :valset nil :rang=
e nil :neg nil :id 34397705172435 :slot 0) (1 . #4)) #s(comp-vec :data #<ha=
sh-table eql 5/6 0x1f48d6ffbc9c ...> :beg 0 :end 5))
  #f(compiled-function (bb in-frame) #<bytecode -0x950d6b51c773586>)(#s(com=
p-block-lap :name bb_0 :insns ((setimm #s(comp-mvar :typeset (t) :valset ni=
l :range nil :neg nil :id 34397705172435 :slot 0) (1 . #6)) (call specbind =
#s(comp-mvar :typeset nil :valset (l1) :range nil :neg nil :id nil :slot ni=
l) #s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id nil :slot =
0)) (setimm #s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id n=
il :slot 0) equal) (call specbind #s(comp-mvar :typeset nil :valset (fn-171=
6) :range nil :neg nil :id nil :slot nil) #s(comp-mvar :typeset (t) :valset=
 nil :range nil :neg nil :id nil :slot 0)) (setimm #s(comp-mvar :typeset (t=
) :valset nil :range nil :neg nil :id nil :slot 0) (error)) (push-handler c=
ondition-case #s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id=
 nil :slot 0) bb_3 bb_1)) :closed t :in-edges (#s(comp-edge :src #s(comp-bl=
ock-lap :name entry :insns ((comment "Lisp function: nil") (jump bb_0)) :cl=
osed nil :in-edges nil :out-edges (#3) :idom #4 :df #<hash-table eql 0/0 0x=
1f48d6d5dc56 ...> :post-num 7 :final-frame #s(comp-vec :data #<hash-table e=
ql 5/6 0x1f48d6f5e86a ...> :beg 0 :end 5) :sp -1 :addr nil :non-ret-insn ni=
l :no-ret nil) :dst #1 :number 0)) :out-edges (#s(comp-edge :src #1 :dst #s=
(comp-block-lap :name bb_1 :insns ((setimm #s(comp-mvar :typeset ... :valse=
t nil :range nil :neg nil :id nil :slot 0) seq-mapn) (setimm #s(comp-mvar :=
typeset ... :valset nil :range nil :neg nil :id nil :slot 1) +) (setimm #s(=
comp-mvar :typeset ... :valset nil :range nil :neg nil :id nil :slot 2) (3 =
4 5 7)) (set #s(comp-mvar :typeset ... :valset nil :range nil :neg nil :id =
nil :slot 3) (call symbol-value ...)) (set #s(comp-mvar :typeset ... :valse=
t nil :range nil :neg nil :id nil :slot 0) (callref funcall ... ... ... ...=
)) (setimm #s(comp-mvar :typeset ... :valset nil :range nil :neg nil :id ni=
l :slot 1) (4 5 6 8)) (set #s(comp-mvar :typeset ... :valset nil :range nil=
 :neg nil :id nil :slot 1) (call cons ... ...)) (set #s(comp-mvar :typeset =
... :valset nil :range nil :neg nil :id nil :slot 0) (call cons ... ...)) (=
pop-handler) (jump bb_4)) :closed t :in-edges (#3) :out-edges (#s(comp-edge=
 :src #4 :dst #s(comp-block-lap :name bb_4 :insns ... :closed t :in-edges .=
.. :out-edges ... :idom #1 :df #<hash-table eql 0/0 0x1f48d6db0e9b ...> :po=
st-num 2 :final-frame nil :sp 0 :addr 25 :non-ret-insn nil :no-ret nil) :nu=
mber 8)) :idom #1 :df #<hash-table eql 1/6 0x1f48d6df564a ...> :post-num 3 =
:final-frame nil :sp -1 :addr 6 :non-ret-insn nil :no-ret nil) :number 2) #=
s(comp-edge :src #1 :dst #s(comp-block-lap :name bb_3 :insns ((fetch-handle=
r #s(comp-mvar :typeset ... :valset nil :range nil :neg nil :id nil :slot 0=
)) (jump bb_2)) :closed t :in-edges (#4) :out-edges (#s(comp-edge :src #5 :=
dst #s(comp-block-lap :name bb_2 :insns ... :closed nil :in-edges ... :out-=
edges ... :idom #5 :df #<hash-table eql 1/6 0x1f48d6ddb42f ...> :post-num 4=
 :final-frame nil :sp 0 :addr 15 :non-ret-insn nil :no-ret nil) :number 3))=
 :idom #1 :df #<hash-table eql 1/6 0x1f48d6dd6fb2 ...> :post-num 5 :final-f=
rame nil :sp -1 :addr nil :non-ret-insn nil :no-ret nil) :number 1)) :idom =
#s(comp-block-lap :name entry :insns ((comment "Lisp function: nil") (jump =
bb_0)) :closed nil :in-edges nil :out-edges (#s(comp-edge :src #2 :dst #1 :=
number 0)) :idom #2 :df #<hash-table eql 0/0 0x1f48d6d5dc56 ...> :post-num =
7 :final-frame #s(comp-vec :data #<hash-table eql 5/6 0x1f48d6f5e86a ...> :=
beg 0 :end 5) :sp -1 :addr nil :non-ret-insn nil :no-ret nil) :df #<hash-ta=
ble eql 0/0 0x1f48d6d5d965 ...> :post-num 6 :final-frame nil :sp -1 :addr 0=
 :non-ret-insn nil :no-ret nil) #s(comp-vec :data #<hash-table eql 5/6 0x1f=
48d6ffbc9c ...> :beg 0 :end 5))
  #f(compiled-function (bb in-frame) #<bytecode -0x950d6b51c773586>)(#s(com=
p-block-lap :name entry :insns ((comment "Lisp function: nil") (jump bb_0))=
 :closed nil :in-edges nil :out-edges (#s(comp-edge :src #1 :dst #s(comp-bl=
ock-lap :name bb_0 :insns ((setimm #s(comp-mvar :typeset ... :valset nil :r=
ange nil :neg nil :id 34397705172435 :slot 0) (1 . #9)) (call specbind #s(c=
omp-mvar :typeset nil :valset ... :range nil :neg nil :id nil :slot nil) #s=
(comp-mvar :typeset ... :valset nil :range nil :neg nil :id nil :slot 0)) (=
setimm #s(comp-mvar :typeset ... :valset nil :range nil :neg nil :id nil :s=
lot 0) equal) (call specbind #s(comp-mvar :typeset nil :valset ... :range n=
il :neg nil :id nil :slot nil) #s(comp-mvar :typeset ... :valset nil :range=
 nil :neg nil :id nil :slot 0)) (setimm #s(comp-mvar :typeset ... :valset n=
il :range nil :neg nil :id nil :slot 0) (error)) (push-handler condition-ca=
se #s(comp-mvar :typeset ... :valset nil :range nil :neg nil :id nil :slot =
0) bb_3 bb_1)) :closed t :in-edges (#3) :out-edges (#s(comp-edge :src #4 :d=
st #s(comp-block-lap :name bb_1 :insns ... :closed t :in-edges ... :out-edg=
es ... :idom #4 :df #<hash-table eql 1/6 0x1f48d6df564a ...> :post-num 3 :f=
inal-frame nil :sp -1 :addr 6 :non-ret-insn nil :no-ret nil) :number 2) #s(=
comp-edge :src #4 :dst #s(comp-block-lap :name bb_3 :insns ... :closed t :i=
n-edges ... :out-edges ... :idom #4 :df #<hash-table eql 1/6 0x1f48d6dd6fb2=
 ...> :post-num 5 :final-frame nil :sp -1 :addr nil :non-ret-insn nil :no-r=
et nil) :number 1)) :idom #1 :df #<hash-table eql 0/0 0x1f48d6d5d965 ...> :=
post-num 6 :final-frame nil :sp -1 :addr 0 :non-ret-insn nil :no-ret nil) :=
number 0)) :idom #1 :df #<hash-table eql 0/0 0x1f48d6d5dc56 ...> :post-num =
7 :final-frame #s(comp-vec :data #<hash-table eql 5/6 0x1f48d6f5e86a ...> :=
beg 0 :end 5) :sp -1 :addr nil :non-ret-insn nil :no-ret nil) #s(comp-vec :=
data #<hash-table eql 5/6 0x1f48d6f5e86a ...> :beg 0 :end 5))
  comp--ssa-rename()
  #<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_100>("F616e6f6e=
796d6f75732d6c616d626461_anonymous_lambda_399" #s(comp-func-d :name nil :c-=
name "F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_399" :byte-func #f=
(compiled-function () #<bytecode 0x1d75f3728f817ae2>) :doc nil :int-spec ni=
l :command-modes nil :lap ((byte-constant (1 . #6) . 6) (byte-varbind l1 . =
0) (byte-constant equal . 7) (byte-varbind fn-1716 . 1) (byte-constant (err=
or) . 8) (byte-pushconditioncase TAG 19 . 1) (byte-constant seq-mapn . 9) (=
byte-constant + . 10) (byte-constant (3 4 5 7) . 11) (byte-varref l1 . 0) (=
byte-call . 3) (byte-constant (4 5 6 8) . 12) (byte-list2 . 0) (byte-pophan=
dler) (byte-goto TAG 28 . 1) (TAG 19 . 1) (byte-varbind err . 2) (byte-cons=
tant signal . 13) (byte-varset fn-1716 . 1) (byte-varref err . 2) (byte-car=
 . 0) (byte-varref err . 2) (byte-cdr . 0) (byte-unbind . 1) (byte-list2 . =
0) (TAG 28 . 1) (byte-varbind args-1717 . 3) (byte-constant ert-form-evalua=
tion-aborted-1719 . 14) (byte-varbind value-1718 . 4) (byte-constant nil . =
15) (byte-varbind form-description-1720 . 5) (byte-constant #f(compiled-fun=
ction () #<bytecode 0x4331903cd0037d8>) . 16) (byte-unwind-protect . 0) (by=
te-constant apply . 17) (byte-varref fn-1716 . 1) (byte-varref args-1717 . =
3) (byte-call . 2) (byte-dup . 0) (byte-varset value-1718 . 4) (byte-unbind=
 . 1) (byte-goto-if-not-nil TAG 49 . 0) (byte-constant ert-fail . 18) (byte=
-varref form-description-1720 . 5) (byte-call . 1) (byte-discard) (TAG 49 .=
 0) (byte-unbind . 1) (byte-varref value-1718 . 4) (byte-unbind . 4) (byte-=
constant nil . 15) ...) :ssa-status nil :frame-size 5 :vframe-size 0 :block=
s #<hash-table eq 8/24 0x1f48d6ca4ed6 ...> :lap-block #<hash-table equal 0/=
0 0x1f48d6ca4ec0 ...> :edges-h #<hash-table eql 9/24 0x1f48d6ca4f55 ...> :b=
lock-cnt-gen #f(compiled-function () #<bytecode 0x41f1ebb0af513a>) :edge-cn=
t-gen #f(compiled-function () #<bytecode 0x41f1ebb0af51e2>) :has-non-local =
t :speed 2 :safety 1 :pure nil :declared-type nil :type #s(comp-mvar :types=
et nil :valset (nil) :range nil :neg nil :id nil :slot nil) :lambda-list ni=
l))
  comp--ssa()
  comp--fwprop(nil)
  comp--native-compile("/tmp/seq-tests.el" nil)
  (progn (setq debug-on-quit t) (require 'comp) (comp--native-compile "/tmp=
/seq-tests.el" nil))
  eval((progn (setq debug-on-quit t) (require 'comp) (comp--native-compile =
"/tmp/seq-tests.el" nil)) t)
  command-line-1(("--eval" "(progn (setq debug-on-quit t) (require 'comp) (=
comp--native-compile \"/tmp/seq-tests.el\" nil))"))
  command-line()
  normal-top-level()
```

Admittedly, trying to compile an obsolete ELPA package is not a good
idea.  In fact, it was a configuration bug.  But it might be interesting
to see why the compiler hangs.

Thanks,
Hugh

--


In GNU Emacs 30.0.93 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo
 version 1.18.2, Xaw3d scroll bars) of 2024-12-24 built on klaatu
Repository revision: 8064b2a67988e815c52e289fe2a235ce1008776f
Repository branch: emacs-30
Windowing system distributor 'The X.Org Foundation', version 11.0.12401004
System Description: Arch Linux

Configured using:
 'configure --with-x-toolkit=3Dlucid --with-native-compilation
 --prefix=3D/home/hugh/.local'

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
LCMS2 LIBSYSTEMD LIBXML2 MODULES NATIVE_COMP NOTIFY INOTIFY PDUMPER PNG
RSVG SECCOMP SOUND SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS TREE_SITTER
WEBP X11 XAW3D XDBE XIM XINPUT2 XPM LUCID ZLIB

Important settings:
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  minibuffer-regexp-mode: t
  line-number-mode: t
  indent-tabs-mode: t
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
None found.

Features:
(shadow sort mail-extr comp-run emacsbug message mailcap yank-media puny
dired dired-loaddefs rfc822 mml mml-sec password-cache epa derived epg
rfc6068 epg-config gnus-util mm-decode mm-bodies mm-encode mail-parse
rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045
ietf-drums mm-util mail-prsvr mail-utils thingatpt help-fns radix-tree
cl-print time-date pcase cl-macs ert map byte-opt pp ewoc debug
backtrace find-func compile text-property-search comint ansi-osc
ansi-color ring comp cl-seq comp-cstr cl-extra help-mode comp-common
warnings icons subr-x rx gv cl-loaddefs cl-lib bytecomp byte-compile rmc
iso-transl tooltip cconv eldoc paren electric uniquify ediff-hook
vc-hooks lisp-float-type elisp-mode mwheel term/x-win x-win
term/common-win x-dnd touch-screen tool-bar dnd fontset image regexp-opt
fringe tabulated-list replace newcomment text-mode lisp-mode prog-mode
register page tab-bar menu-bar rfn-eshadow isearch easymenu timer select
scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors
frame minibuffer nadvice seq simple cl-generic indonesian philippine
cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech
european ethiopic indian cyrillic chinese composite emoji-zwj charscript
charprop case-table epa-hook jka-cmpr-hook help abbrev obarray oclosure
cl-preloaded button loaddefs theme-loaddefs faces cus-face macroexp
files window text-properties overlay sha1 md5 base64 format env
code-pages mule custom widget keymap hashtable-print-readable backquote
threads dbusbind inotify lcms2 dynamic-setting system-font-setting
font-render-setting cairo x-toolkit xinput2 x multi-tty move-toolbar
make-network-process native-compile emacs)

Memory information:
nil




Acknowledgement sent to Hugh Daschbach <hdasch@HIDDEN>:
New bug report received and forwarded. Copy sent to bug-gnu-emacs@HIDDEN. Full text available.
Report forwarded to bug-gnu-emacs@HIDDEN:
bug#75135; Package emacs. Full text available.
Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.
Last modified: Sun, 12 Jan 2025 05:45:02 UTC

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