bug#50230: Endian problem with native compilation

bug#50230: Endian problem with native compilation

[Andreas Schwab]

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]

All the cast functions are totally bogus.  They do not implement any
kind of type conversion.

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

[Andrea Corallo via Bug reports for GNU Emacs, the Swiss army knife of text editors]

Andreas Schwab <schwab@linux-m68k.org> writes:

> All the cast functions are totally bogus.  They do not implement any
> kind of type conversion.
>
> Andreas.

Hi Andreas,

if you took the time to analyze the issue it would be very nice if you
could also mention which functions are you referring to.  This will
certainly help the volunteer that will fix them.

TIA

  Andrea

bug#50230: Endian problem with native compilation

[Andreas Schwab]

define_cast_functions contains all the horrible mess.

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

[Andrea Corallo via Bug reports for GNU Emacs, the Swiss army knife of text editors]

Andreas Schwab <schwab@linux-m68k.org> writes:

> define_cast_functions contains all the horrible mess.

Thanks for pointing this bug out.

Also please trim you communication according to [1].

Best Regards

  Andrea

[1] <https://www.gnu.org/philosophy/kind-communication.en.html>

bug#50230: Endian problem with native compilation

[Andrea Corallo via Bug reports for GNU Emacs, the Swiss army knife of text editors]

Andreas Schwab <schwab@linux-m68k.org> writes:

> define_cast_functions contains all the horrible mess.
>
> Andreas.

Hi Andreas,

is this bug fixed with 6767e5565?

Thanks

  Andrea

bug#50230: Endian problem with native compilation

[Andreas Schwab]

No, s390x still fails.

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

[Eli Zaretskii]

> Cc: 50230@debbugs.gnu.org
> Date: Wed, 01 Sep 2021 12:28:59 +0000
> From:  Andrea Corallo via "Bug reports for GNU Emacs,
>  the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>
> 
> Andreas Schwab <schwab@linux-m68k.org> writes:
> 
> > define_cast_functions contains all the horrible mess.
> >
> > Andreas.
> 
> Hi Andreas,
> 
> is this bug fixed with 6767e5565?

Andrea,

Regardless of whether the big-endian bugs are solved with this, could
you please try to give us an idea of how this change could affect the
native code produced by Emacs, and whether it could destabilize Emacs
with natively-compiled Lisp code to any significant degree?

We intend to start pretest of Emacs 28.1 soon, and I'm a bit bothered
by such low-level changes, because they could invalidate all the good
experience and debugging we accumulated since the native-comp branch
landed on master.  If this change is potentially destabilizing, we may
need to reassess our release schedule, so as to give this code more
time to mature.

Thanks.

bug#50230: Endian problem with native compilation

[Andrea Corallo via Bug reports for GNU Emacs, the Swiss army knife of text editors]

Eli Zaretskii <eliz@gnu.org> writes:

>> Cc: 50230@debbugs.gnu.org
>> Date: Wed, 01 Sep 2021 12:28:59 +0000
>> From:  Andrea Corallo via "Bug reports for GNU Emacs,
>>  the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>
>> 
>> Andreas Schwab <schwab@linux-m68k.org> writes:
>> 
>> > define_cast_functions contains all the horrible mess.
>> >
>> > Andreas.
>> 
>> Hi Andreas,
>> 
>> is this bug fixed with 6767e5565?
>
> Andrea,
>
> Regardless of whether the big-endian bugs are solved with this, could
> you please try to give us an idea of how this change could affect the
> native code produced by Emacs, and whether it could destabilize Emacs
> with natively-compiled Lisp code to any significant degree?

This is changing the cast functions we synthesize and use in all the
code we generate, so yes it is potentially destabilizing.

That said the generated code looks correct to me (and considerably
cleaner).  Also, given these functions are really the foundation of a
lot of other code we generate I guess would be unlikely to have these
wrong but still have the testsuite passing clean and Emacs booting up
correctly.  Call me optimistic but I'd be pretty confident with this
change...

Not sure I can say more than this, hope it helps.

Regards

  Andrea

bug#50230: Endian problem with native compilation

[Eli Zaretskii]

> From: Andrea Corallo <akrl@sdf.org>
> Cc: schwab@linux-m68k.org, 50230@debbugs.gnu.org
> Date: Wed, 01 Sep 2021 15:13:54 +0000
> 
> This is changing the cast functions we synthesize and use in all the
> code we generate, so yes it is potentially destabilizing.
> 
> That said the generated code looks correct to me (and considerably
> cleaner).  Also, given these functions are really the foundation of a
> lot of other code we generate I guess would be unlikely to have these
> wrong but still have the testsuite passing clean and Emacs booting up
> correctly.  Call me optimistic but I'd be pretty confident with this
> change...

OK, thanks.  We'll see how it goes (after you find the problem with
endianness and fix it).

bug#50230: Endian problem with native compilation

[Eli Zaretskii]

> Date: Wed, 01 Sep 2021 19:05:56 +0300
> From: Eli Zaretskii <eliz@gnu.org>
> Cc: schwab@linux-m68k.org, 50230@debbugs.gnu.org
> 
> > From: Andrea Corallo <akrl@sdf.org>
> > Cc: schwab@linux-m68k.org, 50230@debbugs.gnu.org
> > Date: Wed, 01 Sep 2021 15:13:54 +0000
> > 
> > This is changing the cast functions we synthesize and use in all the
> > code we generate, so yes it is potentially destabilizing.
> > 
> > That said the generated code looks correct to me (and considerably
> > cleaner).  Also, given these functions are really the foundation of a
> > lot of other code we generate I guess would be unlikely to have these
> > wrong but still have the testsuite passing clean and Emacs booting up
> > correctly.  Call me optimistic but I'd be pretty confident with this
> > change...
> 
> OK, thanks.  We'll see how it goes (after you find the problem with
> endianness and fix it).

I've noticed that building Emacs --with-native-compilation after this
change still uses the same subdirectory of native-lisp/ for the
preloaded files, and doesn't recompile *.eln files that were
native-compiled before the change (unless the corresponding *.el files
were updated in the meantime).  Shouldn't we recompile all the *.eln
files after this change?

I don't know if Andreas did recompile all of them, but if not, perhaps
that's one reason why the change didn't fix Emacs on big-endian
systems?

bug#50230: Endian problem with native compilation

[Andreas Schwab]

On Sep 04 2021, Eli Zaretskii wrote:

> that's one reason why the change didn't fix Emacs on big-endian
> systems?

It does.

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

[Eli Zaretskii]

> From: Andreas Schwab <schwab@linux-m68k.org>
> Cc: akrl@sdf.org,  50230@debbugs.gnu.org
> Date: Sat, 04 Sep 2021 11:25:25 +0200
> 
> On Sep 04 2021, Eli Zaretskii wrote:
> 
> > that's one reason why the change didn't fix Emacs on big-endian
> > systems?
> 
> It does.

Sorry, I'm not sure I understand: are you saying that change did fix
the problem?  I thought you previously said it didn't?

bug#50230: Endian problem with native compilation

[Andreas Schwab]

On Sep 04 2021, Eli Zaretskii wrote:

> Sorry, I'm not sure I understand: are you saying that change did fix
> the problem?  I thought you previously said it didn't?

There is more to big-endian than s390x.

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

[Eli Zaretskii]

> From: Andreas Schwab <schwab@linux-m68k.org>
> Cc: 50230@debbugs.gnu.org,  akrl@sdf.org
> Date: Sat, 04 Sep 2021 11:49:41 +0200
> 
> On Sep 04 2021, Eli Zaretskii wrote:
> 
> > Sorry, I'm not sure I understand: are you saying that change did fix
> > the problem?  I thought you previously said it didn't?
> 
> There is more to big-endian than s390x.

So s390x still fails, but the other 2 big-endian hosts succeed after
that change?

And that is after recompiling all the preloaded *.eln files?

bug#50230: Endian problem with native compilation

[Andreas Schwab]

On Sep 04 2021, Eli Zaretskii wrote:

> And that is after recompiling all the preloaded *.eln files?

There is nothing recompiled, always from scratch.

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

[Eli Zaretskii]

> From: Andreas Schwab <schwab@linux-m68k.org>
> Cc: 50230@debbugs.gnu.org,  akrl@sdf.org
> Date: Sat, 04 Sep 2021 13:01:07 +0200
> 
> On Sep 04 2021, Eli Zaretskii wrote:
> 
> > And that is after recompiling all the preloaded *.eln files?
> 
> There is nothing recompiled, always from scratch.

Ok, thanks.  So, partially good news, but some of the problem still
remains.

bug#50230: Endian problem with native compilation

[Andrea Corallo]

Eli Zaretskii <eliz@gnu.org> writes:

>> From: Andreas Schwab <schwab@linux-m68k.org>
>> Cc: 50230@debbugs.gnu.org,  akrl@sdf.org
>> Date: Sat, 04 Sep 2021 13:01:07 +0200
>> 
>> On Sep 04 2021, Eli Zaretskii wrote:
>> 
>> > And that is after recompiling all the preloaded *.eln files?
>> 
>> There is nothing recompiled, always from scratch.
>
> Ok, thanks.  So, partially good news, but some of the problem still
> remains.

Hi Andreas,

would be interesting to know if the problem persists after the recent UB
fix in libgccjit.

Thanks

  Andrea

bug#50230: Endian problem with native compilation

[Andreas Schwab]

This is completely unrelated.

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

[Andrea Corallo]

Andreas Schwab <schwab@linux-m68k.org> writes:

> This is completely unrelated.

I'm glad you are sure about it.  Could you share with us what let you
think this?

Thanks

  Andrea

bug#50230: Endian problem with native compilation

[Andreas Schwab]

https://build.opensuse.org/project/show/home%3AAndreasSchwab%3Aemacs%3Amaster

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

[Eli Zaretskii]

> From: Andreas Schwab <schwab@linux-m68k.org>
> Cc: 50230@debbugs.gnu.org,  Eli Zaretskii <eliz@gnu.org>
> Date: Tue, 30 Nov 2021 22:05:54 +0100
> 
> https://build.opensuse.org/project/show/home%3AAndreasSchwab%3Aemacs%3Amaster

Thanks, but how to use this URL?  Where to look there?

bug#50230: Endian problem with native compilation

[Lars Ingebrigtsen]

Andreas Schwab <schwab@linux-m68k.org> writes:

> https://build.opensuse.org/project/show/home%3AAndreasSchwab%3Aemacs%3Amaster

(I'm going through old bug reports that unfortunately weren't resolved
at the time.)

I didn't read this thread, but that URL seems to indicate that all the
builds are successful now, so should this bug report be closed?

bug#50230: Endian problem with native compilation

[Lars Ingebrigtsen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> I didn't read this thread, but that URL seems to indicate that all the
> builds are successful now, so should this bug report be closed?

More information was requested, but no response was given within a
month, so I'm closing this bug report.  If the problem still exists,
please respond to this email and we'll reopen the bug report.