[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#50230: Endian problem with native compilation
From: |
Andreas Schwab |
Subject: |
bug#50230: Endian problem with native compilation |
Date: |
Fri, 27 Aug 2021 19:39:31 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) |
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."
- bug#50230: Endian problem with native compilation,
Andreas Schwab <=