From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: German Pacenza Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 14:30:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 56829@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.165910496931237 (code B ref -1); Fri, 29 Jul 2022 14:30:02 +0000 Received: (at submit) by debbugs.gnu.org; 29 Jul 2022 14:29:29 +0000 Received: from localhost ([127.0.0.1]:33179 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHQzZ-00087l-P5 for submit@debbugs.gnu.org; Fri, 29 Jul 2022 10:29:29 -0400 Received: from lists.gnu.org ([209.51.188.17]:56838) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHQ8z-0006As-Da for submit@debbugs.gnu.org; Fri, 29 Jul 2022 09:35:09 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:46368) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oHQ8s-0005e2-Rc for bug-gnu-emacs@gnu.org; Fri, 29 Jul 2022 09:35:08 -0400 Received: from mail-ej1-x634.google.com ([2a00:1450:4864:20::634]:44755) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1oHQ8k-0008Co-P2 for bug-gnu-emacs@gnu.org; Fri, 29 Jul 2022 09:35:02 -0400 Received: by mail-ej1-x634.google.com with SMTP id ss3so8520979ejc.11 for ; Fri, 29 Jul 2022 06:34:53 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:from:date:message-id:subject:to; bh=FdTm9WTuonuhDtVaeoEyLKLkspa+LaElS4Jy0J51a4s=; b=nYU8UtS5mLDoNaGMSnb32lOHZ/imV4E2CZ5ASvMuTNGha66jstAP61xbtSgRGOxV4q qkKyUa3mmzlLvJgubd9Z5OYnjac/EdAMC8oZmi8Fuu0Wt+JaaQ+y9pWorPwmBE7wpg5N 78rzzEUnGHG9KGyW81ysv8s8XvITljiAtYO8rcfcC3127XE53f8ai9eSEQEC0g+zzxJO lgWRkNjluS0WYP2q9nmeZZLb3cyGMji9omlPiXTgSbM7Lu98DWvtA1uLffx/2fb69RPz H8wkA+hdrYsboHZC98YYj5oB9gf7Y69DDRZmTRCXmQmPnEQpp/oeRB6Ql9362NxGBDr8 nT4A== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=FdTm9WTuonuhDtVaeoEyLKLkspa+LaElS4Jy0J51a4s=; b=DXc/7Z6qnXcq9YEqkkxLC3KbjsmeW7Y5+Q32iUwWQkP9oelCY/58VDwbzb+oEMZvhh 6J/F41pYNg60fYguPc4scUPKTDGln+3JaX60no9AQed3nqWM4vBpnpcvz49pAqdVGY3J B9kEFOU7ZmcUlcngz4ojqjQpeZSlijKQ8Sx23fZtUHhCL0cr5cLgsVDGiJvvWkj9Xe5a XRPTnOTMhrYbfUcnyUaHKRgdOckS6Pm7kdIhYr+LcrHWHrlqD4mWJJpdms+qkacIBOw8 oG2ghQ8oVONivZBrW+alHn/6BW6X8RHUfAKDlgnXQ7amBW2V64739637C0ps8Mxk4IOo d7TA== X-Gm-Message-State: AJIora+dJkUvl0aDGXBXBbPZ2b3wrvO01pPR+MiOcXOomaZ0SmahzZMg zqUz9oAFBihPtQFkIO4ms8tdYFM3SDWG3vb9Cj/2FZG1owcQeQ== X-Google-Smtp-Source: AGRyM1sOy8RWTPzjj2XJPQaRzNwY/o9iLEFTN55i9jLyvdM0GYzicxnaN8Kvz+kdvnIvcQehxU7ZT81XwLpyCfnAQPM= X-Received: by 2002:a17:907:2d23:b0:72b:7c6a:24c with SMTP id gs35-20020a1709072d2300b0072b7c6a024cmr2882108ejc.44.1659101690778; Fri, 29 Jul 2022 06:34:50 -0700 (PDT) MIME-Version: 1.0 From: German Pacenza Date: Fri, 29 Jul 2022 10:34:39 -0300 Message-ID: Content-Type: multipart/alternative; boundary="000000000000ecda2905e4f1b659" Received-SPF: pass client-ip=2a00:1450:4864:20::634; envelope-from=germanp1982@gmail.com; helo=mail-ej1-x634.google.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, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_ENVFROM_END_DIGIT=0.25, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-Mailman-Approved-At: Fri, 29 Jul 2022 10:29:28 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" --000000000000ecda2905e4f1b659 Content-Type: text/plain; charset="UTF-8" Since commit c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 I am unable to build Emacs: make[4]: Leaving directory '/home/german/repos/emacs/admin/grammars' ELC+ELN ../lisp/custom.elc ELC+ELN ../lisp/dnd.elc ELC+ELN ../lisp/disp-table.elc ELC+ELN ../lisp/dos-fns.elc ELC+ELN ../lisp/dos-vars.elc ELC+ELN ../lisp/dos-w32.elc ELC+ELN ../lisp/dynamic-setting.elc ELC+ELN ../lisp/electric.elc libgccjit.so: error: gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3) libgccjit.so: error: gcc_jit_block_add_eval: NULL rvalue Error: native-ice ("international/titdic-cnv.el" "failing to compile function" titdic-convert "gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3)") mapbacktrace((closure ((prin1 . cl-prin1) t) (evald func args _flags) (let ((args args)) (if evald (progn (princ " ") (funcall prin1 func) (princ "(")) (progn (princ " (") (setq args (cons func args)))) (if args (while (progn (funcall prin1 (car args)) (setq args (cdr args))) (princ " "))) (princ ")\n")))) (let ((print-escape-newlines t) (print-escape-control-characters t) (print-escape-nonascii t) (prin1 (if (and (fboundp 'cl-prin1) (require 'cl-print nil t)) #'cl-prin1 #'prin1))) (mapbacktrace #'(lambda (evald func args _flags) (let ((args args)) (if evald (progn (princ " ") (funcall prin1 func) (princ "(")) (progn (princ " (") (setq args (cons func args)))) (if args (while (progn (funcall prin1 (car args)) (setq args (cdr args))) (princ " "))) (princ ")\n"))))) debug-early-backtrace() debug-early(error (native-ice "international/titdic-cnv.el" "failing to compile function" titdic-convert "gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3)")) signal(native-ice ("international/titdic-cnv.el" "failing to compile function" titdic-convert "gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3)")) comp--native-compile("international/titdic-cnv.el") batch-native-compile() batch-byte+native-compile() funcall(batch-byte+native-compile) (if (commandp tem) (command-execute tem) (funcall tem)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) ( ELC+ELN ../lisp/emacs-lisp/backquote.elc progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did- ELC+ELN ../lisp/emacs-lisp/byte-run.elc hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))))) (if (eq initial-buffer-choice t) (progn (get-scratch-buffer-create))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond ((stringp initial-buffer-choice) (find-file-noselect initial-buffer-choice)) ((functionp initial-buffer-choice) (funcall initial-buffer-choice)) ((eq initial-buffer-choice t) (get-scratch-buffer-create)) (t (error "`initial-buffer-choice' must be a string, a function, or t"))))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a live buffer: %S" buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil) (old-face-font-rescale-alist face-font-rescale-alist)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (cond ((= displayable-buffers-len 2) (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1)) ((> displayable-buffers-len 2) (let ((bufs (reverse (cdr displayable-buffers)))) (switch-to-buffer-other-window (car-safe (prog1 bufs (setq bufs (cdr bufs))))) (let ((--dolist-tail-- bufs)) (while --dolist-tail-- (let ((buf (car --dolist-tail--))) (switch-to-buffer buf nil t) (setq --dolist-tail-- (cdr --dolist-tail--))))) (other-window -1)))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (set-face-attribute 'default nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t byte-compile-warnings 'all)" "-l" "comp" "-f" "batch-byte+native-compile" "international/titdic-cnv.el")) (let (xdg-dir startup-init-directory) (progn (setq before-init-time (current-time)) (setq after-init-time nil) (setq command-line-default-directory default-directory)) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc '("t" "numbered")) (setq version-control t)) ((member vc '("nil" "existing")) (setq version-control nil)) ((member vc '("never" "simple")) (setq version-control 'never)))) (let ((simple-file-name (locate-file "simple" load-path (get-load-suffixes)))) (if (null simple-file-name) (let ((standard-output 'external-debugging-output) (lispdir (expand-file-name "../lisp" data-directory))) (princ "Warning: Could not find simple.el or simple.elc") (terpri) (if (getenv "EMACSLOADPATH") (progn (princ "The EMACSLOADPATH environment variable is set, please check its value") (terpri))) (if (file-readable-p lispdir) nil (princ (format "Lisp directory %s not readable?" lispdir)) (terpri))) (setq lisp-directory (file-truename (file-name-directory simple-file-name))) (setq load-history (mapcar #'(lambda (elt) (if (and (stringp (car elt)) (not (file-name-absolute-p (car elt)))) (cons (concat lisp-directory (car elt)) (cdr elt)) elt)) load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string (car args) locale-coding-system t)) (car-safe (prog1 args (setq args (cdr args)))))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* ((longopts '(("--no-init-file") ("--no-site-file") ("--no-x-resources") ("--debug-init") ("--user") ("--iconic") ("--icon-type") ("--quick") ("--no-blinking-cursor") ("--basic-display") ("--dump-file") ("--temacs") ("--seccomp") ("--init-directory"))) (argi (car-safe (prog1 args (setq args (cdr args))))) (orig-argi argi) argval) (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--." orig-argi) (progn (let ((completion (try-completion argi longopts))) (cond ((eq completion t) (setq argi (substring argi 1))) ((stringp completion) (let ((elt (assoc completion longopts))) (if elt nil (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1)))) (t (progn (setq argval nil) (setq argi orig-argi))))))) (if (equal argi "-scripteval") (progn (progn (setq init-file-user nil) (setq noninteractive t)))) (cond ((member argi '("-d" "-display")) (setq display-arg (list argi (car-safe (prog1 args (setq args (cdr args))))))) ((member argi '("-Q" "-quick")) (progn (setq init-file-user nil) (setq site-run-file nil) (setq inhibit-x-resources t)) (put 'site-run-file 'standard-value '(nil))) ((member argi '("-no-x-resources")) (setq inhibit-x-resources t)) ((member argi '("-D" "-basic-display")) (progn (setq no-blinking-cursor t) (setq emacs-basic-display t)) (setq initial-frame-alist (cons '(vertical-scroll-bars) initial-frame-alist))) ((member argi '("-q" "-no-init-file")) (setq init-file-user nil)) ((member argi '("-init-directory")) (progn (setq user-emacs-directory (or argval (car-safe (prog1 args (setq args (cdr args)))))) (setq argval nil))) ((member argi '("-u" "-user")) (progn (setq init-file-user (or argval (car-safe (prog1 args (setq args (cdr args)))))) (setq argval nil))) ((equal argi "-no-site-file") (setq site-run-file nil) (put 'site-run-file 'standard-value '(nil))) ((equal argi "-debug-init") (setq init-file-debug t)) ((equal argi "-iconic") (setq initial-frame-alist (cons '(visibility . icon) initial-frame-alist))) ((member argi '("-nbc" "-no-blinking-cursor")) (setq no-blinking-cursor t)) ((member argi '("-dump-file" "-temacs" "-seccomp")) (or argval (car-safe (prog1 args (setq args (cdr args))))) (setq argval nil)) (t (setq args (cons argi args)) (setq done t))) (and argval (error "Option `%s' doesn't allow an argument" argi)))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (let ((user-emacs-directory-warning nil)) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables))))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning 'initialization (format "Invalid user name %s" init-file-user) :error) (if (file-directory-p (expand-file-name (if (memq system-type '(windows-nt ms-dos)) "~" (concat "~" init-file-user)))) nil (display-warning 'initialization (format "User %s has no home directory" (if (equal init-file-user "") (user-real-login-name) init-file-user)) :error))))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 (length init-file-user)) (and (eq xdg-dir user-emacs-directory) (not (eq xdg-dir startup--xdg-config-default)))) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user) ELC+ELN ../lisp/emacs-lisp/cl-generic.elc )) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (if (featurep 'native-compile) (progn (startup--update-eln-cache))) (and user-init-file package-enable-at-startup (not (and (boundp 'package--activated) package--activated)) (catch 'package-dir-found (let ((dirs (cons package-user-dir package-directory-list))) (let ((--dolist-tail-- dirs)) (while --dolist-tail-- (let ((dir (car --dolist-tail--))) (if (file-directory-p dir) (progn (let ((--dolist-tail-- (directory-files dir))) (while --dolist-tail-- (let ((subdir (car --dolist-tail--))) (if (let ((subdir (expand-file-name subdir dir))) (and (file-directory-p subdir) (file-exists-p (expand-file-name (package--description-file subdir) subdir)))) (progn (throw 'package-dir-found t))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system (not (featurep (intern (concat (symbol-name initial-window-system) "-win"))))) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ((window-system initial-window-system)) (handle-args-function command-line-args))) (let ((window-system initial-window-system)) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if (eq (car error) 'error) (apply 'concat (cdr error)) (if (memq 'file-error (get (car error) 'error-conditions)) (format "%s: %s" (nth 1 error) (mapconcat #'(lambda (obj) (prin1-to-string obj t)) (cdr (cdr error)) ", ")) (format "%s: %s" (get (car error) 'error-message) (mapconcat #'(lambda (obj) (prin1-to-string obj t)) (cdr error) ", ")))) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (progn (setq menu-bar-mode nil) (setq tab-bar-mode nil) (setq tool-bar-mode nil))) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let ((inhibit-startup-screen inhibit-startup-screen)) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil (cond ((eq startup-init-directory xdg-dir) nil) ((eq system-type 'ms-dos) (concat "~" init-file-user "/_emacs")) ((not (eq system-type 'windows-nt)) (concat "~" init-file-user "/.emacs")) ((directory-files "~" nil "\\`\\.emacs\\(\\.elc?\\)?\\'") "~/.emacs") ((directory-files "~" nil "\\`_emacs\\(\\.elc?\\)?\\'") (setq delayed-warnings-list (cons (list 'initialization (format-message "`_emacs' init file is deprecated, please use `.emacs'")) delayed-warnings-list)) "~/_emacs") (t "~/.emacs"))) #'(lambda nil (expand-file-name "init.el" startup-init-directory)) t) (if (featurep 'native-compile) (progn (startup--update-eln-cache))) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer (set-buffer (window-buffer)) (deactivate-mark)))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let (mail-host-address) (condition-case nil (progn (custom--standard-value 'user-mail-address)) (error nil)))) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode 'fundamental-mode) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-some-buffers] then exit and restart Emacs"))) (custom-reevaluate-setting 'user-emacs-directory-warning) (command-line-1 (cdr command-line-args)) (if (and user-emacs-directory-warning (not (file-accessible-directory-p user-emacs-directory))) (progn (locate-user-emacs-file ""))) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ((dir (car --dolist-tail--))) (and (not warned) (stringp dir) (string-equal (file-name-as-directory (expand-file-name dir)) (expand-file-name user-emacs-directory)) (setq warned t) (display-warning 'initialization (format-message "Your `load-path' seems to contain\nyour `.emacs.d' directory: %s\nThis is likely to cause problems...\nConsider using a subdirectory instead, e.g.: %s" dir (expand-file-name "lisp" user-em ELC+ELN ../lisp/emacs-lisp/cl-preloaded.elc acs-directory)) :warning)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if noninteractive (kill-emacs t)) (let ((dn (daemonp))) (if dn (progn (if (stringp dn) (progn (setq server-name dn))) (server-start) (if server-process (daemon-initialized) (if (stringp dn) (message "Unable to start daemon: Emacs server named %S already running" server-name) (message "Unable to start the daemon.\nAnother instance of Emacs is running the server, either as daemon or interactively.\nYou can use emacsclient to connect to that Emacs process.")) (kill-emacs 1))))) (if (and (boundp 'x-session-previous-id) (stringp x-session-previous-id)) (with-no-warnings (emacs-session-restore x-session-previous-id)))) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name (expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-name)))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (set-face-attribute 'default nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name (expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-name)))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (set-face-attribute 'default nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (if (native-comp-available-p) nil (progn (setq native-comp-deferred-compilation nil) (setq comp-enable-subr-trampolines nil))) (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let ((--dolist-tail-- (split-string path-env path-separator))) (while --dolist-tail-- (let ((path (car --dolist-tail--))) (if (string= "" path) nil (setq native-comp-eln-load-path (cons path native-comp-eln-load-path))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (progn (setq eol-mnemonic-unix "(Unix)") (setq eol-mnemonic-mac "(Mac)"))) (t (progn (setq eol-mnemonic-dos "(DOS)") (setq eol-mnemonic-mac "(Mac)")))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- (buffer-list))) (while --dolist-tail-- (let ((elt (car --dolist-tail--))) (set-buffer elt) (if default-directory (setq default-directory (if (eq system-type 'windows-nt) (let ((defdir (decode-coding-string default-directory coding t))) (expand-file-name defdir defdir)) (decode-coding-string default-directory coding t)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (let ((--dolist-tail-- '(load-path exec-path))) (while --dolist-tail-- (let ((pathsym (car --dolist-tail--))) (let ((path (symbol-value pathsym))) (if (listp path) (set pathsym (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) path)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (featurep 'native-compile) (progn (let ((npath (symbol-value 'native-comp-eln-load-path))) (set 'native-comp-eln-load-path (mapcar #'(lambda (dir) (expand-file-name (decode-coding-string dir coding t))) npath))) (setq startup--original-eln-load-path (copy-sequence native-comp-eln-load-path)))) (let ((--dolist-tail-- '(data-directory doc-directory exec-directory installation-directory invocation-directory invocation-name source-directory shared-game-score-directory))) (while --dolist-tail-- (let ((filesym (car --dolist-tail--))) (let ((file (symbol-value filesym))) (if (stringp file) (set filesym (decode-coding-string file coding t)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal (file-attributes (file-name-as-directory pwd)) (file-attributes (file-name-as-directory default-directory)))) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name (expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-name)))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (set-face-attribute 'default nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval (car --dolist-tail--))) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Loading macroexp.elc... Internal native compiler error: "international/titdic-cnv.el", "failing to compile function", #, "gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3)" make[3]: *** [Makefile:331: international/titdic-cnv.elc] Error 255 make[3]: Leaving directory '/home/german/repos/emacs/lisp' make[2]: *** [Makefile:898: ../lisp/loaddefs.el] Error 2 make[2]: *** Waiting for unfinished jobs.... make[2]: Leaving directory '/home/german/repos/emacs/src' make[1]: *** [Makefile:469: src] Error 2 make[1]: Leaving directory '/home/german/repos/emacs' make: *** [Makefile:1178: bootstrap] Error 2 --000000000000ecda2905e4f1b659 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
Since commit c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 I am= unable to
build Emacs:

make[4]: Leaving d= irectory '/home/german/repos/emacs/admin/grammars'
=C2=A0 ELC+EL= N =C2=A0../lisp/custom.elc
=C2=A0 ELC+ELN =C2=A0../lisp/dnd.elc
=C2= =A0 ELC+ELN =C2=A0../lisp/disp-table.elc
=C2=A0 ELC+ELN =C2=A0../lisp/do= s-fns.elc
=C2=A0 ELC+ELN =C2=A0../lisp/dos-vars.elc
=C2=A0 ELC+ELN = =C2=A0../lisp/dos-w32.elc
=C2=A0 ELC+ELN =C2=A0../lisp/dynamic-setting.e= lc
=C2=A0 ELC+ELN =C2=A0../lisp/electric.elc
libgccjit.so: error: gcc= _jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc-&= gt;R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expect= ed 3)
libgccjit.so: error: gcc_jit_block_add_eval: NULL rvalue

Er= ror: native-ice ("international/titdic-cnv.el" "failing to c= ompile function" titdic-convert "gcc_jit_context_new_call_through= _ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d72656= 7696f6e_narrow_to_region_0 (got 2 args, expected 3)")
=C2=A0 mapbac= ktrace((closure ((prin1 . cl-prin1) t) (evald func args _flags) (let ((args= args)) (if evald (progn (princ " =C2=A0") (funcall prin1 func) (= princ "(")) (progn (princ " =C2=A0(") (setq args (cons = func args)))) (if args (while (progn (funcall prin1 (car args)) (setq args = (cdr args))) (princ " "))) (princ ")\n"))))
=C2=A0 (= let ((print-escape-newlines t) (print-escape-control-characters t) (print-e= scape-nonascii t) (prin1 (if (and (fboundp 'cl-prin1) (require 'cl-= print nil t)) #'cl-prin1 #'prin1))) (mapbacktrace #'(lambda (ev= ald func args _flags) (let ((args args)) (if evald (progn (princ " =C2= =A0") (funcall prin1 func) (princ "(")) (progn (princ "= =C2=A0(") (setq args (cons func args)))) (if args (while (progn (func= all prin1 (car args)) (setq args (cdr args))) (princ " "))) (prin= c ")\n")))))
=C2=A0 debug-early-backtrace()
=C2=A0 debug-ea= rly(error (native-ice "international/titdic-cnv.el" "failing= to compile function" titdic-convert "gcc_jit_context_new_call_th= rough_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d= 726567696f6e_narrow_to_region_0 (got 2 args, expected 3)"))
=C2=A0 = signal(native-ice ("international/titdic-cnv.el" "failing to= compile function" titdic-convert "gcc_jit_context_new_call_throu= gh_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726= 567696f6e_narrow_to_region_0 (got 2 args, expected 3)"))
=C2=A0 com= p--native-compile("international/titdic-cnv.el")
=C2=A0 batch-= native-compile()
=C2=A0 batch-byte+native-compile()
=C2=A0 funcall(ba= tch-byte+native-compile)
=C2=A0 (if (commandp tem) (command-execute tem)= (funcall tem))
=C2=A0 (cond ((setq tem (assoc argi command-switch-alist= )) (if argval (let ((command-line-args-left (cons argval command-line-args-= left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi &= quot;-no-splash") (setq inhibit-startup-screen t)) ((member argi '= ("-f" "-funcall" "-e")) (setq inhibit-startup= -screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-= left (setq command-line-args-left (cdr command-line-args-left))))))) (if (c= ommandp tem) (command-execute tem) (funcall tem))) ((member argi '(&quo= t;-eval" "-execute")) (setq inhibit-startup-screen t) (let* = ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command= -line-args-left (cdr command-line-args-left)))))) (read-data (read-from-str= ing str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-ma= tch-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing = garbage following expression: %s" (substring str-expr end))) (eval exp= r t))) ((member argi '("-L" "-directory")) (let (ap= pend) (if (string-match-p (format "\\`%s" path-separator) (setq t= em (or argval (car-safe (prog1 command-line-args-left (setq command-line-ar= gs-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem = 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-f= ile-name tem))) (cond (append (setq load-path (append load-path (list tem))= ) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cd= r splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem= load-path)) (setq splice load-path)))))) ((member argi '("-l"= ; "-load")) (let* ((file (command-line-normalize-file-name (or ar= gval (car-safe (prog1 command-line-args-left (setq command-line-args-left (= cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name= file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load f= ile nil t))) ((member argi '("-scriptload" "-scripteval&= quot;)) (let* ((file (command-line-normalize-file-name (or argval (car-safe= (prog1 command-line-args-left (setq command-line-args-left (cdr command-li= ne-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truen= ame file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))= ) (if (equal argi "-scripteval") (command-line--eval-script file-= ex) (command-line--load-script file-ex)))) ((equal argi "-insert"= ) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 com= mand-line-args-left (setq command-line-args-left (cdr command-line-args-lef= t)))))) (or (stringp tem) (error "File name omitted from `-insert'= option")) (insert-file-contents (command-line-normalize-file-name tem= ))) ((or (equal argi "-dump-file") (equal argi "-seccomp&quo= t;)) (or argval (car-safe (prog1 command-line-args-left (setq command-line-= args-left (cdr command-line-args-left)))))) ((equal argi "-kill")= (kill-emacs t)) ((equal argi "-no-desktop") (message "\&quo= t;--no-desktop\" ignored because the Desktop package is not loaded&quo= t;)) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-= to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'= " argi) (progn (setq line (string-to-number (match-string 1 argi))) (s= etq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc or= ig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr = (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-l= ine-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) comm= and-line-args-left))) ((member argi '("-find-file" "-fil= e" "-visit")) (setq inhibit-startup-screen t) (setq tem (or = argval (car-safe (prog1 command-line-args-left (setq command-line-args-left= (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File = name omitted from `%s' option" argi)) (funcall process-file-arg te= m)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi)= (display-warning 'initialization (format "Ignoring obsolete arg %= s" argi))) ((equal argi "--") (setq just-files t)) (t (let (= (hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq= did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook n= il (if (string-match "\\`-" argi) (error "Unknown option `%s= '" argi)) (if initial-window-system nil (setq inhibit-startup-scre= en t)) (funcall process-file-arg orig-argi)))))
=C2=A0 (let* ((argi (car= command-line-args-left)) (orig-argi argi) argval completion) (setq command= -line-args-left (cdr command-line-args-left)) (if just-files (setq argi &qu= ot;") (if (string-match "\\`\\(--[^=3D]*\\)=3D" argi) (progn= (progn (setq argval (substring argi (match-end 0))) (setq argi (match-stri= ng 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (= setq completion (try-completion argi longopts)) (if (eq completion t) (setq= argi (substring argi 1)) (if (stringp completion) (let ((elt (member compl= etion longopts))) (or elt (error "Option `%s' is ambiguous" a= rgi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq a= rgi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (i= f argval (let ((command-line-args-left (cons argval command-line-args-left)= )) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "= -no-splash") (setq inhibit-startup-screen t)) ((member argi '(&quo= t;-f" "-funcall" "-e")) (setq inhibit-startup-scre= en t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left = (setq command-line-args-left (cdr command-line-args-left))))))) (if (comman= dp tem) (command-execute tem) (funcall tem))) ((member argi '("-ev= al" "-execute")) (setq inhibit-startup-screen t) (let* ((str= -expr (or argval (car-safe (prog1 command-line-args-left (setq command-line= -args-left (cdr command-line-args-left)))))) (read-data (read-from-string s= tr-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p= "[ \11\n]*\\'" str-expr end) nil (error "Trailing garba= ge following expression: %s" (substring str-expr end))) (eval expr t))= ) ((member argi '("-L" "-directory")) (let (append)= (if (string-match-p (format "\\`%s" path-separator) (setq tem (o= r argval (car-safe (prog1 command-line-args-left (setq command-line-args-le= ft (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (= setq append t))) (setq tem (expand-file-name (command-line-normalize-file-n= ame tem))) (cond (append (setq load-path (append load-path (list tem))) (if= splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr spl= ice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load= -path)) (setq splice load-path)))))) ((member argi '("-l" &qu= ot;-load")) (let* ((file (command-line-normalize-file-name (or argval = (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr c= ommand-line-args-left))))))) (file-ex (file-truename (expand-file-name file= )))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file n= il t))) ((member argi '("-scriptload" "-scripteval"= )) (let* ((file (command-line-normalize-file-name (or argval (car-safe (pro= g1 command-line-args-left (setq command-line-args-left (cdr command-line-ar= gs-left))))))) (file-ex (expand-file-name file)) (truename (file-truename f= ile-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if= (equal argi "-scripteval") (command-line--eval-script file-ex) (= command-line--load-script file-ex)))) ((equal argi "-insert") (se= tq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-= line-args-left (setq command-line-args-left (cdr command-line-args-left))))= )) (or (stringp tem) (error "File name omitted from `-insert' opti= on")) (insert-file-contents (command-line-normalize-file-name tem))) (= (or (equal argi "-dump-file") (equal argi "-seccomp")) = (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-= left (cdr command-line-args-left)))))) ((equal argi "-kill") (kil= l-emacs t)) ((equal argi "-no-desktop") (message "\"--n= o-desktop\" ignored because the Desktop package is not loaded")) = ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-nu= mber argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'"= ; argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq c= olumn (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-ar= gi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth = 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-n= s-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-l= ine-args-left))) ((member argi '("-find-file" "-file&quo= t; "-visit")) (setq inhibit-startup-screen t) (setq tem (or argva= l (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr= command-line-args-left)))))) (if (stringp tem) nil (error "File name = omitted from `%s' option" argi)) (funcall process-file-arg tem)) (= (string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (dis= play-warning 'initialization (format "Ignoring obsolete arg %s&quo= t; argi))) ((equal argi "--") (setq just-files t)) (t (let ((hook= s command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-= hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (i= f (string-match "\\`-" argi) (error "Unknown option `%s'= " argi)) (if initial-window-system nil (setq inhibit-startup-screen t)= ) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-fram= e)) nil (kill-emacs nil)))
=C2=A0 (while command-line-args-left (let* ((= argi (car command-line-args-left)) (orig-argi argi) argval completion) (set= q command-line-args-left (cdr command-line-args-left)) (if just-files (setq= argi "") (if (string-match "\\`\\(--[^=3D]*\\)=3D" arg= i) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (m= atch-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi)= (progn (setq completion (try-completion argi longopts)) (if (eq completion= t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (mem= ber completion longopts))) (or elt (error "Option `%s' is ambiguou= s" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil= ) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-a= list)) (if argval (let ((command-line-args-left (cons argval command-line-a= rgs-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal ar= gi "-no-splash") (setq inhibit-startup-screen t)) ((member argi &= #39;("-f" "-funcall" "-e")) (setq inhibit-sta= rtup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-a= rgs-left (setq command-line-args-left (cdr command-line-args-left))))))) (i= f (commandp tem) (command-execute tem) (funcall tem))) ((member argi '(= "-eval" "-execute")) (setq inhibit-startup-screen t) (l= et* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq com= mand-line-args-left (cdr command-line-args-left)))))) (read-data (read-from= -string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (strin= g-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trail= ing garbage following expression: %s" (substring str-expr end))) (eval= expr t))) ((member argi '("-L" "-directory")) (let= (append) (if (string-match-p (format "\\`%s" path-separator) (se= tq tem (or argval (car-safe (prog1 command-line-args-left (setq command-lin= e-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring = tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normali= ze-file-name tem))) (cond (append (setq load-path (append load-path (list t= em))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem= (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons= tem load-path)) (setq splice load-path)))))) ((member argi '("-l&= quot; "-load")) (let* ((file (command-line-normalize-file-name (o= r argval (car-safe (prog1 command-line-args-left (setq command-line-args-le= ft (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-= name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (lo= ad file nil t))) ((member argi '("-scriptload" "-scripte= val")) (let* ((file (command-line-normalize-file-name (or argval (car-= safe (prog1 command-line-args-left (setq command-line-args-left (cdr comman= d-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-t= ruename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truena= me))) (if (equal argi "-scripteval") (command-line--eval-script f= ile-ex) (command-line--load-script file-ex)))) ((equal argi "-insert&q= uot;) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1= command-line-args-left (setq command-line-args-left (cdr command-line-args= -left)))))) (or (stringp tem) (error "File name omitted from `-insert&= #39; option")) (insert-file-contents (command-line-normalize-file-name= tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp= ")) (or argval (car-safe (prog1 command-line-args-left (setq command-l= ine-args-left (cdr command-line-args-left)))))) ((equal argi "-kill&qu= ot;) (kill-emacs t)) ((equal argi "-no-desktop") (message "\= "--no-desktop\" ignored because the Desktop package is not loaded= ")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (str= ing-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\&= #39;" argi) (progn (setq line (string-to-number (match-string 1 argi))= ) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (asso= c orig-argi command-line-x-option-alist)) (setq command-line-args-left (nth= cdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi comma= nd-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) = command-line-args-left))) ((member argi '("-find-file" "= -file" "-visit")) (setq inhibit-startup-screen t) (setq tem = (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-= left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "F= ile name omitted from `%s' option" argi)) (funcall process-file-ar= g tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" a= rgi) (display-warning 'initialization (format "Ignoring obsolete a= rg %s" argi))) ((equal argi "--") (setq just-files t)) (t (l= et ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (= setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-ho= ok nil (if (string-match "\\`-" argi) (error "Unknown option= `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-= screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (sele= cted-frame)) nil (kill-emacs nil))))
=C2=A0 (let* ((dir command-line-def= ault-directory) tem splice just-files (longopts (append '("--funca= ll" "--load" "--insert" "--kill" "-= -dump-file" "--seccomp" "--directory" "--eval= " "--execute" "--no-splash" "--find-file"= ; "--visit" "--file" "--no-desktop") (mapcar = #'(lambda (elt) (concat "-" (car elt))) command-switch-alist)= )) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or = dir (file-name-absolute-p name))) (message "Ignoring relative file nam= e (%s) due to nil default-directory" name) (let* ((file (expand-file-n= ame (command-line-normalize-file-name name) dir)) (buf (find-file-noselect = file))) (file-name-history--add file) (setq displayable-buffers (cons buf d= isplayable-buffers)) (set-buffer buf) (if (=3D 0 line) nil (goto-char (poin= t-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (mo= ve-to-column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- comm= and-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-t= ail--))) (if (string-match "^--" (car tem)) (setq longopts (cons = (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let = ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (le= t ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)= ) (setq longopts (cons (list (car tem)) longopts))) (setq --dolist-tail-- (= cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car co= mmand-line-args-left)) (orig-argi argi) argval completion) (setq command-li= ne-args-left (cdr command-line-args-left)) (if just-files (setq argi "= ") (if (string-match "\\`\\(--[^=3D]*\\)=3D" argi) (progn (p= rogn (setq argval (substring argi (match-end 0))) (setq argi (match-string = 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (set= q completion (try-completion argi longopts)) (if (eq completion t) (setq ar= gi (substring argi 1)) (if (stringp completion) (let ((elt (member completi= on longopts))) (or elt (error "Option `%s' is ambiguous" argi= )) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi= orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if a= rgval (let ((command-line-args-left (cons argval command-line-args-left))) = (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no= -splash") (setq inhibit-startup-screen t)) ((member argi '("-= f" "-funcall" "-e")) (setq inhibit-startup-screen = t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (se= tq command-line-args-left (cdr command-line-args-left))))))) (if (commandp = tem) (command-execute tem) (funcall tem))) ((member argi '("-eval&= quot; "-execute")) (setq inhibit-startup-screen t) (let* ((str-ex= pr (or argval (car-safe (prog1 command-line-args-left (setq command-line-ar= gs-left (cdr command-line-args-left)))))) (read-data (read-from-string str-= expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p &q= uot;[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage = following expression: %s" (substring str-expr end))) (eval expr t))) (= (member argi '("-L" "-directory")) (let (append) (i= f (string-match-p (format "\\`%s" path-separator) (setq tem (or a= rgval (car-safe (prog1 command-line-args-left (setq command-line-args-left = (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (set= q append t))) (setq tem (expand-file-name (command-line-normalize-file-name= tem))) (cond (append (setq load-path (append load-path (list tem))) (if sp= lice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice= ))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-pa= th)) (setq splice load-path)))))) ((member argi '("-l" "= -load")) (let* ((file (command-line-normalize-file-name (or argval (ca= r-safe (prog1 command-line-args-left (setq command-line-args-left (cdr comm= and-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))= ) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil = t))) ((member argi '("-scriptload" "-scripteval")) = (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 = command-line-args-left (setq command-line-args-left (cdr command-line-args-= left))))))) (file-ex (expand-file-name file)) (truename (file-truename file= -ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (e= qual argi "-scripteval") (command-line--eval-script file-ex) (com= mand-line--load-script file-ex)))) ((equal argi "-insert") (setq = inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-lin= e-args-left (setq command-line-args-left (cdr command-line-args-left)))))) = (or (stringp tem) (error "File name omitted from `-insert' option&= quot;)) (insert-file-contents (command-line-normalize-file-name tem))) ((or= (equal argi "-dump-file") (equal argi "-seccomp")) (or= argval (car-safe (prog1 command-line-args-left (setq command-line-args-lef= t (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-e= macs t)) ((equal argi "-no-desktop") (message "\"--no-d= esktop\" ignored because the Desktop package is not loaded")) ((s= tring-match "^\\+[0-9]+\\'" argi) (setq line (string-to-numbe= r argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" a= rgi) ( =C2=A0ELC+ELN =C2=A0../lisp/emacs-lisp/backquote.elc
progn (setq = line (string-to-number (match-string 1 argi))) (setq column (string-to-numb= er (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-opt= ion-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-a= rgs-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (set= q command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((me= mber argi '("-find-file" "-file" "-visit"= )) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 co= mmand-line-args-left (setq command-line-args-left (cdr command-line-args-le= ft)))))) (if (stringp tem) nil (error "File name omitted from `%s'= option" argi)) (funcall process-file-arg tem)) ((string-match "\= \`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'ini= tialization (format "Ignoring obsolete arg %s" argi))) ((equal ar= gi "--") (setq just-files t)) (t (let ((hooks command-line-functi= ons) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car ho= oks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "= ;\\`-" argi) (error "Unknown option `%s'" argi)) (if ini= tial-window-system nil (setq inhibit-startup-screen t)) (funcall process-fi= le-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs n= il)))))
=C2=A0 (progn (let* ((dir command-line-default-directory) tem sp= lice just-files (longopts (append '("--funcall" "--load&= quot; "--insert" "--kill" "--dump-file" "= ;--seccomp" "--directory" "--eval" "--execute= " "--no-splash" "--find-file" "--visit" = "--file" "--no-desktop") (mapcar #'(lambda (elt) (c= oncat "-" (car elt))) command-switch-alist))) (line 0) (column 0)= (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolut= e-p name))) (message "Ignoring relative file name (%s) due to nil defa= ult-directory" name) (let* ((file (expand-file-name (command-line-norm= alize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-his= tory--add file) (setq displayable-buffers (cons buf displayable-buffers)) (= set-buffer buf) (if (=3D 0 line) nil (goto-char (point-min)) (forward-line = (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- colum= n))) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alis= t)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-m= atch "^--" (car tem)) (setq longopts (cons (car tem) longopts))) = (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- comm= and-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-= tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons= (list (car tem)) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--)))= )) (while command-line-args-left (let* ((argi (car command-line-args-left))= (orig-argi argi) argval completion) (setq command-line-args-left (cdr comm= and-line-args-left)) (if just-files (setq argi "") (if (string-ma= tch "\\`\\(--[^=3D]*\\)=3D" argi) (progn (progn (setq argval (sub= string argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (strin= g-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-comp= letion argi longopts)) (if (eq completion t) (setq argi (substring argi 1))= (if (stringp completion) (let ((elt (member completion longopts))) (or elt= (error "Option `%s' is ambiguous" argi)) (setq argi (substri= ng (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (con= d ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-l= ine-args-left (cons argval command-line-args-left))) (funcall (cdr tem) arg= i)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq i= nhibit-startup-screen t)) ((member argi '("-f" "-funcall= " "-e")) (setq inhibit-startup-screen t) (setq tem (intern (= or argval (car-safe (prog1 command-line-args-left (setq command-line-args-l= eft (cdr command-line-args-left))))))) (if (commandp tem) (command-execute = tem) (funcall tem))) ((member argi '("-eval" "-execute&q= uot;)) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-saf= e (prog1 command-line-args-left (setq command-line-args-left (cdr command-l= ine-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read= -data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'&q= uot; str-expr end) nil (error "Trailing garbage following expression: = %s" (substring str-expr end))) (eval expr t))) ((member argi '(&qu= ot;-L" "-directory")) (let (append) (if (string-match-p (for= mat "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1= command-line-args-left (setq command-line-args-left (cdr command-line-args= -left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq te= m (expand-file-name (command-line-normalize-file-name tem))) (cond (append = (setq load-path (append load-path (list tem))) (if splice (setq splice load= -path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr = splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load= -path)))))) ((member argi '("-l" "-load")) (let* ((= file (command-line-normalize-file-name (or argval (car-safe (prog1 command-= line-args-left (setq command-line-args-left (cdr command-line-args-left))))= ))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p = file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi = 9;("-scriptload" "-scripteval")) (let* ((file (command-= line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left= (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (= expand-file-name file)) (truename (file-truename file-ex))) (if (file-exist= s-p truename) (progn (setq file-ex truename))) (if (equal argi "-scrip= teval") (command-line--eval-script file-ex) (command-line--load-script= file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen= t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq comm= and-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (err= or "File name omitted from `-insert' option")) (insert-file-c= ontents (command-line-normalize-file-name tem))) ((or (equal argi "-du= mp-file") (equal argi "-seccomp")) (or argval (car-safe (pro= g1 command-line-args-left (setq command-line-args-left (cdr command-line-ar= gs-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi = "-no-desktop") (message "\"--no-desktop\" ignored = because the Desktop package is not loaded")) ((string-match "^\\+= [0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-mat= ch "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line= (string-to-number (match-string 1 argi))) (setq column (string-to-number (= match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-= alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-= left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq co= mmand-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member= argi '("-find-file" "-file" "-visit")) (= setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 comman= d-line-args-left (setq command-line-args-left (cdr command-line-args-left))= )))) (if (stringp tem) nil (error "File name omitted from `%s' opt= ion" argi)) (funcall process-file-arg tem)) ((string-match "\\`--= ?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initial= ization (format "Ignoring obsolete arg %s" argi))) ((equal argi &= quot;--") (setq just-files t)) (t (let ((hooks command-line-functions)= (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks)= )))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`= -" argi) (error "Unknown option `%s'" argi)) (if initial= -window-system nil (setq inhibit-startup-screen t)) (funcall process-file-a= rg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))= ))))
=C2=A0 (if command-line-args-left (progn (let* ((dir command-line-d= efault-directory) tem splice just-files (longopts (append '("--fun= call" "--load" "--insert" "--kill" "= ;--dump-file" "--seccomp" "--directory" "--ev= al" "--execute" "--no-splash" "--find-file&qu= ot; "--visit" "--file" "--no-desktop") (mapca= r #'(lambda (elt) (concat "-" (car elt))) command-switch-alis= t))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (o= r dir (file-name-absolute-p name))) (message "Ignoring relative file n= ame (%s) due to nil default-directory" name) (let* ((file (expand-file= -name (command-line-normalize-file-name name) dir)) (buf (find-file-noselec= t file))) (file-name-history--add file) (setq displayable-buffers (cons buf= displayable-buffers)) (set-buffer buf) (if (=3D 0 line) nil (goto-char (po= int-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (= move-to-column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- co= mmand-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist= -tail--))) (if (string-match "^--" (car tem)) (setq longopts (con= s (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (le= t ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (= let ((tem (car --dolist-tail--))) (if (string-match "^--" (car te= m)) (setq longopts (cons (list (car tem)) longopts))) (setq --dolist-tail--= (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car = command-line-args-left)) (orig-argi argi) argval completion) (setq command-= line-args-left (cdr command-line-args-left)) (if just-files (setq argi &quo= t;") (if (string-match "\\`\\(--[^=3D]*\\)=3D" argi) (progn = (progn (setq argval (substring argi (match-end 0))) (setq argi (match-strin= g 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (s= etq completion (try-completion argi longopts)) (if (eq completion t) (setq = argi (substring argi 1)) (if (stringp completion) (let ((elt (member comple= tion longopts))) (or elt (error "Option `%s' is ambiguous" ar= gi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq ar= gi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if= argval (let ((command-line-args-left (cons argval command-line-args-left))= ) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-= no-splash") (setq inhibit-startup-screen t)) ((member argi '("= ;-f" "-funcall" "-e")) (setq inhibit-startup-scree= n t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (= setq command-line-args-left (cdr command-line-args-left))))))) (if (command= p tem) (command-execute tem) (funcall tem))) ((member argi '("-eva= l" "-execute")) (setq inhibit-startup-screen t) (let* ((str-= expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-= args-left (cdr command-line-args-left)))))) (read-data (read-from-string st= r-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p = "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbag= e following expression: %s" (substring str-expr end))) (eval expr t)))= ((member argi '("-L" "-directory")) (let (append) = (if (string-match-p (format "\\`%s" path-separator) (setq tem (or= argval (car-safe (prog1 command-line-args-left (setq command-line-args-lef= t (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (s= etq append t))) (setq tem (expand-file-name (command-line-normalize-file-na= me tem))) (cond (append (setq load-path (append load-path (list tem))) (if = splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr spli= ce))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-= path)) (setq splice load-path)))))) ((member argi '("-l" &quo= t;-load")) (let* ((file (command-line-normalize-file-name (or argval (= car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr co= mmand-line-args-left))))))) (file-ex (file-truename (expand-file-name file)= ))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file ni= l t))) ((member argi '("-scriptload" "-scripteval")= ) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog= 1 command-line-args-left (setq command-line-args-left (cdr command-line-arg= s-left))))))) (file-ex (expand-file-name file)) (truename (file-truename fi= le-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if = (equal argi "-scripteval") (command-line--eval-script file-ex) (c= ommand-line--load-script file-ex)))) ((equal argi "-insert") (set= q inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-l= ine-args-left (setq command-line-args-left (cdr command-line-args-left)))))= ) (or (stringp tem) (error "File name omitted from `-insert' optio= n")) (insert-file-contents (command-line-normalize-file-name tem))) ((= or (equal argi "-dump-file") (equal argi "-seccomp")) (= or argval (car-safe (prog1 command-line-args-left (setq command-line-args-l= eft (cdr command-line-args-left)))))) ((equal argi "-kill") (kill= -emacs t)) ((equal argi "-no-desktop") (message "\"--no= -desktop\" ignored because the Desktop package is not loaded")) (= (string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-num= ber argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'"= argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq co= lumn (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-arg= i command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1= tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns= -option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-li= ne-args-left))) ((member argi '("-find-file" "-file"= ; "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval= (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr = command-line-args-left)))))) (if (stringp tem) nil (error "File name o= mitted from `%s' option" argi)) (funcall process-file-arg tem)) ((= string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (disp= lay-warning 'initialization (format "Ignoring obsolete arg %s"= ; argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks= command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-h= ook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if= (string-match "\\`-" argi) (error "Unknown option `%s'&= quot; argi)) (if initial-window-system nil (setq inhibit-startup-screen t))= (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame= )) nil (kill-emacs nil)))))))
=C2=A0 (let ((command-line-args-left args-= left)) (if command-line-args-left (progn (let* ((dir command-line-default-d= irectory) tem splice just-files (longopts (append '("--funcall&quo= t; "--load" "--insert" "--kill" "--dump-= file" "--seccomp" "--directory" "--eval"= "--execute" "--no-splash" "--find-file" &quo= t;--visit" "--file" "--no-desktop") (mapcar #'= (lambda (elt) (concat "-" (car elt))) command-switch-alist))) (li= ne 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (f= ile-name-absolute-p name))) (message "Ignoring relative file name (%s)= due to nil default-directory" name) (let* ((file (expand-file-name (c= ommand-line-normalize-file-name name) dir)) (buf (find-file-noselect file))= ) (file-name-history--add file) (setq displayable-buffers (cons buf display= able-buffers)) (set-buffer buf) (if (=3D 0 line) nil (goto-char (point-min)= ) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-= column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- command-li= ne-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--)= )) (if (string-match "^--" (car tem)) (setq longopts (cons (car t= em) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--do= list-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((te= m (car --dolist-tail--))) (if (string-match "^--" (car tem)) (set= q longopts (cons (list (car tem)) longopts))) (setq --dolist-tail-- (cdr --= dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-= line-args-left)) (orig-argi argi) argval completion) (setq command-line-arg= s-left (cdr command-line-args-left)) (if just-files (setq argi ""= ) (if (string-match "\\`\\(--[^=3D]*\\)=3D" argi) (progn (progn (= setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi= ))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq comp= letion (try-completion argi longopts)) (if (eq completion t) (setq argi (su= bstring argi 1)) (if (stringp completion) (let ((elt (member completion lon= gopts))) (or elt (error "Option `%s' is ambiguous" argi)) (se= tq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-= argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval = (let ((command-line-args-left (cons argval command-line-args-left))) (funca= ll (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splas= h") (setq inhibit-startup-screen t)) ((member argi '("-f"= ; "-funcall" "-e")) (setq inhibit-startup-screen t) (se= tq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq com= mand-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (= command-execute tem) (funcall tem))) ((member argi '("-eval" = "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or= argval (car-safe (prog1 command-line-args-left (setq command-line-args-lef= t (cdr command-line-args-left)))))) (read-data (read-from-string str-expr))= (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ = \11\n]*\\'" str-expr end) nil (error "Trailing garbage follow= ing expression: %s" (substring str-expr end))) (eval expr t))) ((membe= r argi '("-L" "-directory")) (let (append) (if (str= ing-match-p (format "\\`%s" path-separator) (setq tem (or argval = (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr c= ommand-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq appe= nd t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))= ) (cond (append (setq load-path (append load-path (list tem))) (if splice (= setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (s= etq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (= setq splice load-path)))))) ((member argi '("-l" "-load&= quot;)) (let* ((file (command-line-normalize-file-name (or argval (car-safe= (prog1 command-line-args-left (setq command-line-args-left (cdr command-li= ne-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if = (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) (= (member argi '("-scriptload" "-scripteval")) (let* = ((file (command-line-normalize-file-name (or argval (car-safe (prog1 comman= d-line-args-left (setq command-line-args-left (cdr command-line-args-left))= ))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex)))= (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal a= rgi "-scripteval") (command-line--eval-script file-ex) (command-l= ine--load-script file-ex)))) ((equal argi "-insert") (setq inhibi= t-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args= -left (setq command-line-args-left (cdr command-line-args-left)))))) (or (s= tringp tem) (error "File name omitted from `-insert' option")= ) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equa= l argi "-dump-file") (equal argi "-seccomp")) (or argva= l (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr= command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t= )) ((equal argi "-no-desktop") (message "\"--no-desktop= \" ignored because the Desktop package is not loaded")) ((string-= match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi= ))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (= progn (setq line (string-to-number (match-string 1 argi))) (setq column (st= ring-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi comman= d-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) co= mmand-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-= alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-= left))) ((member argi '("-find-file" "-file" "= -visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-sa= fe (prog1 command-line-args-left (setq command-line-args-left (cdr command-= line-args-left)))))) (if (stringp tem) nil (error "File name omitted f= rom `%s' option" argi)) (funcall process-file-arg tem)) ((string-m= atch "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warn= ing 'initialization (format "Ignoring obsolete arg %s" argi))= ) ((equal argi "--") (setq just-files t)) (t (let ((hooks command= -line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (fun= call (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string= -match "\\`-" argi) (error "Unknown option `%s'" ar= gi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcal= l process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (= kill-emacs nil))))))))
=C2=A0 (let ((displayable-buffers nil)) (let ((co= mmand-line-args-left args-left)) (if command-line-args-left (progn (let* ((= dir command-line-default-directory) tem splice just-files (longopts (append= '("--funcall" "--load" "--insert" "= --kill" "--dump-file" "--seccomp" "--director= y" "--eval" "--execute" "--no-splash" &q= uot;--find-file" "--visit" "--file" "--no-des= ktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) c= ommand-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda = (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignori= ng relative file name (%s) due to nil default-directory" name) (let* (= (file (expand-file-name (command-line-normalize-file-name name) dir)) (buf = (find-file-noselect file))) (file-name-history--add file) (setq displayable= -buffers (cons buf displayable-buffers)) (set-buffer buf) (if (=3D 0 line) = nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (&l= t; column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((= --dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (= (tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (= setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --doli= st-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while= --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "= ;^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (se= tq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left = (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completi= on) (setq command-line-args-left (cdr command-line-args-left)) (if just-fil= es (setq argi "") (if (string-match "\\`\\(--[^=3D]*\\)=3D&q= uot; argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq= argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" or= ig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq co= mpletion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((= elt (member completion longopts))) (or elt (error "Option `%s' is = ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq ar= gval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-= switch-alist)) (if argval (let ((command-line-args-left (cons argval comman= d-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((= equal argi "-no-splash") (setq inhibit-startup-screen t)) ((membe= r argi '("-f" "-funcall" "-e")) (setq inh= ibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 comman= d-line-args-left (setq command-line-args-left (cdr command-line-args-left))= ))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member arg= i '("-eval" "-execute")) (setq inhibit-startup-scre= en t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (= setq command-line-args-left (cdr command-line-args-left)))))) (read-data (r= ead-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (i= f (string-match-p "[ \11\n]*\\'" str-expr end) nil (error &qu= ot;Trailing garbage following expression: %s" (substring str-expr end)= )) (eval expr t))) ((member argi '("-L" "-directory"= ;)) (let (append) (if (string-match-p (format "\\`%s" path-separa= tor) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq com= mand-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (su= bstring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line= -normalize-file-name tem))) (cond (append (setq load-path (append load-path= (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (= cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-pa= th (cons tem load-path)) (setq splice load-path)))))) ((member argi '(&= quot;-l" "-load")) (let* ((file (command-line-normalize-file= -name (or argval (car-safe (prog1 command-line-args-left (setq command-line= -args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expa= nd-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-e= x))) (load file nil t))) ((member argi '("-scriptload" "= -scripteval")) (let* ((file (command-line-normalize-file-name (or argv= al (car-safe (prog1 command-line-args-left (setq command-line-args-left (cd= r command-line-args-left))))))) (file-ex (expand-file-name file)) (truename= (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-e= x truename))) (if (equal argi "-scripteval") (command-line--eval-= script file-ex) (command-line--load-script file-ex)))) ((equal argi "-= insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-saf= e (prog1 command-line-args-left (setq command-line-args-left (cdr command-l= ine-args-left)))))) (or (stringp tem) (error "File name omitted from `= -insert' option")) (insert-file-contents (command-line-normalize-f= ile-name tem))) ((or (equal argi "-dump-file") (equal argi "= -seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq c= ommand-line-args-left (cdr command-line-args-left)))))) ((equal argi "= -kill") (kill-emacs t)) ((equal argi "-no-desktop") (message= "\"--no-desktop\" ignored because the Desktop package is no= t loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq l= ine (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9= ]+\\)\\'" argi) (progn (setq line (string-to-number (match-string = 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq t= em (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-l= eft (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-ar= gi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth= 1 tem) command-line-args-left))) ((member argi '("-find-file"= ; "-file" "-visit")) (setq inhibit-startup-screen t) (s= etq tem (or argval (car-safe (prog1 command-line-args-left (setq command-li= ne-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error= "File name omitted from `%s' option" argi)) (funcall process= -file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$= " argi) (display-warning 'initialization (format "Ignoring ob= solete arg %s" argi))) ((equal argi "--") (setq just-files t= )) (t (let ((hooks command-line-functions) (did- =C2=A0ELC+ELN =C2=A0../lis= p/emacs-lisp/byte-run.elc
hook nil)) (while (and hooks (not (setq did-ho= ok (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if = (string-match "\\`-" argi) (error "Unknown option `%s'&q= uot; argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) = (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)= ) nil (kill-emacs nil)))))))) (if (eq initial-buffer-choice t) (progn (get-= scratch-buffer-create))) (and initial-scratch-message (get-buffer "*sc= ratch*") (save-current-buffer (set-buffer "*scratch*") (if (= =3D 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratc= h-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (prog= n (let ((buf (cond ((stringp initial-buffer-choice) (find-file-noselect ini= tial-buffer-choice)) ((functionp initial-buffer-choice) (funcall initial-bu= ffer-choice)) ((eq initial-buffer-choice t) (get-scratch-buffer-create)) (t= (error "`initial-buffer-choice' must be a string, a function, or = t"))))) (if (buffer-live-p buf) nil (error "Value returned by `in= itial-buffer-choice' is not a live buffer: %S" buf)) (setq display= able-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayab= le-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil) (= old-face-font-rescale-alist face-font-rescale-alist)) (if (> displayable= -buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (cond= ((=3D displayable-buffers-len 2) (switch-to-buffer-other-window (car (cdr = displayable-buffers))) (other-window -1)) ((> displayable-buffers-len 2)= (let ((bufs (reverse (cdr displayable-buffers)))) (switch-to-buffer-other-= window (car-safe (prog1 bufs (setq bufs (cdr bufs))))) (let ((--dolist-tail= -- bufs)) (while --dolist-tail-- (let ((buf (car --dolist-tail--))) (switch= -to-buffer buf nil t) (setq --dolist-tail-- (cdr --dolist-tail--))))) (othe= r-window -1)))) (if (> displayable-buffers-len 2) (progn (setq nondispla= yed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice non= interactive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p = (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffer= s))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (and (dis= play-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-a= list)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-fon= t-rescale-alist #'string-match-p)) (progn (set-face-attribute 'defa= ult nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) = (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (s= etq inhibit-startup-hooks t) (display-startup-screen (> displayable-buff= ers-len 0)))))
=C2=A0 command-line-1(("--eval" "(setq loa= d-prefer-newer t byte-compile-warnings 'all)" "-l" "= ;comp" "-f" "batch-byte+native-compile" "inte= rnational/titdic-cnv.el"))
=C2=A0 (let (xdg-dir startup-init-direct= ory) (progn (setq before-init-time (current-time)) (setq after-init-time ni= l) (setq command-line-default-directory default-directory)) (setq abbreviat= ed-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((e= q vc nil)) ((member vc '("t" "numbered")) (setq ver= sion-control t)) ((member vc '("nil" "existing")) (= setq version-control nil)) ((member vc '("never" "simple= ")) (setq version-control 'never)))) (let ((simple-file-name (loca= te-file "simple" load-path (get-load-suffixes)))) (if (null simpl= e-file-name) (let ((standard-output 'external-debugging-output) (lispdi= r (expand-file-name "../lisp" data-directory))) (princ "Warn= ing: Could not find simple.el or simple.elc") (terpri) (if (getenv &qu= ot;EMACSLOADPATH") (progn (princ "The EMACSLOADPATH environment v= ariable is set, please check its value") (terpri))) (if (file-readable= -p lispdir) nil (princ (format "Lisp directory %s not readable?" = lispdir)) (terpri))) (setq lisp-directory (file-truename (file-name-directo= ry simple-file-name))) (setq load-history (mapcar #'(lambda (elt) (if (= and (stringp (car elt)) (not (file-name-absolute-p (car elt)))) (cons (conc= at lisp-directory (car elt)) (cdr elt)) elt)) load-history)))) (let ((args = command-line-args)) (while args (setcar args (decode-coding-string (car arg= s) locale-coding-system t)) (car-safe (prog1 args (setq args (cdr args)))))= ) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-f= ile-user (if noninteractive nil (user-login-name))) (and init-file-user (eq= ual init-file-user (user-real-login-name)) (setq init-file-user ""= ;)) (while (and (not done) args) (let* ((longopts '(("--no-init-fi= le") ("--no-site-file") ("--no-x-resources") (&quo= t;--debug-init") ("--user") ("--iconic") ("--= icon-type") ("--quick") ("--no-blinking-cursor") (= "--basic-display") ("--dump-file") ("--temacs"= ;) ("--seccomp") ("--init-directory"))) (argi (car-safe= (prog1 args (setq args (cdr args))))) (orig-argi argi) argval) (if (string= -match "\\`\\(--[^=3D]*\\)=3D" argi) (progn (progn (setq argval (= substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (st= ring-match "\\`--." orig-argi) (progn (let ((completion (try-comp= letion argi longopts))) (cond ((eq completion t) (setq argi (substring argi= 1))) ((stringp completion) (let ((elt (assoc completion longopts))) (if el= t nil (error "Option `%s' is ambiguous" argi)) (setq argi (su= bstring (car elt) 1)))) (t (progn (setq argval nil) (setq argi orig-argi)))= )))) (if (equal argi "-scripteval") (progn (progn (setq init-file= -user nil) (setq noninteractive t)))) (cond ((member argi '("-d&qu= ot; "-display")) (setq display-arg (list argi (car-safe (prog1 ar= gs (setq args (cdr args))))))) ((member argi '("-Q" "-qu= ick")) (progn (setq init-file-user nil) (setq site-run-file nil) (setq= inhibit-x-resources t)) (put 'site-run-file 'standard-value '(= nil))) ((member argi '("-no-x-resources")) (setq inhibit-x-re= sources t)) ((member argi '("-D" "-basic-display"))= (progn (setq no-blinking-cursor t) (setq emacs-basic-display t)) (setq ini= tial-frame-alist (cons '(vertical-scroll-bars) initial-frame-alist))) (= (member argi '("-q" "-no-init-file")) (setq init-fi= le-user nil)) ((member argi '("-init-directory")) (progn (set= q user-emacs-directory (or argval (car-safe (prog1 args (setq args (cdr arg= s)))))) (setq argval nil))) ((member argi '("-u" "-user&= quot;)) (progn (setq init-file-user (or argval (car-safe (prog1 args (setq = args (cdr args)))))) (setq argval nil))) ((equal argi "-no-site-file&q= uot;) (setq site-run-file nil) (put 'site-run-file 'standard-value = '(nil))) ((equal argi "-debug-init") (setq init-file-debug t)= ) ((equal argi "-iconic") (setq initial-frame-alist (cons '(v= isibility . icon) initial-frame-alist))) ((member argi '("-nbc&quo= t; "-no-blinking-cursor")) (setq no-blinking-cursor t)) ((member = argi '("-dump-file" "-temacs" "-seccomp")= ) (or argval (car-safe (prog1 args (setq args (cdr args))))) (setq argval n= il)) (t (setq args (cons argi args)) (setq done t))) (and argval (error &qu= ot;Option `%s' doesn't allow an argument" argi)))) (and displa= y-arg (setq args (append display-arg args))) (and command-line-args (setcdr= command-line-args args))) (let ((user-emacs-directory-warning nil)) (if (l= istp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-se= tting (reverse custom-delayed-init-variables))))) (setq custom-delayed-init= -variables t) (if init-file-user (progn (if (string-match "[~/:\n]&quo= t; init-file-user) (display-warning 'initialization (format "Inval= id user name %s" init-file-user) :error) (if (file-directory-p (expand= -file-name (if (memq system-type '(windows-nt ms-dos)) "~" (c= oncat "~" init-file-user)))) nil (display-warning 'initializa= tion (format "User %s has no home directory" (if (equal init-file= -user "") (user-real-login-name) init-file-user)) :error))))) (se= tq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if= (or (=3D 0 (length init-file-user)) (and (eq xdg-dir user-emacs-directory)= (not (eq xdg-dir startup--xdg-config-default)))) user-emacs-directory (set= q xdg-dir (concat "~" init-file-user "/.config/emacs/")= ) (startup--xdg-or-homedot xdg-dir init-file-user) =C2=A0ELC+ELN =C2=A0../l= isp/emacs-lisp/cl-generic.elc
)) (startup--load-user-init-file #'(la= mbda nil (expand-file-name "early-init.el" startup-init-directory= ))) (setq early-init-file user-init-file) (if (featurep 'native-compile= ) (progn (startup--update-eln-cache))) (and user-init-file package-enable-a= t-startup (not (and (boundp 'package--activated) package--activated)) (= catch 'package-dir-found (let ((dirs (cons package-user-dir package-dir= ectory-list))) (let ((--dolist-tail-- dirs)) (while --dolist-tail-- (let ((= dir (car --dolist-tail--))) (if (file-directory-p dir) (progn (let ((--doli= st-tail-- (directory-files dir))) (while --dolist-tail-- (let ((subdir (car= --dolist-tail--))) (if (let ((subdir (expand-file-name subdir dir))) (and = (file-directory-p subdir) (file-exists-p (expand-file-name (package--descri= ption-file subdir) subdir)))) (progn (throw 'package-dir-found t))) (se= tq --dolist-tail-- (cdr --dolist-tail--))))))) (setq --dolist-tail-- (cdr -= -dolist-tail--))))))) (package-activate-all)) (condition-case error (if non= interactive nil (if (and initial-window-system (not (featurep (intern (conc= at (symbol-name initial-window-system) "-win"))))) (error "U= nsupported window system `%s'" initial-window-system)) (setq comma= nd-line-args (let ((window-system initial-window-system)) (handle-args-func= tion command-line-args))) (let ((window-system initial-window-system)) (win= dow-system-initialization)) (put initial-window-system 'window-system-i= nitialized t)) (error (princ (if (eq (car error) 'error) (apply 'co= ncat (cdr error)) (if (memq 'file-error (get (car error) 'error-con= ditions)) (format "%s: %s" (nth 1 error) (mapconcat #'(lambda= (obj) (prin1-to-string obj t)) (cdr (cdr error)) ", ")) (format = "%s: %s" (get (car error) 'error-message) (mapconcat #'(l= ambda (obj) (prin1-to-string obj t)) (cdr error) ", ")))) 'ex= ternal-debugging-output) (terpri 'external-debugging-output) (setq init= ial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if= (daemonp) nil (if (or noninteractive emacs-basic-display) (progn (setq men= u-bar-mode nil) (setq tab-bar-mode nil) (setq tool-bar-mode nil))) (frame-i= nitialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil= (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) = (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-fram= e) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (l= et ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-f= onts face-ignored-fonts)) (if site-run-file (let ((inhibit-startup-screen i= nhibit-startup-screen)) (load site-run-file t t))) (startup--load-user-init= -file #'(lambda nil (cond ((eq startup-init-directory xdg-dir) nil) ((e= q system-type 'ms-dos) (concat "~" init-file-user "/_ema= cs")) ((not (eq system-type 'windows-nt)) (concat "~" in= it-file-user "/.emacs")) ((directory-files "~" nil &quo= t;\\`\\.emacs\\(\\.elc?\\)?\\'") "~/.emacs") ((directory= -files "~" nil "\\`_emacs\\(\\.elc?\\)?\\'") (setq = delayed-warnings-list (cons (list 'initialization (format-message "= ;`_emacs' init file is deprecated, please use `.emacs'")) dela= yed-warnings-list)) "~/_emacs") (t "~/.emacs"))) #'= (lambda nil (expand-file-name "init.el" startup-init-directory)) = t) (if (featurep 'native-compile) (progn (startup--update-eln-cache))) = (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer (= set-buffer (window-buffer)) (deactivate-mark)))) (if (and (not noninteracti= ve) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (p= rogn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed ni= l) (and mail-host-address (equal user-mail-address (let (mail-host-address)= (condition-case nil (progn (custom--standard-value 'user-mail-address)= ) (error nil)))) (custom-reevaluate-setting 'user-mail-address)) (if (a= nd (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-= fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-ti= me (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-ho= ok) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer= "*scratch*") (if (eq major-mode 'fundamental-mode) (funcall = initial-major-mode)))) (if (or noninteractive initial-window-system (daemon= p)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq mem= ory-signal-data (list 'error (substitute-command-keys "Memory exha= usted--use \\[save-some-buffers] then exit and restart Emacs"))) (cust= om-reevaluate-setting 'user-emacs-directory-warning) (command-line-1 (c= dr command-line-args)) (if (and user-emacs-directory-warning (not (file-acc= essible-directory-p user-emacs-directory))) (progn (locate-user-emacs-file = ""))) (let (warned) (let ((--dolist-tail-- load-path)) (while --d= olist-tail-- (let ((dir (car --dolist-tail--))) (and (not warned) (stringp = dir) (string-equal (file-name-as-directory (expand-file-name dir)) (expand-= file-name user-emacs-directory)) (setq warned t) (display-warning 'init= ialization (format-message "Your `load-path' seems to contain\nyou= r `.emacs.d' directory: %s\nThis is likely to cause problems...\nConsid= er using a subdirectory instead, e.g.: %s" dir (expand-file-name "= ;lisp" user-em =C2=A0ELC+ELN =C2=A0../lisp/emacs-lisp/cl-preloaded.elc=
acs-directory)) :warning)) (setq --dolist-tail-- (cdr --dolist-tail--))= )))) (if noninteractive (kill-emacs t)) (let ((dn (daemonp))) (if dn (progn= (if (stringp dn) (progn (setq server-name dn))) (server-start) (if server-= process (daemon-initialized) (if (stringp dn) (message "Unable to star= t daemon: Emacs server named %S already running" server-name) (message= "Unable to start the daemon.\nAnother instance of Emacs is running th= e server, either as daemon or interactively.\nYou can use emacsclient to co= nnect to that Emacs process.")) (kill-emacs 1))))) (if (and (boundp &#= 39;x-session-previous-id) (stringp x-session-previous-id)) (with-no-warning= s (emacs-session-restore x-session-previous-id))))
=C2=A0 command-line()=
=C2=A0 (unwind-protect (command-line) (if default-directory (setq defau= lt-directory (abbreviate-file-name default-directory))) (or auto-save-list-= file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (c= ond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto= -save-list-file-prefix) t) (concat (make-temp-name (expand-file-name auto-s= ave-list-file-prefix)) "~")) (t (expand-file-name (format "%= s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-name)))))))) (= if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-s= etup-hook)) (if (or frame-initial-frame (not (and initial-window-system (no= t noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (a= nd (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-re= scale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) f= ace-font-rescale-alist #'string-match-p)) (progn (set-face-attribute &#= 39;default nil :font (font-spec)))) (if (fboundp 'frame-notice-user-set= tings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background= -mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'fo= nt-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil= (run-hooks 'window-setup-hook)))
=C2=A0 (let ((old-face-font-rescal= e-alist face-font-rescale-alist)) (unwind-protect (command-line) (if defaul= t-directory (setq default-directory (abbreviate-file-name default-directory= ))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto= -save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (f= ile-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name (= expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-fi= le-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid)= (system-name)))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-s= tartup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and in= itial-window-system (not noninteractive) (not (eq initial-window-system = 9;pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale= -alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute= 'default :font)) face-font-rescale-alist #'string-match-p)) (progn= (set-face-attribute 'default nil :font (font-spec)))) (if (fboundp = 9;frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp &#= 39;frame-set-background-mode) (frame-set-background-mode (selected-frame)))= )) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if in= hibit-startup-hooks nil (run-hooks 'window-setup-hook))))
=C2=A0 (if= command-line-processed (message internal--top-level-message) (setq command= -line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-h= ome (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (co= ncat xdg-config-home "/emacs/") startup--xdg-config-default))) (s= etq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-= emacs nil)) (if (featurep 'native-compile) (progn (if (native-comp-avai= lable-p) nil (progn (setq native-comp-deferred-compilation nil) (setq comp-= enable-subr-trampolines nil))) (let ((path-env (getenv "EMACSNATIVELOA= DPATH"))) (if path-env (progn (let ((--dolist-tail-- (split-string pat= h-env path-separator))) (while --dolist-tail-- (let ((path (car --dolist-ta= il--))) (if (string=3D "" path) nil (setq native-comp-eln-load-pa= th (cons path native-comp-eln-load-path))) (setq --dolist-tail-- (cdr --dol= ist-tail--)))))))) (setq native-comp-eln-load-path (cons (expand-file-name = "eln-cache/" user-emacs-directory) native-comp-eln-load-path)))) = (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-= directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory= dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-= prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-nam= e "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq = system-type '(ms-dos windows-nt)) (progn (setq eol-mnemonic-unix "= (Unix)") (setq eol-mnemonic-mac "(Mac)"))) (t (progn (setq e= ol-mnemonic-dos "(DOS)") (setq eol-mnemonic-mac "(Mac)"= )))) (set-locale-environment nil) (if locale-coding-system (progn (let ((co= ding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))= ) (save-excursion (let ((--dolist-tail-- (buffer-list))) (while --dolist-ta= il-- (let ((elt (car --dolist-tail--))) (set-buffer elt) (if default-direct= ory (setq default-directory (if (eq system-type 'windows-nt) (let ((def= dir (decode-coding-string default-directory coding t))) (expand-file-name d= efdir defdir)) (decode-coding-string default-directory coding t)))) (setq -= -dolist-tail-- (cdr --dolist-tail--)))))) (let ((--dolist-tail-- '(load= -path exec-path))) (while --dolist-tail-- (let ((pathsym (car --dolist-tail= --))) (let ((path (symbol-value pathsym))) (if (listp path) (set pathsym (m= apcar #'(lambda (dir) (decode-coding-string dir coding t)) path)))) (se= tq --dolist-tail-- (cdr --dolist-tail--))))) (if (featurep 'native-comp= ile) (progn (let ((npath (symbol-value 'native-comp-eln-load-path))) (s= et 'native-comp-eln-load-path (mapcar #'(lambda (dir) (expand-file-= name (decode-coding-string dir coding t))) npath))) (setq startup--original= -eln-load-path (copy-sequence native-comp-eln-load-path)))) (let ((--dolist= -tail-- '(data-directory doc-directory exec-directory installation-dire= ctory invocation-directory invocation-name source-directory shared-game-sco= re-directory))) (while --dolist-tail-- (let ((filesym (car --dolist-tail--)= )) (let ((file (symbol-value filesym))) (if (stringp file) (set filesym (de= code-coding-string file coding t)))) (setq --dolist-tail-- (cdr --dolist-ta= il--)))))))) (let ((dir default-directory)) (save-current-buffer (set-buffe= r "*Messages*") (messages-buffer-mode) (set (make-local-variable = 'window-point-insertion-type) t) (setq default-directory (or dir (expan= d-file-name "~/"))))) (put 'user-full-name 'standard-valu= e (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD&= quot;))) (and pwd (or (and default-directory (condition-case nil (progn (eq= ual (file-attributes (file-name-as-directory pwd)) (file-attributes (file-n= ame-as-directory default-directory)))) (error nil))) (setq process-environm= ent (delete (concat "PWD=3D" pwd) process-environment))))) (if (l= istp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) &= #39;utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lam= bda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if def= ault-directory (setq default-directory (abbreviate-file-name default-direct= ory)) (display-warning 'initialization "Error setting default-dire= ctory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) = (unwind-protect (command-line) (if default-directory (setq default-director= y (abbreviate-file-name default-directory))) (or auto-save-list-file-name (= and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq sy= stem-type 'ms-dos) (make-directory (file-name-directory auto-save-list-= file-prefix) t) (concat (make-temp-name (expand-file-name auto-save-list-fi= le-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~&quo= t; auto-save-list-file-prefix (emacs-pid) (system-name)))))))) (if inhibit-= startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook))= (if (or frame-initial-frame (not (and initial-window-system (not nonintera= ctive) (not (eq initial-window-system 'pc))))) (progn (if (and (display= -multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist= )) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-re= scale-alist #'string-match-p)) (progn (set-face-attribute 'default = nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) (fra= me-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (fra= me-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add= -default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks= 'window-setup-hook)))) (setenv "TERM" "dumb") (let= ((display (frame-parameter nil 'display))) (if (stringp display) (setq= display (concat "DISPLAY=3D" display)) (let ((--dolist-tail-- in= itial-environment)) (while --dolist-tail-- (let ((varval (car --dolist-tail= --))) (if (string-match "\\`DISPLAY=3D" varval) (setq display var= val)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (= delete display process-environment)))))
=C2=A0 normal-top-level()
Loading macroexp.elc...
Internal native compiler error: "internati= onal/titdic-cnv.el", "failing to compile function", #<sym= bol titdic-convert at 16545>, "gcc_jit_context_new_call_through_ptr= : not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696= f6e_narrow_to_region_0 (got 2 args, expected 3)"
make[3]: *** [Make= file:331: international/titdic-cnv.elc] Error 255
make[3]: Leaving direc= tory '/home/german/repos/emacs/lisp'
make[2]: *** [Makefile:898:= ../lisp/loaddefs.el] Error 2
make[2]: *** Waiting for unfinished jobs..= ..
make[2]: Leaving directory '/home/german/repos/emacs/src'
= make[1]: *** [Makefile:469: src] Error 2
make[1]: Leaving directory '= ;/home/german/repos/emacs'
make: *** [Makefile:1178: bootstrap] Erro= r 2
--000000000000ecda2905e4f1b659-- From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: Gerd =?UTF-8?Q?M=C3=B6llmann?= Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 15:20:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: German Pacenza Cc: 56829@debbugs.gnu.org Received: via spool by 56829-submit@debbugs.gnu.org id=B56829.16591079464099 (code B ref 56829); Fri, 29 Jul 2022 15:20:01 +0000 Received: (at 56829) by debbugs.gnu.org; 29 Jul 2022 15:19:06 +0000 Received: from localhost ([127.0.0.1]:33222 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHRla-000143-7i for submit@debbugs.gnu.org; Fri, 29 Jul 2022 11:19:06 -0400 Received: from mail-ed1-f45.google.com ([209.85.208.45]:45004) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHRlX-00013W-OP for 56829@debbugs.gnu.org; Fri, 29 Jul 2022 11:19:04 -0400 Received: by mail-ed1-f45.google.com with SMTP id i13so6196568edj.11 for <56829@debbugs.gnu.org>; Fri, 29 Jul 2022 08:19:03 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=from:to:cc:subject:in-reply-to:references:date:message-id :user-agent:mime-version; bh=aYQM8uaaMXvGZZ9D0BpeeP98ZERPXcfCi+4J1PscKe0=; b=SG20E3Z5W3AhBdxZtSrcYaopOQRQFdGHXWE0AX625fg2LDpf5UTSGaGZaFwHnR7Iw3 GUDCXjPeeL5GA37+gBpAkNfZRm45m+LZXfBgCFz7SH2UV9YKmjkDTd3hA5f8kzlEsTNv RD9DX6Et23Cvt6/HhZsOKBcnBI8Vwsp4Kz4S1aM1iJZQCuRAy58eJbpbBfpeyEvQzyM7 Ws/oBIU6M54ZD8fOYvsLyuYuQMk8CUzA+LZetl062a20byjndRe1JMtmqB/enJjqmKxh wW78o7jRBVBqUnf5RBuruVjAfZkHBhVhH538RJggH5BxtB3OIHf5bamdzaKDxid1FY/8 Xukw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:cc:subject:in-reply-to:references:date :message-id:user-agent:mime-version; bh=aYQM8uaaMXvGZZ9D0BpeeP98ZERPXcfCi+4J1PscKe0=; b=vipFlK2Hz4bdaJ8pwMez088wGgp4+NYNjsqdgPb2LT+m1UNH4ih/kUX6iD9nrzbF0g mlLB24wgd1ebSEcQ0G+XbM3DHfIscWZkGyBeBut6SXyVcc3jJOrnlew3L5RKJVk7yhoP tiFu4qQsyGh43wj9DsOSTFM9idRXtV9me/p96cJwF2kIaa4aSROl20ZnakmIvN3ymsD1 l9zKa5cBbF8N/Ttorcrh3PoBmM4msiT7xX7qPCHdFk7oUiDKQDvO0DN/z3w7ehh8pmXc lJE6X/DVxD1KCWf1oq/z/gO1uUDBbs+ZwdrqzOltN0PJBfl6JDu8xs6WUGFuw7mIaPSn 9sHg== X-Gm-Message-State: AJIora+c29zfB0CONs1Y7jApiLREKXyk6LudbGpGR5yBRAd2zakKqKkI NFLFAeKCBDkmbcPt5sIUPqJnFAzvE0U= X-Google-Smtp-Source: AGRyM1uuF7hm2QyGf0AqieXagQ5VKuEhGB71fTM8NUjpkL3p2lE2+jjOQnhpPQOOiT4YbfJntfKuTQ== X-Received: by 2002:a05:6402:22ee:b0:43c:8a38:e019 with SMTP id dn14-20020a05640222ee00b0043c8a38e019mr3999157edb.147.1659107937291; Fri, 29 Jul 2022 08:18:57 -0700 (PDT) Received: from Mini.fritz.box (pd9e36be4.dip0.t-ipconnect.de. [217.227.107.228]) by smtp.gmail.com with ESMTPSA id x13-20020aa7dacd000000b0043cab10f702sm2533905eds.90.2022.07.29.08.18.56 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 29 Jul 2022 08:18:56 -0700 (PDT) From: Gerd =?UTF-8?Q?M=C3=B6llmann?= In-Reply-To: (German Pacenza's message of "Fri, 29 Jul 2022 10:34:39 -0300") References: Date: Fri, 29 Jul 2022 17:18:55 +0200 Message-ID: User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (darwin) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) German Pacenza writes: > Since commit c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 I am unable to > build Emacs: I think that's caused by d3c4833d1350e26a2ae35e00eaf2d6bef1724679, which * src/bytecode.c (exec_byte_code): Add a third argument to Fnarrow_to_region. From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: Eli Zaretskii Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 15:25:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: German Pacenza Cc: 56829@debbugs.gnu.org Received: via spool by 56829-submit@debbugs.gnu.org id=B56829.16591082784721 (code B ref 56829); Fri, 29 Jul 2022 15:25:02 +0000 Received: (at 56829) by debbugs.gnu.org; 29 Jul 2022 15:24:38 +0000 Received: from localhost ([127.0.0.1]:33237 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHRqv-0001E4-Lh for submit@debbugs.gnu.org; Fri, 29 Jul 2022 11:24:37 -0400 Received: from eggs.gnu.org ([209.51.188.92]:59674) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHRqt-0001Dp-1W for 56829@debbugs.gnu.org; Fri, 29 Jul 2022 11:24:36 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:41298) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oHRqn-0003Uf-Qs; Fri, 29 Jul 2022 11:24:29 -0400 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=bCxMUWzorRz7b2/EwZW/DZn8T+Ylyer9atLqQJHbN3Q=; b=ecfp+zhomzAr uOooZPOuW2Q9FHcGwhAEWkQdfA8QnUJhKJ8njIuuNj/Eee0FCErf5Wp+afW+Rhm/joHIqIgBcTgd+ /2WUENk91ODxnO2JgfrbmfDYD2x8+KK9sPboWIPLqJ9d8hIDwB97zF6uqlPo2/VS5AD0czPsJGAlc GO4sDWrpj5cduzx7jyKnwQjA2PCutHx2DnuXlGKGPQd0W6SYRubFYm0+IBwNwn9vGKh2oXVwpU61s Tbkvr/RsteMDopwB5JlH9YOGuQuySqclY2RSSG62J4BdKvEPkkWRQgckOXk+kr8gQyM+dsfwRyGU4 gT3HUUYazS6pNTCrhdw3qA==; Received: from [87.69.77.57] (port=3564 helo=home-c4e4a596f7) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oHRqn-00058v-AO; Fri, 29 Jul 2022 11:24:29 -0400 Date: Fri, 29 Jul 2022 18:24:41 +0300 Message-Id: <83ilng6ix2.fsf@gnu.org> From: Eli Zaretskii In-Reply-To: (message from German Pacenza on Fri, 29 Jul 2022 10:34:39 -0300) References: X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) > From: German Pacenza > Date: Fri, 29 Jul 2022 10:34:39 -0300 > > Since commit c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 I am unable to > build Emacs: > > make[4]: Leaving directory '/home/german/repos/emacs/admin/grammars' > ELC+ELN ../lisp/custom.elc > ELC+ELN ../lisp/dnd.elc > ELC+ELN ../lisp/disp-table.elc > ELC+ELN ../lisp/dos-fns.elc > ELC+ELN ../lisp/dos-vars.elc > ELC+ELN ../lisp/dos-w32.elc > ELC+ELN ../lisp/dynamic-setting.elc > ELC+ELN ../lisp/electric.elc > libgccjit.so: error: gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: > freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3) > libgccjit.so: error: gcc_jit_block_add_eval: NULL rvalue Ddi you try "make bootstrap"? narrow-to-region is defined with 2 mandatory arguments and 1 optional. From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: Gerd =?UTF-8?Q?M=C3=B6llmann?= Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 15:32:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: German Pacenza Cc: 56829@debbugs.gnu.org Received: via spool by 56829-submit@debbugs.gnu.org id=B56829.16591086865511 (code B ref 56829); Fri, 29 Jul 2022 15:32:01 +0000 Received: (at 56829) by debbugs.gnu.org; 29 Jul 2022 15:31:26 +0000 Received: from localhost ([127.0.0.1]:33246 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHRxV-0001Qp-UC for submit@debbugs.gnu.org; Fri, 29 Jul 2022 11:31:26 -0400 Received: from mail-ej1-f53.google.com ([209.85.218.53]:45641) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHRxS-0001Qb-A4 for 56829@debbugs.gnu.org; Fri, 29 Jul 2022 11:31:24 -0400 Received: by mail-ej1-f53.google.com with SMTP id fy29so9094765ejc.12 for <56829@debbugs.gnu.org>; Fri, 29 Jul 2022 08:31:22 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=from:to:cc:subject:in-reply-to:references:date:message-id :user-agent:mime-version; bh=lTDC/HIoYlct/1m38+yXAwUYe6+gZavcoRjewBMGJJo=; b=h8cLxtNl0jO5IbFUuWj2TJiIcraev0Wbc5XqUoK3nCPaX3qPwkOJP/7/CzFFhknm1S d2WNn8huAyKndp3VZIkEenYRQAJywKbF8H66aeKu4dpH9YuGEWdlEwlkFvhabXNVV6o3 MGE2y9MbePaFTHEmsXGDEV6VvL2t7IlFRckTdLWFyBtllCdncgFVoRdg/2ql+baWliH1 RH1rZeLM2Hf/pgEKqqmyLsUTrgG7lz0PnTGmgmkYS6SyJQGPcu1HuQz3mjGxzXuFqaKm 1njk3cG978iaaZ4y0iyNXTL0o7WPkjjWihIy2i+OLn6x/Z/084pOsh0YpmNi5YceGgux 8yIQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:cc:subject:in-reply-to:references:date :message-id:user-agent:mime-version; bh=lTDC/HIoYlct/1m38+yXAwUYe6+gZavcoRjewBMGJJo=; b=BaiLHwCqyGBlnYSmpbTWQcFNIb0kEg8kEq9Uq9iHShR6cNqUvMpiEOXoyCaq9YisSJ bYC1/b6AY2gzWF9RO+mdCk0zUcE+QGeJb4TXqsfVrTQn1qGKeq4+8a6VC5oO5krIEj9o 0iyqGwT8Y0f8PWE2whHoAM2JJoSv3pj/9xVZ/7eFAca1pjep6T6CbDVWImuWeWBM/ziH xYUN+aiu4VDmztdNnkKveFJtKlUe9XShWetkiZyVKCt2GNkwJjKTbu15k9GRRNgE0/rG lk+k3e7OlD08Xpm+OZQ05lX1StaRDhX0KxfRaOrg3QX0dx+tICpU1+iNN1JW4dWgH4p3 gxoQ== X-Gm-Message-State: AJIora/h/QrTtZwyL8Egg5MvyP6AVZHo01BZFWCsWybWKHf8T5KqbgWg klwOEoQI+nLnqo3M1FRQzux6xRfOH8w= X-Google-Smtp-Source: AGRyM1tF/QTfnHpstXX9gkxvvlSCWDHvnnhykPKy21k+LI5t5DB6VHl6eZ0VbBKig9wwzIAI2Kyqyw== X-Received: by 2002:a17:907:868f:b0:72b:859e:8fe4 with SMTP id qa15-20020a170907868f00b0072b859e8fe4mr3246591ejc.98.1659108675841; Fri, 29 Jul 2022 08:31:15 -0700 (PDT) Received: from Mini.fritz.box (pd9e36be4.dip0.t-ipconnect.de. [217.227.107.228]) by smtp.gmail.com with ESMTPSA id i8-20020aa7dd08000000b0043bea0a48d0sm2485254edv.22.2022.07.29.08.31.14 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 29 Jul 2022 08:31:15 -0700 (PDT) From: Gerd =?UTF-8?Q?M=C3=B6llmann?= In-Reply-To: (German Pacenza's message of "Fri, 29 Jul 2022 10:34:39 -0300") References: Date: Fri, 29 Jul 2022 17:31:13 +0200 Message-ID: User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (darwin) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) Could you please check with latest master? From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: Eli Zaretskii Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 15:38:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Gerd =?UTF-8?Q?M=C3=B6llmann?= Cc: germanp1982@gmail.com, 56829@debbugs.gnu.org Received: via spool by 56829-submit@debbugs.gnu.org id=B56829.16591090336100 (code B ref 56829); Fri, 29 Jul 2022 15:38:01 +0000 Received: (at 56829) by debbugs.gnu.org; 29 Jul 2022 15:37:13 +0000 Received: from localhost ([127.0.0.1]:33260 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHS37-0001aK-DD for submit@debbugs.gnu.org; Fri, 29 Jul 2022 11:37:13 -0400 Received: from eggs.gnu.org ([209.51.188.92]:35420) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHS35-0001Zz-Nx for 56829@debbugs.gnu.org; Fri, 29 Jul 2022 11:37:12 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:41520) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oHS30-0005jt-Gm; Fri, 29 Jul 2022 11:37:06 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-version:References:Subject:In-Reply-To:To:From: Date; bh=r6mDqguDVAlVYPDwk+PF5ROgxIFeGRkCR6Yrdv4INy8=; b=c1FMW5QzH41pLPCnzkW0 IP24JvmF9Ch9J+HfrFWouexqXvBmXYUioXNd6ThUb/Q7pWPQ/BC66shW6tLx5d8Cb12w/dH2hIMha Zu0mvN9K7kk1zL0rUa9uRnlodsry6daZPBhvPOoJ+jjafGXv3rIcyPJJmmoBatLbpnwAcM9ZozVRT r5sS3okuwY6tBUKReRqdibZ3tdp6GKOGvV+kkCNkzQAzmKb5CbpNtJsH2I/a4HpCPv2JBEKO5+6A2 X2pQIYQQ0XGK1DM+hGcOkw7jb5mD1O29n94H/4sBKNdswIWSZDykyxMBlXQN7sYHqca4dzsLDHRJ4 euj+waLtXlBFxA==; Received: from [87.69.77.57] (port=4344 helo=home-c4e4a596f7) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oHS2z-0002AH-VV; Fri, 29 Jul 2022 11:37:06 -0400 Date: Fri, 29 Jul 2022 18:37:18 +0300 Message-Id: <83fsik6ic1.fsf@gnu.org> From: Eli Zaretskii In-Reply-To: (message from Gerd =?UTF-8?Q?M=C3=B6llmann?= on Fri, 29 Jul 2022 17:18:55 +0200) References: MIME-version: 1.0 Content-type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) > Cc: 56829@debbugs.gnu.org > From: Gerd Möllmann > Date: Fri, 29 Jul 2022 17:18:55 +0200 > > German Pacenza writes: > > > Since commit c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 I am unable to > > build Emacs: > > I think that's caused by d3c4833d1350e26a2ae35e00eaf2d6bef1724679, which > > * src/bytecode.c (exec_byte_code): Add a third argument to > Fnarrow_to_region. But the third argument is optional, so what is the problem? From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: Gerd =?UTF-8?Q?M=C3=B6llmann?= Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 15:48:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Eli Zaretskii Cc: germanp1982@gmail.com, 56829@debbugs.gnu.org Received: via spool by 56829-submit@debbugs.gnu.org id=B56829.16591096277164 (code B ref 56829); Fri, 29 Jul 2022 15:48:02 +0000 Received: (at 56829) by debbugs.gnu.org; 29 Jul 2022 15:47:07 +0000 Received: from localhost ([127.0.0.1]:33285 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHSCg-0001rU-O2 for submit@debbugs.gnu.org; Fri, 29 Jul 2022 11:47:06 -0400 Received: from mail-ed1-f45.google.com ([209.85.208.45]:35641) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHSCd-0001qx-CP for 56829@debbugs.gnu.org; Fri, 29 Jul 2022 11:47:05 -0400 Received: by mail-ed1-f45.google.com with SMTP id e15so6314319edj.2 for <56829@debbugs.gnu.org>; Fri, 29 Jul 2022 08:47:03 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=message-id:date:mime-version:user-agent:subject:content-language:to :cc:references:from:autocrypt:in-reply-to; bh=o5rgSg6LqWc/+JKoUIaD+874vOfGEZgghNz6C454f2Q=; b=nMbm+8Si/w/HaFvcTQ/W5SGcQFtQAj1rutIiNC9ekAFrlbD2xBEOOBQpvqFgH8VUFa AUzY/WmqQQQXZ4hCMeNRWo1Y6B0rUoH9hnvI6ZnY/V9RaMonfC1oag2Hj7AT9qipgZ5F j2e0tZqOc2mrXUVyN9v8Gryhm1exxpg+8c8zg3M1AWk8LHnoefkRQvwJmt440aiRa4TG Gz+r6r42nm+WbFA7DcPdaqB9wEa1oRgCXXBXv1/LC3Exe46QFrr/0MiSDagcUJYWT8QK 0tuHwM1JjwSCIYb4DAiemHNuFbtvmQrNwyyjXSs8Yq7HG405t38kQ8bbNbXsv8PlEWDu wYOQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:message-id:date:mime-version:user-agent:subject :content-language:to:cc:references:from:autocrypt:in-reply-to; bh=o5rgSg6LqWc/+JKoUIaD+874vOfGEZgghNz6C454f2Q=; b=VClurW5TKpORKCt27+VAeJFhTrcGUWXpH3Vp+osG++a08NyawU3iDj8i1wnP1cpi82 Kxm3BSTZ1Pl7HFBP+WzO3JSO4c0jjm+KxcyuI5o7mPcxGBsdIm1MnlrnEYybZb0LAGuC rsA8PVRKqs+z/UzmfYmoMjXz0ONDjfPc7mmW3TKsK4aIVa02V9td074S6TlNmRKew5CE IfXONxpuIuUHaWt1LzN1DgnwacgqIJl54T3fxO8A2BT2TrciWk6Mb0aMQX+cRf0rV35i HFJN+iO2Ts8B/WEvG66LLotoliGZTwONQwkiA9a2js7T0t3CCNua4mTMXzuHLVznP/IV JRtg== X-Gm-Message-State: AJIora92zeJRfXP/K3gJIUqpjjWtKz2DA9dxXIYlxFPgrUNq6ntfVC+2 4mnnzm0/Bkau/6TPJOi/DWo= X-Google-Smtp-Source: AGRyM1s7/0W9yPULMv16wlQXQN0F4K2H3xYLc2Nx6YjmXh2hJZTsTCRgwpgKb+zFsYfjgi57uEeX2A== X-Received: by 2002:a05:6402:378f:b0:43a:d3f5:79f2 with SMTP id et15-20020a056402378f00b0043ad3f579f2mr4176004edb.338.1659109616957; Fri, 29 Jul 2022 08:46:56 -0700 (PDT) Received: from [192.168.178.21] (pd9e36be4.dip0.t-ipconnect.de. [217.227.107.228]) by smtp.gmail.com with ESMTPSA id c5-20020a170906d18500b0072f1e7b06d9sm1833395ejz.59.2022.07.29.08.46.55 (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Fri, 29 Jul 2022 08:46:56 -0700 (PDT) Message-ID: <2186d242-3873-97d0-fb6b-e4e552dc9b62@gmail.com> Date: Fri, 29 Jul 2022 17:46:54 +0200 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.15; rv:91.0) Gecko/20100101 Thunderbird/91.11.0 Content-Language: en-US References: <83fsik6ic1.fsf@gnu.org> From: Gerd =?UTF-8?Q?M=C3=B6llmann?= Autocrypt: addr=gerd.moellmann@gmail.com; keydata= xsFNBGK3Qz4BEADz6clhctm9qf4lh1IJMOGL8dEBtyR8ZvdCtv1m7Oj5BVmBrHbF/hp/R/7m VAPNsyfPKNuqlesBmh/hr5zEHdzHMvLj8Hf5Yp8Ufo0ZqOtCzvIe62PHKvjt59FMNH3fpnId g5/8Kea2plWwH2u2hwxkhgC1mlMQFCILPED7OIMA3y4QvVbHqGP+kFl0OVHc4BeJHEXpVZTq RZl7q6V0LaXZtYWNffvQ/BWa9gmc1HztQTSBx6f3Lf9VTf5gQK7k691U+Vgyz7asKkHKeMO5 cdHAwsN+G+oI4KB2YCm2UMMpUKnoFLxdmswQGu1z6D75YlfxDLZmOTphlFXvIstoJnAgcT1Z ubowXAlHbxGnTfugZfe19xJxRTZ9zOty6m0aNaT4MshBQRj18nkZiBjZIoVQmluVMSgQ3kKJ cDzv+IijRf/9ekOcCfM8PK2pxOHX/lXm4fVW8hS4OMp/IPGTvAvu2ZXUOJSZpTUYz0EY3Al9 3XArmICvatrX/ePgvonkWJuruIQ6pPoefCsJyWaZj4/nrlW2mweDfVBkTbblbLO98UHM1TYu 1Pc0eTZChk7+5F8dXj7Tfn2Ll4xMVoYbIV5yEr1wMq/9d6S2EckCZAnH7R1romvtJhcse+uz tB2nyqxvCwMzZ28RrJiXkR4QIMSJi1ZMHU0dFQlkwZ/sRN0asQARAQABzSlHZXJkIE3Dtmxs bWFubiA8Z2VyZC5tb2VsbG1hbm5AZ21haWwuY29tPsLBlAQTAQoAPhYhBIq2Hj6Yk/Nh45H7 aXPqGxmQxT5jBQJit0M+AhsDBQkHhh9SBQsJCAcDBRUKCQgLBRYCAwEAAh4BAheAAAoJEHPq GxmQxT5jG7sP/RcgeXp78GCJqyG52rXVBoxFc2qYi+j09jh7gLvHIvxiSW7umH68V6lhc9pY cIjLcI6qKyqHeyOytSYX7TGqA9L5S3oBZlSeQPN2q1kliNkOWG77T+9MVHkfNH3E+FM+BfqF oxcB6vpjcNkuT/y82ZaFwCHFhcIFjnCTp78HB7AkaywEAqtKCdJ70m5L4vPONMpA3P6S8AKf JEVyBZKUs2HSJtrObmW6wh0zRA//lKrI16ctCI476CgAqUTO+1blfx86XmRlwgc3McijArAX grj25yg9ryltL5YMv4M/pigqQMcwJ8bf4Q10si7jJ1SvGu9YMoTQ+QbYUtPYtPhYmJOT1CW/ jyIQrkRSPh8qslVM2frvD5YeQOMJMnW9ffB2ANDHGfiGHepm67gdeoKgO/ZShdSQchUCkkK7 ayjurIB6iYzuV/PSB1eQdxnG2RO/2w6ejcuk+nkFOavoyxDId/KRAZzWrErQnBQs9uZtwXrT FbB4rvL2apInnQKGCuiySscUrLeumbI3dCEjkOHfsqNLJj1LAL7HWsF3hBCnjupEglxP/7Ap D8SsANdmoEtJFjGJDcuX99PLl1zBrhjKFaIbIE/l+ncNrS8NwTTwr/Gdc+4YcSFmU/WXEP6R 70TTG0BBWM3If5lsMx1sPy5F/iuZCGzc7p5phO3Rg8btm0MzzsFNBGK3Qz4BEAC0R6MIhNIx RvY6VKUdP1OmR87arhPmZZWG4HOeH7uJ5QkgXbALd5SacbE5Hkfy9e+k25iTirJcA6EUMZcH KG26V3s1QKWDZMFT5ejTva4ZkAH3DitgnPDGTNnKEkLOSYJdTRtpXOqkdr9XyyKA8hjERPHU fgX32yqPj61pMK0uOm+EMaK4odoAIjix2qO6og7T97roiYn/Diw21V8aVWd08N2d8UZMVJuF /Z5xUB3pNqejNk3ZZEGsuHLAExHSuY9nRpW8PvwZZ/zWncrqJRmOD9xgbk8yuY99LM7ETyuT e73DIYKIHTL7XTq9yYnj9K3nZRRaABmhEfNY5wx2xwakkYjtTpA9LEIVDhWZDDw44v+rumVz 8MQB62RKyLyJnmt86qkDC6TTiHK2nK1r4XPyoYlIWF7pkoY1a2EVPkd67sKWjlvJ/oFjaSn6 WxfmyvPmm/2ryHyMuUepLZnjX/VA2ZIQ3VYrEsVDh1T2zTIX4myP6NwLTOVFpryRDD+WgNaL l5gbRRAJVcAEq4T63+zucULN98w59sGggdLrViiCL6bEeujj5dSI+BD1rog1rwhfzqMRdhVi rd2GwqvZNceVo2syx4V2JSPdp8na2pTyM9zI68JYVyvP+R5ok5CyVmEHgRkz9HNnZuG/bEPn zqeLROI/mqbxydwPLYi6PS+QLQARAQABwsF8BBgBCgAmFiEEirYePpiT82Hjkftpc+obGZDF PmMFAmK3Qz4CGwwFCQeGH1IACgkQc+obGZDFPmOT+g/9Hlui+8/EEiq3iat9OAXSR+qv4RGY 2XxdbsQVVr3Hx240IV9voxXqPa58Yt51qxlfdWaEkMcesqr8RPSS9FeEj0Zn4pWULp52j2Gu mTpJy4gnLkO12mUVOF/W9HazQdNjQqaAE2neimtmI5zUbGzdwKk7OBWGs9cBc3fJCZeAvuxE 3zTM/AoeFkqQ94F7jQERV+PNTbnNsXAj/0mu4Kp/nJsX2+b6V4zl2VN7GvSWuPyXCi8SZGZt fj4eETb0P7N1gCpch7NjhFe3nYWRG5D6HdcXak0DYsXwd3CbEHo8s36bSbIZ1EgIKjoqNow3 MrqJQsCuT8zajL95zBUICjF7IDYHW7EIDOma6p3D4dSJ+ySPkV5ZKzoqDEKKSKmgV9hDMknp Vsm6TRCyz+y3iDW4Fl8pTPR30Ug+vuNM5jK328wcpYrKrzbjf5JK3lT9fRV/uzBUTBjVE7oL yEGHWwCb5gr+dWSscS6l2Jjeh7fgpfhrbCZYvvcxC4Bfu1kFAhH20VFGYbo6O3xlNwJp8esi d1hplqC5SK7WmjZI0yEODn5Nt2fnk4zq1kXyqyj9jIh7VvYBJ7MDKcSINBwdOnSbmtYhUQfW 1fiKRG+gNgVI1o+mYoBgNd80vK8xfNUZjW8aVzJsS6F4C4hLXjs9dHKfEcgRnndY+AgoHVZy Vp5NW5c= In-Reply-To: <83fsik6ic1.fsf@gnu.org> Content-Type: multipart/signed; micalg=pgp-sha256; protocol="application/pgp-signature"; boundary="------------jldGGRgVQdS6LsCTdpoAS0VS" X-Spam-Score: -0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) This is an OpenPGP/MIME signed message (RFC 4880 and 3156) --------------jldGGRgVQdS6LsCTdpoAS0VS Content-Type: multipart/mixed; boundary="------------wF0vdAylY0hv3SwMZClN4Q2d"; protected-headers="v1" From: =?UTF-8?Q?Gerd_M=c3=b6llmann?= To: Eli Zaretskii Cc: germanp1982@gmail.com, 56829@debbugs.gnu.org Message-ID: <2186d242-3873-97d0-fb6b-e4e552dc9b62@gmail.com> Subject: Re: bug#56829: Unable to build Emacs with native compilation References: <83fsik6ic1.fsf@gnu.org> In-Reply-To: <83fsik6ic1.fsf@gnu.org> --------------wF0vdAylY0hv3SwMZClN4Q2d Content-Type: multipart/mixed; boundary="------------0iMTagHs0C45VLb9Sw0AijI4" --------------0iMTagHs0C45VLb9Sw0AijI4 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: base64 DQpPbiAyMi0wNy0yOSAxNzozNyAsIEVsaSBaYXJldHNraWkgd3JvdGU6DQo+IEJ1dCB0aGUg dGhpcmQgYXJndW1lbnQgaXMgb3B0aW9uYWwsIHNvIHdoYXQgaXMgdGhlIHByb2JsZW0/DQoN CllvdSBhcmUgcmlnaHQgLSBjYXVzZSBpcyB0aGUgd3Jvbmcgd29yZC4NCg0KVGhlIHByb2Js ZW0gaXMgdGhlIGNoYW5nZSBvZiBuYXJyb3ctdG8tcmVnaW9uIHRoYXQgdGhlIG5hdGl2ZSBj b21waWxlciANCmRvZXNuJ3Qga25vdyBhYm91dC7CoCBUaGUgbmF0aXZlIGNvbXBpbGVyIGhh cyBhIHRhYmxlIG9mIGJ5dGUgY29kZXMgd2l0aCANCmNvcnJlc3BvbmRpbmcgY2FsbHMgaXQg Z2VuZXJhdGVzLsKgIEl0IHNob3VsZCBkbyB0aGUgc2FtZSBvZiB0aGUgc2FtZSBhcyANCnRo ZSBieXRlIGNvZGUgaW50ZXJwcmV0ZXIsIHdoaWNoIGlzIHBhc3NpbmcgbmlsIGZvciB0aGUg b3B0aW9uYWwgcGFyYW1ldGVyLg0KDQo= --------------0iMTagHs0C45VLb9Sw0AijI4 Content-Type: application/pgp-keys; name="OpenPGP_0x73EA1B1990C53E63.asc" Content-Disposition: attachment; filename="OpenPGP_0x73EA1B1990C53E63.asc" Content-Description: OpenPGP public key Content-Transfer-Encoding: quoted-printable -----BEGIN PGP PUBLIC KEY BLOCK----- xsFNBGK3Qz4BEADz6clhctm9qf4lh1IJMOGL8dEBtyR8ZvdCtv1m7Oj5BVmBrHbF /hp/R/7mVAPNsyfPKNuqlesBmh/hr5zEHdzHMvLj8Hf5Yp8Ufo0ZqOtCzvIe62PH Kvjt59FMNH3fpnIdg5/8Kea2plWwH2u2hwxkhgC1mlMQFCILPED7OIMA3y4QvVbH qGP+kFl0OVHc4BeJHEXpVZTqRZl7q6V0LaXZtYWNffvQ/BWa9gmc1HztQTSBx6f3 Lf9VTf5gQK7k691U+Vgyz7asKkHKeMO5cdHAwsN+G+oI4KB2YCm2UMMpUKnoFLxd mswQGu1z6D75YlfxDLZmOTphlFXvIstoJnAgcT1ZubowXAlHbxGnTfugZfe19xJx RTZ9zOty6m0aNaT4MshBQRj18nkZiBjZIoVQmluVMSgQ3kKJcDzv+IijRf/9ekOc CfM8PK2pxOHX/lXm4fVW8hS4OMp/IPGTvAvu2ZXUOJSZpTUYz0EY3Al93XArmICv atrX/ePgvonkWJuruIQ6pPoefCsJyWaZj4/nrlW2mweDfVBkTbblbLO98UHM1TYu 1Pc0eTZChk7+5F8dXj7Tfn2Ll4xMVoYbIV5yEr1wMq/9d6S2EckCZAnH7R1romvt Jhcse+uztB2nyqxvCwMzZ28RrJiXkR4QIMSJi1ZMHU0dFQlkwZ/sRN0asQARAQAB zSlHZXJkIE3DtmxsbWFubiA8Z2VyZC5tb2VsbG1hbm5AZ21haWwuY29tPsLBlAQT AQoAPhYhBIq2Hj6Yk/Nh45H7aXPqGxmQxT5jBQJit0M+AhsDBQkHhh9SBQsJCAcD BRUKCQgLBRYCAwEAAh4BAheAAAoJEHPqGxmQxT5jG7sP/RcgeXp78GCJqyG52rXV BoxFc2qYi+j09jh7gLvHIvxiSW7umH68V6lhc9pYcIjLcI6qKyqHeyOytSYX7TGq A9L5S3oBZlSeQPN2q1kliNkOWG77T+9MVHkfNH3E+FM+BfqFoxcB6vpjcNkuT/y8 2ZaFwCHFhcIFjnCTp78HB7AkaywEAqtKCdJ70m5L4vPONMpA3P6S8AKfJEVyBZKU s2HSJtrObmW6wh0zRA//lKrI16ctCI476CgAqUTO+1blfx86XmRlwgc3McijArAX grj25yg9ryltL5YMv4M/pigqQMcwJ8bf4Q10si7jJ1SvGu9YMoTQ+QbYUtPYtPhY mJOT1CW/jyIQrkRSPh8qslVM2frvD5YeQOMJMnW9ffB2ANDHGfiGHepm67gdeoKg O/ZShdSQchUCkkK7ayjurIB6iYzuV/PSB1eQdxnG2RO/2w6ejcuk+nkFOavoyxDI d/KRAZzWrErQnBQs9uZtwXrTFbB4rvL2apInnQKGCuiySscUrLeumbI3dCEjkOHf sqNLJj1LAL7HWsF3hBCnjupEglxP/7ApD8SsANdmoEtJFjGJDcuX99PLl1zBrhjK FaIbIE/l+ncNrS8NwTTwr/Gdc+4YcSFmU/WXEP6R70TTG0BBWM3If5lsMx1sPy5F /iuZCGzc7p5phO3Rg8btm0MzzsFNBGK3Qz4BEAC0R6MIhNIxRvY6VKUdP1OmR87a rhPmZZWG4HOeH7uJ5QkgXbALd5SacbE5Hkfy9e+k25iTirJcA6EUMZcHKG26V3s1 QKWDZMFT5ejTva4ZkAH3DitgnPDGTNnKEkLOSYJdTRtpXOqkdr9XyyKA8hjERPHU fgX32yqPj61pMK0uOm+EMaK4odoAIjix2qO6og7T97roiYn/Diw21V8aVWd08N2d 8UZMVJuF/Z5xUB3pNqejNk3ZZEGsuHLAExHSuY9nRpW8PvwZZ/zWncrqJRmOD9xg bk8yuY99LM7ETyuTe73DIYKIHTL7XTq9yYnj9K3nZRRaABmhEfNY5wx2xwakkYjt TpA9LEIVDhWZDDw44v+rumVz8MQB62RKyLyJnmt86qkDC6TTiHK2nK1r4XPyoYlI WF7pkoY1a2EVPkd67sKWjlvJ/oFjaSn6WxfmyvPmm/2ryHyMuUepLZnjX/VA2ZIQ 3VYrEsVDh1T2zTIX4myP6NwLTOVFpryRDD+WgNaLl5gbRRAJVcAEq4T63+zucULN 98w59sGggdLrViiCL6bEeujj5dSI+BD1rog1rwhfzqMRdhVird2GwqvZNceVo2sy x4V2JSPdp8na2pTyM9zI68JYVyvP+R5ok5CyVmEHgRkz9HNnZuG/bEPnzqeLROI/ mqbxydwPLYi6PS+QLQARAQABwsF8BBgBCgAmFiEEirYePpiT82Hjkftpc+obGZDF PmMFAmK3Qz4CGwwFCQeGH1IACgkQc+obGZDFPmOT+g/9Hlui+8/EEiq3iat9OAXS R+qv4RGY2XxdbsQVVr3Hx240IV9voxXqPa58Yt51qxlfdWaEkMcesqr8RPSS9FeE j0Zn4pWULp52j2GumTpJy4gnLkO12mUVOF/W9HazQdNjQqaAE2neimtmI5zUbGzd wKk7OBWGs9cBc3fJCZeAvuxE3zTM/AoeFkqQ94F7jQERV+PNTbnNsXAj/0mu4Kp/ nJsX2+b6V4zl2VN7GvSWuPyXCi8SZGZtfj4eETb0P7N1gCpch7NjhFe3nYWRG5D6 HdcXak0DYsXwd3CbEHo8s36bSbIZ1EgIKjoqNow3MrqJQsCuT8zajL95zBUICjF7 IDYHW7EIDOma6p3D4dSJ+ySPkV5ZKzoqDEKKSKmgV9hDMknpVsm6TRCyz+y3iDW4 Fl8pTPR30Ug+vuNM5jK328wcpYrKrzbjf5JK3lT9fRV/uzBUTBjVE7oLyEGHWwCb 5gr+dWSscS6l2Jjeh7fgpfhrbCZYvvcxC4Bfu1kFAhH20VFGYbo6O3xlNwJp8esi d1hplqC5SK7WmjZI0yEODn5Nt2fnk4zq1kXyqyj9jIh7VvYBJ7MDKcSINBwdOnSb mtYhUQfW1fiKRG+gNgVI1o+mYoBgNd80vK8xfNUZjW8aVzJsS6F4C4hLXjs9dHKf EcgRnndY+AgoHVZyVp5NW5c=3D =3DxjfX -----END PGP PUBLIC KEY BLOCK----- --------------0iMTagHs0C45VLb9Sw0AijI4-- --------------wF0vdAylY0hv3SwMZClN4Q2d-- --------------jldGGRgVQdS6LsCTdpoAS0VS Content-Type: application/pgp-signature; name="OpenPGP_signature.asc" Content-Description: OpenPGP digital signature Content-Disposition: attachment; filename="OpenPGP_signature" -----BEGIN PGP SIGNATURE----- wsF5BAABCAAjFiEEirYePpiT82Hjkftpc+obGZDFPmMFAmLkAO4FAwAAAAAACgkQc+obGZDFPmN1 /g/6Au8q5AqvyAq2JwnnzEFg0TfCtrJIi55QEHrbmo0aA7415/TVN/y1lvPaCYYBj9CpOQIMKO/E jIUTzA0GOm+O6eloItzdt+8Op2i0snQ13e93XhvWa6z/Y3Rh35dVeKDL6kn+t22TNRh9ZsbjHxFR Yq2lsrKJQR9g9isFGv6+l5JI66lmCQqernzBYCJG023MhCdTIwKn0/ewsCTaSPxUYytXPkungZdJ Q294cjoaVQKZ4XcZJKzvgeofuN6qVzJ/PypxJ5AhJ+lbBFAQJJQoOf2xwl0O9p/J5hOa3vBLdC9U 3ErsXTT/KkX/9pxU2NXQP1dURuJSH2t5IDlKS1Q/6Ro/DOS3pqPBEnI5yylfDbfogSuuwGmErB+S 62Y8ihF5fFElPs7pbGVEGwAbd0dnN3MAJEyUN+JgVs9CQbwU/GHZs69h1zugaxM8hl2Yby0/g9C4 ww93gfnas5U295hbZgprex8DnThZ/48++5lrQpeeBu0qHIhIoob5ceoT0PQ9joh+OmhbaAbLviWw W37XfCmJ6qsPBMF9oni2oTLK8TleBmYp6sn/tUxlgIkhz3vd0FPCX7wLprGsq9+/iwUHM2BDddQO CkhKsnj4KfZdybDw95fcDlFdShP4YeJYb1d24/ov+UaEFIA4ypG7vZxeAYSv6jO38M6K/PBDyjq0 s/A= =s2dm -----END PGP SIGNATURE----- --------------jldGGRgVQdS6LsCTdpoAS0VS-- From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: German Pacenza Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 16:20:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Gerd =?UTF-8?Q?M=C3=B6llmann?= Cc: Eli Zaretskii , 56829@debbugs.gnu.org Received: via spool by 56829-submit@debbugs.gnu.org id=B56829.165911158310703 (code B ref 56829); Fri, 29 Jul 2022 16:20:02 +0000 Received: (at 56829) by debbugs.gnu.org; 29 Jul 2022 16:19:43 +0000 Received: from localhost ([127.0.0.1]:33343 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHSiD-0002mY-Ax for submit@debbugs.gnu.org; Fri, 29 Jul 2022 12:19:43 -0400 Received: from mail-ed1-f43.google.com ([209.85.208.43]:40531) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHSYy-0002Vc-AE for 56829@debbugs.gnu.org; Fri, 29 Jul 2022 12:10:11 -0400 Received: by mail-ed1-f43.google.com with SMTP id z15so6376563edc.7 for <56829@debbugs.gnu.org>; Fri, 29 Jul 2022 09:10:08 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=CvQg4rrzH23q1nv+VQoLcEnBr6nDFAetkPOm/NuKpk8=; b=ircQYgwJXASThfcmH7a2h8p8K4DAkvddeUKUM+jU9EmJ/Ms2+RxMqANWO+s+UE85eB F7Jpr33AXilagGO8hvu1WSefnlcIFj/YCyJtGiyJg9+UXEhFerEXz9s0Z1RvQ8OkwpH6 p+0injVYFjwW1ql7RfYfjuAhLZg1ZQzhIuiopN4ugM99RAFXPWOWyGcRaVTEVZjhBuhg ew/6LWdPq/bKREv88pNz9KR/QJ0dsYuih5g27ZT0aJBc5b8B4Pr08bR6eWNXqM7enZ+v k8YaldMqyZpxTK/R2mQKkZY9F+EO8h25spWBCodhlPrhs10nyahdKtGCqKCvs3VzyhCe 3GCw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=CvQg4rrzH23q1nv+VQoLcEnBr6nDFAetkPOm/NuKpk8=; b=oMUYJV+HlG2zoHz0NEYXSkcrF9jEYnLk5fS+QnKISocyglWFiCdJwmMZsdFQXULvj+ 2kbVvy4NgYmZ+LIrkn+tgT2pmcJwVcWTsTc7STEll71UdtE3o/xEtOy+TQr/7lfqjfE/ JxqPo3DHTc2F+7Mg5QFRma1+w336W1sqTm5xO0PdouEt4eEsfyHJEyca7T9OOF7z+XAk rJPRq9BWILgluRoy46/qOKRBkfGYJbOlQlsWHWQhoRNW4SKJ5GyIbJeFLXuSxAFANDN9 3ybCWi+s+0cmRzCf3mpGbj5/4dITCYwLkbgC0wt1vJ9ZLz9ixysi8eEg5a75CeVz/hoA Jlaw== X-Gm-Message-State: AJIora9AJ4n5IRe8PUfhz3WzInIU+5eRjDXLxpcx7+GBVV9IhMp/RtAG 5CTQgx5yEr0sJDJQ0BcJGXCUEyiACS8XOJqLHqE= X-Google-Smtp-Source: AGRyM1sPHPtndz1zt9089BzjcsNJsZII8rs2Am2KfCjJ/kkBRVQrKwOcE1Y56xESFZ8sdsWH5bp/BIvG67ikoFTVvws= X-Received: by 2002:a05:6402:168a:b0:43c:c76b:25ec with SMTP id a10-20020a056402168a00b0043cc76b25ecmr4289316edv.47.1659111002337; Fri, 29 Jul 2022 09:10:02 -0700 (PDT) MIME-Version: 1.0 References: <83fsik6ic1.fsf@gnu.org> <2186d242-3873-97d0-fb6b-e4e552dc9b62@gmail.com> In-Reply-To: <2186d242-3873-97d0-fb6b-e4e552dc9b62@gmail.com> From: German Pacenza Date: Fri, 29 Jul 2022 13:09:51 -0300 Message-ID: Content-Type: multipart/alternative; boundary="000000000000eff65805e4f3e1df" X-Spam-Score: 0.3 (/) X-Mailman-Approved-At: Fri, 29 Jul 2022 12:19:40 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.7 (/) --000000000000eff65805e4f3e1df Content-Type: text/plain; charset="UTF-8" I tried with both 'make' and 'make bootstrap': 'make' compiles but the native compile errors appear during runtime in the message buffer 'make bootstrap' fails during compilation I did more testing: 3f05698dfb5edfce050c7402ea400b61ad808ce4 works d3c4833d1350e26a2ae35e00eaf2d6bef1724679 fails but then 77882158b2aeff7f235c409d6572173ae4c3a38f works again and c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 fails --000000000000eff65805e4f3e1df Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
I tried with both &= #39;make' and 'make bootstrap':
'make' compil= es but the native compile errors appear during runtime in the message buffe= r
'make bootstrap' fails during compilation

I did more testing:
3f05698dfb5edfce050c740= 2ea400b61ad808ce4 works
d3c4833d1350e26a2ae35e00eaf2d6bef1724679 = fails
but then 77882158b2aeff7f235c409d6572173ae4c3a38f works aga= in
and c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 fails

--000000000000eff65805e4f3e1df-- From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: Andreas Schwab Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 16:24:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Eli Zaretskii Cc: Gerd =?UTF-8?Q?M=C3=B6llmann?= , germanp1982@gmail.com, 56829@debbugs.gnu.org Received: via spool by 56829-submit@debbugs.gnu.org id=B56829.165911181111125 (code B ref 56829); Fri, 29 Jul 2022 16:24:02 +0000 Received: (at 56829) by debbugs.gnu.org; 29 Jul 2022 16:23:31 +0000 Received: from localhost ([127.0.0.1]:33347 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHSlv-0002tN-Jx for submit@debbugs.gnu.org; Fri, 29 Jul 2022 12:23:31 -0400 Received: from mail-out.m-online.net ([212.18.0.9]:38812) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHSlr-0002tA-RW for 56829@debbugs.gnu.org; Fri, 29 Jul 2022 12:23:29 -0400 Received: from frontend01.mail.m-online.net (unknown [192.168.8.182]) by mail-out.m-online.net (Postfix) with ESMTP id 4LvXrG4Tsyz1qybm; Fri, 29 Jul 2022 18:23:26 +0200 (CEST) Received: from localhost (dynscan1.mnet-online.de [192.168.6.70]) by mail.m-online.net (Postfix) with ESMTP id 4LvXrG28Yrz1qqkB; Fri, 29 Jul 2022 18:23:26 +0200 (CEST) X-Virus-Scanned: amavisd-new at mnet-online.de Received: from mail.mnet-online.de ([192.168.8.182]) by localhost (dynscan1.mail.m-online.net [192.168.6.70]) (amavisd-new, port 10024) with ESMTP id qRHrNPwA2xXb; Fri, 29 Jul 2022 18:23:25 +0200 (CEST) X-Auth-Info: JXLAL1n006LM04PXK4NHNge2RQ/OImGqbO7/kJ2aZJL+3DGSkdczs1iHYwiy2+51 Received: from igel.home (ppp-46-244-176-182.dynamic.mnet-online.de [46.244.176.182]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by mail.mnet-online.de (Postfix) with ESMTPSA; Fri, 29 Jul 2022 18:23:25 +0200 (CEST) Received: by igel.home (Postfix, from userid 1000) id 3DE402C3345; Fri, 29 Jul 2022 18:23:25 +0200 (CEST) From: Andreas Schwab References: <83fsik6ic1.fsf@gnu.org> X-Yow: ..I'll make you an ASHTRAY!! Date: Fri, 29 Jul 2022 18:23:25 +0200 In-Reply-To: <83fsik6ic1.fsf@gnu.org> (Eli Zaretskii's message of "Fri, 29 Jul 2022 18:37:18 +0300") Message-ID: <87ilnf99c2.fsf@igel.home> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.1.90 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -0.4 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.4 (-) On Jul 29 2022, Eli Zaretskii wrote: > But the third argument is optional, so what is the problem? On the C level, optional arguments must be passed explicitly. -- Andreas Schwab, schwab@linux-m68k.org GPG Key fingerprint = 7578 EB47 D4E5 4D69 2510 2552 DF73 E780 A9DA AEC1 "And now for something completely different." From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: German Pacenza Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 16:24:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Gerd =?UTF-8?Q?M=C3=B6llmann?= Cc: Eli Zaretskii , 56829@debbugs.gnu.org Received: via spool by 56829-submit@debbugs.gnu.org id=B56829.165911181811143 (code B ref 56829); Fri, 29 Jul 2022 16:24:02 +0000 Received: (at 56829) by debbugs.gnu.org; 29 Jul 2022 16:23:38 +0000 Received: from localhost ([127.0.0.1]:33350 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHSm1-0002tf-TT for submit@debbugs.gnu.org; Fri, 29 Jul 2022 12:23:38 -0400 Received: from mail-ed1-f47.google.com ([209.85.208.47]:35572) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHSlz-0002tK-Jl for 56829@debbugs.gnu.org; Fri, 29 Jul 2022 12:23:35 -0400 Received: by mail-ed1-f47.google.com with SMTP id e15so6437036edj.2 for <56829@debbugs.gnu.org>; Fri, 29 Jul 2022 09:23:35 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=WazZK66WLsYzdfXl68gSS3ak97fpmLw/glCUtck9N9s=; b=iT1G8w4UK0vuIUVkQBYHOhBTEtCUy0ZlSr9yP3C8LNT27Uge+LGkSwaJZyHOOw1yx5 /qcHAeuVCWkwYvSaB1oFm+ZOll+s3ojIH5yafgSNFnKDl8UGW1ALn7i+C14pbqOwFtHt xVIgIPKntqbr8Ii0w5YLVTaAuE6bLdHS2LKb4ncnZht5KajwqqSo8waUcWJlgzOPX/fy Bn3YoOjNQdL7bkAQ5YOwwA4YfVsYoa6i0Y5g4VC+FH6utTBZk8rkc+BHxJhTaAcvB3Hd +IMaB552zHe5pFbOWdYCxwjbA1lA/pz/Xi0fl59ztwo8FDuVf49ddFsF29PU8OsKB5Et uMtg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=WazZK66WLsYzdfXl68gSS3ak97fpmLw/glCUtck9N9s=; b=KVFYzxv8zkiWNOb1trpUgfZayjHU0BHmICNDa0vl/v1FW+ojGIhPSXhP7zWNQXCLyq FBpK1qnCZUiVXVEzE2M6t3CmWbdJnQeEUdA122O4M/v2egX+Vl0NNZ4RlWCrOdTEli1X Hs9dS84rGEEwOPJxs8ENGhCuzNsUYe8220PgnfNiv58k8EpFLev3IRijV1MCfY19EGc5 vp9xtcEbGNAHSXEE2BaMFeN+Q7RmbCShNe0bF/od0apWdgFoq85ckH1vPZXWi7mhTx4d 03oSwthdhbSM7Cp9eP+oAuEBAMHzDzmIsRzHVaDAqa7sgjm1InLxBazppvtCXFQTOTW0 dp1A== X-Gm-Message-State: AJIora984P4xy23puyoM3msfoLyuykZRYEDYNOkfAIuRwDexI0Hewjpo 3usZhSc6wdlfwZQNkA6OZwGyJKGzbHy29FENmZI= X-Google-Smtp-Source: AGRyM1sjUy7qMIEmQ/mNYicnwSNMYNSmxpcVmB9y3zfGbFgw82gt+eU/96pQPQpjwcz++oV1NSyOj+HpcKaV2BIxiGA= X-Received: by 2002:a05:6402:3219:b0:43c:b636:6a20 with SMTP id g25-20020a056402321900b0043cb6366a20mr4286229eda.96.1659111809636; Fri, 29 Jul 2022 09:23:29 -0700 (PDT) MIME-Version: 1.0 References: <83fsik6ic1.fsf@gnu.org> <2186d242-3873-97d0-fb6b-e4e552dc9b62@gmail.com> In-Reply-To: From: German Pacenza Date: Fri, 29 Jul 2022 13:23:18 -0300 Message-ID: Content-Type: multipart/alternative; boundary="0000000000000e5e2705e4f41219" X-Spam-Score: 0.3 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.7 (/) --0000000000000e5e2705e4f41219 Content-Type: text/plain; charset="UTF-8" It works now on Master 497b2689dad0770cd90ba0410a7a120ad94b6def. Thanks. On Fri, Jul 29, 2022 at 1:09 PM German Pacenza wrote: > I tried with both 'make' and 'make bootstrap': > 'make' compiles but the native compile errors appear during runtime in the > message buffer > 'make bootstrap' fails during compilation > > I did more testing: > 3f05698dfb5edfce050c7402ea400b61ad808ce4 works > d3c4833d1350e26a2ae35e00eaf2d6bef1724679 fails > but then 77882158b2aeff7f235c409d6572173ae4c3a38f works again > and c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 fails > > --0000000000000e5e2705e4f41219 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
It works now on Master 497b2689dad0770cd9= 0ba0410a7a120ad94b6def.
Thanks.

On Fri, Jul 29, 2022 at = 1:09 PM German Pacenza <germanp= 1982@gmail.com> wrote:
I tri= ed with both 'make' and 'make bootstrap':
'ma= ke' compiles but the native compile errors appear during runtime in the= message buffer
'make bootstrap' fails during c= ompilation

I did more testing:
3f05698df= b5edfce050c7402ea400b61ad808ce4 works
d3c4833d1350e26a2ae35e00eaf= 2d6bef1724679 fails
but then 77882158b2aeff7f235c409d6572173ae4c3= a38f works again
and c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 fai= ls

--0000000000000e5e2705e4f41219-- From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: Gregory Heytings Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 16:42:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Gerd =?UTF-8?Q?M=C3=B6llmann?= Cc: germanp1982@gmail.com, Eli Zaretskii , 56829@debbugs.gnu.org Received: via spool by 56829-submit@debbugs.gnu.org id=B56829.165911290312999 (code B ref 56829); Fri, 29 Jul 2022 16:42:01 +0000 Received: (at 56829) by debbugs.gnu.org; 29 Jul 2022 16:41:43 +0000 Received: from localhost ([127.0.0.1]:33366 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHT3X-0003Nb-9o for submit@debbugs.gnu.org; Fri, 29 Jul 2022 12:41:43 -0400 Received: from heytings.org ([95.142.160.155]:57952) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHT3V-0003NS-Ej for 56829@debbugs.gnu.org; Fri, 29 Jul 2022 12:41:41 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=heytings.org; s=20220101; t=1659112900; bh=0nstLIW9A+YsOTw1/9Y9yU8tyomYQcjbN8PLQBbqsfw=; h=Date:From:To:cc:Subject:In-Reply-To:Message-ID:References:From; b=iQC9G2lV/H6qOohefeT5GBOC4HCYbQChU79s/JDqjesTeACYjbdMPseaol731rtwt dnjIp5W01obFhhAKhkUcY/7Ici+WRP4CNLMZ8og9HTuybb8T0G2VmFj7/RTDrhiezi ulpTjUK8Um6r2/yWMYEwdFXjRoOpL7d7CLJdcok3cR/O06B/FjwfOJ0kaICMc0I7ua eAU+6tJICP/URG5sybmisqDbDqElFq6D1zEEVd3D8JdpWQ2fKsRvdDZcKYCRsCCfMW sq7X/m+8oYxzL2eOqDTelT/CpE6U8xTh51dXbFb7QqLPCcle10C/BENnz52EYpF1wL nSUKW0VbRgPhw== Date: Fri, 29 Jul 2022 16:41:40 +0000 From: Gregory Heytings In-Reply-To: <2186d242-3873-97d0-fb6b-e4e552dc9b62@gmail.com> Message-ID: References: <83fsik6ic1.fsf@gnu.org> <2186d242-3873-97d0-fb6b-e4e552dc9b62@gmail.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="hvpUfv0t2k" X-Spam-Score: -0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) --hvpUfv0t2k Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: quoted-printable > > The problem is the change of narrow-to-region that the native compiler=20 > doesn't know about.=C2=A0 The native compiler has a table of byte codes w= ith=20 > corresponding calls it generates.=C2=A0 It should do the same of the same= as=20 > the byte code interpreter, which is passing nil for the optional=20 > parameter. > Thanks for the quick fix, Gerd! (And sorry about that, I don't use native= =20 compilation.) --hvpUfv0t2k-- From unknown Sun Jun 22 17:14:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#56829: Unable to build Emacs with native compilation Resent-From: Lars Ingebrigtsen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 30 Jul 2022 13:01:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56829 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: German Pacenza Cc: Gerd =?UTF-8?Q?M=C3=B6llmann?= , Eli Zaretskii , 56829@debbugs.gnu.org Received: via spool by 56829-submit@debbugs.gnu.org id=B56829.165918604426142 (code B ref 56829); Sat, 30 Jul 2022 13:01:02 +0000 Received: (at 56829) by debbugs.gnu.org; 30 Jul 2022 13:00:44 +0000 Received: from localhost ([127.0.0.1]:34271 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHm5E-0006mv-HE for submit@debbugs.gnu.org; Sat, 30 Jul 2022 09:00:44 -0400 Received: from quimby.gnus.org ([95.216.78.240]:53294) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHm5C-0006RO-Rn for 56829@debbugs.gnu.org; Sat, 30 Jul 2022 09:00:43 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Content-Type:MIME-Version:Message-ID:Date:References: In-Reply-To:Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=ee1J01ptgNJNrTGlY8DBJ0K17OKrShMTmQ0+a9mU9Es=; b=IjbZkuoB0WTjvUasIIdGPJCCfo Y8/ifIrjXHRulA3PEP1GGOTyjITo2QNX0PpqWzxgmAcleJjuPZS7zEI8MVZY7vJSkxu1yPek1+WRD /+lbFKp+YObXdyagJuonQ17R4Zkyg4Sn3gXLtwdGKFXa0Pat6DKWLuFRO4cougSCyHIk=; Received: from 109.179.63.221.tmi.telenormobil.no ([109.179.63.221] helo=joga) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1oHm54-0000vq-Ah; Sat, 30 Jul 2022 15:00:36 +0200 From: Lars Ingebrigtsen In-Reply-To: (German Pacenza's message of "Fri, 29 Jul 2022 13:23:18 -0300") References: <83fsik6ic1.fsf@gnu.org> <2186d242-3873-97d0-fb6b-e4e552dc9b62@gmail.com> Date: Sat, 30 Jul 2022 15:00:33 +0200 Message-ID: <878roazrf2.fsf@gnus.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Report: Spam detection software, running on the system "quimby.gnus.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see @@CONTACT_ADDRESS@@ for details. Content preview: German Pacenza writes: > It works now on Master 497b2689dad0770cd90ba0410a7a120ad94b6def. > Thanks. I'm therefore closing this bug report. Content analysis details: (-2.9 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -1.0 ALL_TRUSTED Passed through trusted hosts only via SMTP 0.0 TVD_RCVD_IP Message was received from an IP address -1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1% [score: 0.0000] X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) German Pacenza writes: > It works now on Master 497b2689dad0770cd90ba0410a7a120ad94b6def. > Thanks. I'm therefore closing this bug report. From debbugs-submit-bounces@debbugs.gnu.org Sat Jul 30 09:00:50 2022 Received: (at control) by debbugs.gnu.org; 30 Jul 2022 13:00:50 +0000 Received: from localhost ([127.0.0.1]:34274 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHm5J-000741-Ql for submit@debbugs.gnu.org; Sat, 30 Jul 2022 09:00:50 -0400 Received: from quimby.gnus.org ([95.216.78.240]:53308) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHm5I-0006jF-E7 for control@debbugs.gnu.org; Sat, 30 Jul 2022 09:00:48 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Subject:From:To:Message-Id:Date:Sender:Reply-To:Cc: MIME-Version:Content-Type:Content-Transfer-Encoding:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:In-Reply-To:References:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=9iUgEynLAEibWxC6vU4eP5jBmHIK2kc/5Q0Z+t5kQkc=; b=vLF8wW/qBk8QBXD2HSWnh5DY9S QAlfEjtNYcYKFSVy9BkoDUkCY700zSwGtx/xo1GlAKOFfLYZeRI5CCokZIfC14UNR0IDZGzUx0bMX NIDE18V5T2iy3KKGHVLUF2KlTgdBuGwa9lwCW+3gKQtNYBRxiUsoQ3hUG0ijcMNjhUlo=; Received: from 109.179.63.221.tmi.telenormobil.no ([109.179.63.221] helo=joga) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1oHm5A-0000vw-JO for control@debbugs.gnu.org; Sat, 30 Jul 2022 15:00:42 +0200 Date: Sat, 30 Jul 2022 15:00:39 +0200 Message-Id: <877d3uzrew.fsf@gnus.org> To: control@debbugs.gnu.org From: Lars Ingebrigtsen Subject: control message for bug #56829 X-Spam-Report: Spam detection software, running on the system "quimby.gnus.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see @@CONTACT_ADDRESS@@ for details. Content preview: close 56829 29.1 quit Content analysis details: (-2.9 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -1.0 ALL_TRUSTED Passed through trusted hosts only via SMTP 0.0 TVD_RCVD_IP Message was received from an IP address -1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1% [score: 0.0000] X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) close 56829 29.1 quit