From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Andrea Corallo Newsgroups: gmane.emacs.bugs Subject: bug#57627: 29.0.50; [native-compilation] cl-loaddefs.el recompiled on startup Date: Sun, 13 Oct 2024 17:20:15 -0400 Message-ID: References: <1ec93fc2a0eaa42f9d6464984867031f@webmail.orcon.net.nz> <86tteihdxy.fsf@gnu.org> <26e8c6a5ade1c40d841f27e85270b07c@webmail.orcon.net.nz> <86ikug6twn.fsf@gnu.org> <865xpxy3c2.fsf@gnu.org> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="9021"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Cc: psainty@orcon.net.nz, 57627@debbugs.gnu.org, larsi@gnus.org, arash@gnu.org, monnier@iro.umontreal.ca To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Sun Oct 13 23:21:15 2024 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1t061a-0002CA-5J for geb-bug-gnu-emacs@m.gmane-mx.org; Sun, 13 Oct 2024 23:21:14 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1t061D-0002IW-Gj; Sun, 13 Oct 2024 17:20:51 -0400 Original-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 ) id 1t061A-0002IH-7O for bug-gnu-emacs@gnu.org; Sun, 13 Oct 2024 17:20:48 -0400 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1t0619-0004Ac-Vc for bug-gnu-emacs@gnu.org; Sun, 13 Oct 2024 17:20:48 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=MIME-Version:Date:References:In-Reply-To:From:To:Subject; bh=tbhmZzUO+4az7e4X9cSnSmxWdUnCmko/7MOsqhesqAc=; b=EtgdbQxLVVCntYenkiDsF1KOEIlcFJWgScXV9gEmoxuz96u6rkO18dAIwkdIBWOBPk6ck81G25HP8/4fFZeXBap1XRMaiCjEGFLO3g6GoYQi64LNBuE5aRLDsmmV41Ztth84xZiqwRlaKWJSO8Pf4JRWCbADiS29B5IJS1eAznrW11oo5Iw/smJXmeaAQDU4R7EM5B3PPol7jDemJPMattcYuyN14FXu/6fk749sNvH3p5Bo6lEw+xAM76nLAV5UcCsNfuy3Z+jXMNOvwXKiX7vtY4gWgCk4AS52SPb2YOvyxYIq03cqQBbgIH8rCiqlBGZS/WuASGhXkE8LN2bODQ==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1t061O-0006LZ-IT for bug-gnu-emacs@gnu.org; Sun, 13 Oct 2024 17:21:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Andrea Corallo Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 13 Oct 2024 21:21:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 57627 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: moreinfo Original-Received: via spool by 57627-submit@debbugs.gnu.org id=B57627.172885444324348 (code B ref 57627); Sun, 13 Oct 2024 21:21:02 +0000 Original-Received: (at 57627) by debbugs.gnu.org; 13 Oct 2024 21:20:43 +0000 Original-Received: from localhost ([127.0.0.1]:58029 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1t0614-0006Ke-Vb for submit@debbugs.gnu.org; Sun, 13 Oct 2024 17:20:43 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:34714) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1t0613-0006KJ-7l for 57627@debbugs.gnu.org; Sun, 13 Oct 2024 17:20:41 -0400 Original-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 ) id 1t060f-00047l-FW; Sun, 13 Oct 2024 17:20:17 -0400 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=tbhmZzUO+4az7e4X9cSnSmxWdUnCmko/7MOsqhesqAc=; b=UKPJsHXKm9HaCL0rGb0w Be6W5dJyDjTKzGpm9JhGeIYZmPF6yU7rOS/G6JaXyqd0l7Z+OmhTIqDOnPoRLzS2Lpa53+qS0FzKD mxb+UlH+SfoyU2vgVfQiyYzbmMqH5yJtg6MVZkTVZX0Dt0mX0Dc8JQ7jsZLRp8myrZMcBIXIUT0q2 gRBbT28lP7lRoNnaUQs1Emm7NuCmDG7kI4vKlqeMk3mi4trnbRzcPmQI4hFxHpH+OBognvmlklnii /NXhlW1D0G5P5WYeziUerMQl7Mflm7uAIf1dNwaWP6I+gdmia9Ki8Qtoz/6iD+5VW/Qnf2zwBzYiv PesbjIP9JFXHhw==; Original-Received: from acorallo by fencepost.gnu.org with local (Exim 4.90_1) (envelope-from ) id 1t060e-0006zl-2g; Sun, 13 Oct 2024 17:20:16 -0400 In-Reply-To: <865xpxy3c2.fsf@gnu.org> (Eli Zaretskii's message of "Sat, 12 Oct 2024 14:21:01 +0300") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.bugs:293552 Archived-At: Eli Zaretskii writes: > Ping! Here I'm. I tried again reproducing the bug but with no success, maybe it depends on the configuration? Anyway the following patch makes Phil test return (t t t t), essentially if "file" ends with ".el.gz" we just remove the final ".gz" and keep the previous logic. ================== modified lisp/emacs-lisp/comp-run.el @@ -143,20 +143,24 @@ native--compile-async-skip-p LOAD and SELECTOR work as described in `native--compile-async'." ;; Make sure we are not already compiling `file' (bug#40838). - (or (gethash file comp-async-compilations) - (gethash (file-name-with-extension file "elc") comp--no-native-compile) - (cond - ((null selector) nil) - ((functionp selector) (not (funcall selector file))) - ((stringp selector) (not (string-match-p selector file))) - (t (error "SELECTOR must be a function a regexp or nil"))) - ;; Also exclude files from deferred compilation if - ;; any of the regexps in - ;; `native-comp-jit-compilation-deny-list' matches. - (and (eq load 'late) - (seq-some (lambda (re) - (string-match-p re file)) - native-comp-jit-compilation-deny-list)))) + (let ((file (if (string-match (rx (group-n 1 (one-or-more nonl) ".el") ".gz" eol) + file) + (match-string 1 file) + file))) + (or (gethash file comp-async-compilations) + (gethash (file-name-with-extension file "elc") comp--no-native-compile) + (cond + ((null selector) nil) + ((functionp selector) (not (funcall selector file))) + ((stringp selector) (not (string-match-p selector file))) + (t (error "SELECTOR must be a function a regexp or nil"))) + ;; Also exclude files from deferred compilation if + ;; any of the regexps in + ;; `native-comp-jit-compilation-deny-list' matches. + (and (eq load 'late) + (seq-some (lambda (re) + (string-match-p re file)) + native-comp-jit-compilation-deny-list))))) (defvar comp-files-queue () "List of Emacs Lisp files to be compiled.") ================== Andrea