unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#50230: Endian problem with native compilation
@ 2021-08-27 17:39 Andreas Schwab
  2021-08-30  9:54 ` Andreas Schwab
  0 siblings, 1 reply; 24+ messages in thread
From: Andreas Schwab @ 2021-08-27 17:39 UTC (permalink / raw)
  To: 50230

Native compilation appears to have an endian problem.  Builds on s390x,
ppc and ppc64 all show the same failure.

Compiler-macro error for make-comp-cstr-ctxt: (wrong-type-argument listp (nil (make-hash-table :test #'equal)))
Debugger entered--Lisp error: (wrong-type-argument listp (nil #<hash-table equal 0/65 0xaa83b5b185>))
  make-comp-cstr-ctxt()
  (let* ((comp-ctxt (make-comp-cstr-ctxt)) (h (make-hash-table :test #'eq)) (--cl-var-- comp-known-type-specifiers) (f nil) (type-spec nil) (--cl-var--) (cstr nil) (--cl-var-- t)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) f (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--)))) type-spec (car --cl-var--)) (setq cstr (comp-type-spec-to-cstr type-spec)) (puthash f cstr h) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- nil)) h)
  (defconst comp-known-func-cstr-h (let* ((comp-ctxt (make-comp-cstr-ctxt)) (h (make-hash-table :test #'eq)) (--cl-var-- comp-known-type-specifiers) (f nil) (type-spec nil) (--cl-var--) (cstr nil) (--cl-var-- t)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) f (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--)))) type-spec (car --cl-var--)) (setq cstr (comp-type-spec-to-cstr type-spec)) (puthash f cstr h) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- nil)) h) "Hash table function -> `comp-constraint'.")
  eval-buffer(#<buffer  *load*> nil "/home/abuild/rpmbuild/BUILD/emacs-28.0.50/lisp/ema..." nil t)  ; Reading at buffer position 24804
  (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil)) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) 'raw-text))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (eval-buffer buffer nil (if dump-mode file fullname) nil t))
  (unwind-protect (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil)) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) 'raw-text))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer)))
  (let ((buffer (generate-new-buffer " *load*")) (load-in-progress t) (source (string-suffix-p ".el" fullname))) (unless nomessage (if source (message "Loading %s (source)..." file) (message "Loading %s..." file))) (when purify-flag (push (purecopy file) preloaded-file-list)) (unwind-protect (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil)) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (if (and enable-multibyte-characters (or (eq ... ...))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (do-after-load-evaluation fullname) (unless (or nomessage noninteractive) (if source (message "Loading %s (source)...done" file) (message "Loading %s...done" file))) t)
  (if (null (file-readable-p fullname)) (and (null noerror) (signal 'file-error (list "Cannot open load file" file))) (let ((buffer (generate-new-buffer " *load*")) (load-in-progress t) (source (string-suffix-p ".el" fullname))) (unless nomessage (if source (message "Loading %s (source)..." file) (message "Loading %s..." file))) (when purify-flag (push (purecopy file) preloaded-file-list)) (unwind-protect (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil)) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (if (and enable-multibyte-characters (or ...)) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (do-after-load-evaluation fullname) (unless (or nomessage noninteractive) (if source (message "Loading %s (source)...done" file) (message "Loading %s...done" file))) t))
  load-with-code-conversion("/home/abuild/rpmbuild/BUILD/emacs-28.0.50/lisp/ema..." "/home/abuild/rpmbuild/BUILD/emacs-28.0.50/lisp/ema..." nil t)
  load("comp" nil t)
  (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq 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))
  (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 ...)))))) (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 ...)))) (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 ...)))) (setq tem (substring tem 1) 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 (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (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")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (file-truename (expand-file-name file)))) (load file-ex nil t t))) ((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))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) 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 ...)))) (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 (setq argval (substring argi (match-end 0)) 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 (...) (or elt ...) (setq argi ...)) (setq argval nil 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 ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (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 ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (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")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (file-truename (expand-file-name file)))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) 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 ...))))) (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 ...))) (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 (setq argval (substring argi (match-end 0)) 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 ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((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 ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (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 ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (file-truename ...))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (file-truename ...))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) 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 ...)))) (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 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" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (file-name-history--add file) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (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 ...) 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 (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... 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 ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) 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 ...))) (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 ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (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" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... 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 ... 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 (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (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 (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (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" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq 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 ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (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 '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) 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 ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (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 (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (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 (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)" "-l" "comp" "-f" "batch-byte+native-compile" "emacs-lisp/autoload.el"))
  (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 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* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (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 ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) '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) (setq menu-bar-mode nil tab-bar-mode nil 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 (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (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 ... ...)) (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 ...) (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-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...)
  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 ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (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 (eq face-font-rescale-alist old-face-font-rescale-alist) nil (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 ...) (make-directory ... t) (concat ... "~")) (t (expand-file-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 ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (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 (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (and (equal (getenv "HOME") "/nonexistent") (file-writable-p (expand-file-name (or temporary-file-directory "")))) (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir 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)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --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 ... ...)) (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 (... ... ...) (t ...))))) (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 ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (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 ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment)))))
  normal-top-level()

make[3]: *** [Makefile:297: emacs-lisp/autoload.elc] Error 255

Andreas.

-- 
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."






^ permalink raw reply	[flat|nested] 24+ messages in thread

end of thread, other threads:[~2022-09-19 19:18 UTC | newest]

Thread overview: 24+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2021-08-27 17:39 bug#50230: Endian problem with native compilation Andreas Schwab
2021-08-30  9:54 ` Andreas Schwab
2021-08-30 13:03   ` Andrea Corallo via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-08-30 13:13     ` Andreas Schwab
2021-08-30 13:20       ` Andrea Corallo via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-09-01 12:28       ` Andrea Corallo via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-09-01 13:19         ` Andreas Schwab
2021-09-01 14:00         ` Eli Zaretskii
2021-09-01 15:13           ` Andrea Corallo via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-09-01 16:05             ` Eli Zaretskii
2021-09-04  9:15               ` Eli Zaretskii
2021-09-04  9:25                 ` Andreas Schwab
2021-09-04  9:45                   ` Eli Zaretskii
2021-09-04  9:49                     ` Andreas Schwab
2021-09-04 10:06                       ` Eli Zaretskii
2021-09-04 11:01                         ` Andreas Schwab
2021-09-04 11:06                           ` Eli Zaretskii
2021-11-30 17:02                             ` Andrea Corallo
2021-11-30 17:06                               ` Andreas Schwab
2021-11-30 17:10                                 ` Andrea Corallo
2021-11-30 21:05                                   ` Andreas Schwab
2021-12-01  3:19                                     ` Eli Zaretskii
2022-08-22 14:47                                     ` Lars Ingebrigtsen
2022-09-19 19:18                                       ` Lars Ingebrigtsen

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).