From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1.migadu.com ([2001:41d0:303:e224::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms8.migadu.com with LMTPS id UA19DBd9zGUOqAAA62LTzQ:P1 (envelope-from ) for ; Wed, 14 Feb 2024 09:43:03 +0100 Received: from aspmx1.migadu.com ([2001:41d0:303:e224::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1.migadu.com with LMTPS id UA19DBd9zGUOqAAA62LTzQ (envelope-from ) for ; Wed, 14 Feb 2024 09:43:03 +0100 X-Envelope-To: larch@yhetil.org Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=bayesians.ca header.s=protonmail2 header.b=BN0nKTZ0; dmarc=pass (policy=none) header.from=gnu.org; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1707900183; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding:resent-cc: resent-from:resent-sender:resent-message-id:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=3jnP6r0jIyP2e5TB9ZfOJcJxfG2Rb7K6RREOi1rVARI=; b=DXjJ47MKmlKBI8w6ORZnTs8Z4DpWkPSaCwJuC7p8eGblvqcAO1X8cBIO/P02+j7GGGAqg0 cBv4PY0B/RjSwdHdgmaOb8OfzvvKrGgpUasPtLW7UMOTjb6Ny7j8kSlRGQ32lyXghyADK5 NSJxuc/ar8Q3l5mv5vr54cvael0ZhN+kS6d0CEGmmT8xwOYvHX73haJ62+owg/IeDdu7zX NXdWoJ3bxjr3k7FqAdfiWPonuTWwZKliWj95LsnZbImJV4Ch3V6PVcIWlxYMsphKcmq3TA HEZcFSvAxAh4EoakDtkP4wxWzOR4rIVnHb59T+LhIs9RbEPjI2UK4m7PWMBhQg== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=bayesians.ca header.s=protonmail2 header.b=BN0nKTZ0; dmarc=pass (policy=none) header.from=gnu.org; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" ARC-Seal: i=1; s=key1; d=yhetil.org; t=1707900183; a=rsa-sha256; cv=none; b=gFkQqkbSqFX1MiIgvvWsnG4IcdqWatU0yHEduRWbcqY9QqaeB90JOpn/la7zfYC05PZKK6 0h2ExvCHX7tTHJ5WJ2fRNHS6+XxuOvwrCC9I8SvK1s8iP00hOWqb1SThIR0NsN/+JMolSo shQwnyNoTl7nsHTJyskxUntRm4kM/LtuHyPQs1IBliwgjdm4K2Ay2hiYAiqYlHaxInCz/N MVp/BbgYJQUM6DnrwwAdr8FgKSMAE0n/VYPltr/OMQjXSY9bRCkL0+kGUYqmPhdZobgpiG 9pDQE04/qSZvp11J1SlhzJXNFjdjr6GwvPr87Yvsj8so9do2U0fXhYu2AfKtMg== Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 9CA3B1D2E7 for ; Wed, 14 Feb 2024 09:43:02 +0100 (CET) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1raAqu-0006DY-My; Wed, 14 Feb 2024 03:42:48 -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 ) id 1raAqr-0006DD-1l for guix-patches@gnu.org; Wed, 14 Feb 2024 03:42:46 -0500 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 1raAqq-0004r4-Nt for guix-patches@gnu.org; Wed, 14 Feb 2024 03:42:44 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1raAr8-0002Zs-AW for guix-patches@gnu.org; Wed, 14 Feb 2024 03:43:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#67260] [PATCH emacs-team v9*] Test for AOT native-comp References: In-Reply-To: Resent-From: Suhail Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Wed, 14 Feb 2024 08:43:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 67260 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: bug#67260 <67260@debbugs.gnu.org> Received: via spool by 67260-submit@debbugs.gnu.org id=B67260.17079001389826 (code B ref 67260); Wed, 14 Feb 2024 08:43:02 +0000 Received: (at 67260) by debbugs.gnu.org; 14 Feb 2024 08:42:18 +0000 Received: from localhost ([127.0.0.1]:50231 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1raAqP-0002YO-KS for submit@debbugs.gnu.org; Wed, 14 Feb 2024 03:42:18 -0500 Received: from mail-4022.proton.ch ([185.70.40.22]:17103) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1raAqL-0002Y9-6Q for 67260@debbugs.gnu.org; Wed, 14 Feb 2024 03:42:16 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=bayesians.ca; s=protonmail2; t=1707900108; x=1708159308; bh=3jnP6r0jIyP2e5TB9ZfOJcJxfG2Rb7K6RREOi1rVARI=; h=Date:To:From:Subject:Message-ID:Feedback-ID:From:To:Cc:Date: Subject:Reply-To:Feedback-ID:Message-ID:BIMI-Selector; b=BN0nKTZ0T0ZUSMBEp1N0x+oOu8YyTMluJ8t/T2BXxkz87k584244K2Z8vhRcLzPZe N14DnxTjoEsZrL27sjijMQMlX9/5FLollaB9NuLL2YDENnOi4dMNEA2mKnKqZb9Ugx YvTzqNqdIS0f/As7BmIhgCOAUKN8+m4DSvzumg1i0a91LlDHE/NDplIm4lI8lsGlEd 8AW5osXFFkWto4BL83vqw9BcTkV9JcY5ZHWaTObP9fYiWios09j0UfmcJI0Ijvo8hL 9gyuwkzp2gltJjtPdDlg1FWJZ67X4EBA508qKPlLFXeBrPf3os1L04qnmUjzUgRJIj La8npVhGeGFWA== Date: Wed, 14 Feb 2024 08:41:30 +0000 Message-ID: <87bk8jbfpu.fsf_-_@gmail.com> Feedback-ID: 38691229:user:proton MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-to: Suhail X-ACL-Warn: , Suhail via Guix-patches From: Suhail via Guix-patches via Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: guix-patches-bounces+larch=yhetil.org@gnu.org X-Migadu-Flow: FLOW_IN X-Migadu-Country: US X-Migadu-Spam-Score: -6.98 X-Spam-Score: -6.98 X-Migadu-Queue-Id: 9CA3B1D2E7 X-Migadu-Scanner: mx12.migadu.com X-TUID: F9mACfgtSzIx So I wrote some code to make it easier to report on the state of native-comp for some of the packages previously mentioned (the *.eln files for these packages reside under the "preloaded" directory in a non-Guix distribution). I'm including below both the contents of the script as well as the results. First the results. Assuming that the file test-native-comp-p--preloaded.el exists, evaluating the below: #+begin_src sh :results replace emacs -Q --batch \ -l path/to/test-native-comp-p--preloaded.el \ --eval "(princ (report/compilation-status/run))" #+end_src With a non-Guix Emacs results in: #+RESULTS: : [97/97] passed. Success! Whereas with the latest patch-series it results in 41 failing cases: #+RESULTS: #+begin_example [56/97] passed. 41 failing cases below: ((backquote-process . byte-compiled) (byte-run-strip-symbol-positions . byte-compiled) (cconv-convert . byte-compiled) (use-default-char-width-table . byte-compiled) (cl-generic-p . byte-compiled) (cl-struct-define . byte-compiled) (x-setup-function-keys . byte-compiled) (debug-early . byte-compiled) (easy-menu-item-present-p . byte-compiled) (eldoc-mode . byte-compiled) (elisp-mode-syntax-propertize . byte-compiled) (fill-region . byte-compiled) (fontset-plain-name . byte-compiled) (indian-compose-regexp . byte-compiled) (msdos-setup-keyboard . byte-compiled) (iso-transl-set-language . byte-compiled) (forward-sexp . byte-compiled) (lisp-string-in-doc-position-p . byte-compiled) (macroexp-compiling-p . byte-compiled) (map-y-or-n-p . byte-compiled) (egyptian-shape-grouping . byte-compiled) (convert-define-charset-argument . byte-compiled) (coding-system-change-eol-conversion . byte-compiled) (store-substring . byte-compiled) (advice-function-mapc . byte-compiled) (oclosure-type . byte-compiled) (forward-page . byte-compiled) (sentence-end . byte-compiled) (prog-context-menu . byte-compiled) (regexp-opt . byte-compiled) (read-multiple-choice . byte-compiled) (seq-first . byte-compiled) (hack-read-symbol-shorthands . byte-compiled) (syntax-propertize-multiline . byte-compiled) (tabulated-list-put-tag . byte-compiled) (text-mode . byte-compiled) (timer-activate . byte-compiled) (tty-color-desc . byte-compiled) (ucs-normalize-hfs-nfd-comp-p . byte-compiled) (vc-mode . byte-compiled) (x-handle-no-bitmap-icon . byte-compiled)) #+end_example The content of test-native-comp-p--preloaded.el are as follows: #+begin_src elisp :eval never (require 'help-fns) (defun report/compilation-status (fun &optional feature) "Report on the compilation status of function FUN. Optionally load FEATURE before reporting on compilation status." (when feature (require feature)) (let ((descstr (substring-no-properties (with-output-to-string (help-fns-function-description-header fun))))) (cons fun (cond ((string-search " native-compiled" descstr) 'native-compiled) ((string-search " byte-compiled" descstr) 'byte-compiled) (t descstr))))) ;; [[/usr/share/emacs/29.2/lisp]] (defvar report/compilation-status/cases/preloaded nil "Functions that ought to be natively-compiled.") (setq report/compilation-status/cases/preloaded '((abbrev-mode) (backquote-process) (mode-line-widen) (buffer-menu) ;; burmese (button-mode) (byte-run-strip-symbol-positions) (case-table-get-table) (cconv-convert) ;; cham (use-default-char-width-table) ;; chinese (cl-generic-p) (cl-struct-define) (x-setup-function-keys) (encode-composition-rule) ;; cp51932 (custom-declare-face) (minibuffer-prompt-properties--setter) ;; cus-start.el (custom-add-choice) ;; cyrillic ;; czech (debug-early) (display-table-slot disp-table) ;; disp-table.eln exists (dnd-open-file) (dos-mode25 dos-fns) ;; dos-fns.eln exists ;; dos-vars (find-file-text dos-w32) ;; dos-w32.eln exists (dynamic-setting-handle-config-changed-event) (easy-menu-item-present-p) ;; ediff-hook (eldoc-mode) (electric-indent-mode) (elisp-mode-syntax-propertize) ;; english (getenv) (epa-file-find-file-hook) ;; ethiopic ;; eucjp-ms ;; european (face-list) (find-file-noselect) (fill-region) ;; float-sup (font-lock-change-mode) (font-lock-add-keywords) (fontset-plain-name) (format-read) (frame-edges) (fringe-mode) ;; georgian ;; greek ;; haiku-win ;; hebrew (help-quick) (image-type) (indent-region) (indian-compose-regexp) ;; indonesian (msdos-setup-keyboard term/internal) ;; internal.eln exists (isearch-abort) (iso-transl-set-language) ;; japanese (jit-lock-mode) (jka-compr-build-file-regexp) (keymap-global-set) ;; khmer ;; korean ;; lao (forward-sexp) (lisp-string-in-doc-position-p) (ls-lisp-set-options ls-lisp) ;; ls-lisp.eln exists (macroexp-compiling-p) (map-y-or-n-p) (menu-find-file-existing) (completion-boundaries) (egyptian-shape-grouping) (mouse-double-click-time) (convert-define-charset-argument) (coding-system-change-eol-conversion) ;; mule-conf.eln (store-substring mule-util) ;; mule-util.eln exists (mouse-wheel-change-button) (advice-function-mapc) (comment-string-strip) ;; (ns-handle-nxopen term/ns-win) (obarray-make) (oclosure-type) (forward-page) (sentence-end) (show-paren-function) ;; (msdos-face-setup term/pc-win) (pgtk-dnd-init-frame pgtk-dnd) ;; pgtk-dnd.eln exists ;; (pgtk-drag-n-drop term/pgtk-win) ;; philippine (prog-context-menu) (regexp-opt) (get-register) (query-replace-descr) (rfn-eshadow-setup-minibuffer) (read-multiple-choice) ;; romanian (scroll-bar-scale) (gui-select-text) (seq-first) (hack-read-symbol-shorthands) (next-error-find-buffer) ;; sinhala ;; slovak (exit-splash-screen) (buffer-local-boundp) (syntax-propertize-multiline) (tab-bar-mode) (tabulated-list-put-tag) ;; tai-viet (text-mode) ;; thai ;; tibetan (timer-activate) (tool-bar-mode) (tooltip-mode) (tty-color-desc) (ucs-normalize-hfs-nfd-comp-p ucs-normalize) ;; ucs-normalize.eln= exists (uniquify-item-p) ;; utf-8-lang.eln (vc-mode) (emacs-version) ;; vietnamese ;; (w32-shell-name) ;; w32-vars.eln ;; (w32-handle-dropped-file 'term/w32-win) (define-widget) (window-right) (x-dnd-init-frame) (x-handle-no-bitmap-icon))) (defun report/compilation-status/run () "Run all cases and report those that aren't native-compiled." (let* ((results (mapcar (lambda (args) (apply #'report/compilation-stat= us args)) report/compilation-status/cases/preloaded)) (failing (seq-filter (lambda (x) (not (eq (cdr x) 'native-compil= ed))) results)) (numtotal (seq-length results)) (numfailing (seq-length failing)) (numpassing (- numtotal numfailing))) (concat (format "[%s/%s] passed." numpassing numtotal) (if failing (concat (format " %s failing cases below:\n\n" numfailin= g) (pp-to-string failing)) " Success!")))) #+end_src Hope this helps! --=20 Suhail