Sat, 25 Nov 2006 (21:30 +0900 UTC) Stephen J. Turnbull wrote: Short answer Yes, I have not seen many problems with using '--with-union-type' since (I believe) 2003. Long answer In the near term (since 21.5.b27), errors I have seen when using '--with-union-type' were short lived, and I believe probably pointed to other errors in the build cycle or code. It is not compatible with a combination of '--with-bignum=gmp' '--without-error-checking'. Using '--with-bignum=gmp' requires ''--with-error-checking' (or NOT '--without-error-checking') when compiled using '--with-union-type'. The error looks to be related to faulty alignment in the byte-code reading code. I reported this in summer 2005 and again in summer 2006. I do not need gmp; I was just testing. I only mention it because a recent AMD configuration you (Stephen T.) posted showed '--with-bignum' and '--with-union-type'. It might be good to have some others try '--with-bignum=gmp' '--without-error-checking' '--with-union-type'. My gmp is from Macports (gmp 4.2.1 rev 4 + test). Here are the errors I get with that combination in the initial loadup phase (there was no system crash log--just the lisp backtrace): Loading /Users/royar/src/xemacs/src/../lisp/make-docfile.el... Loading find-paths.el... Loading packages.el... Loading setup-paths.el... Loading raw-process.el... Requiring custom... Requiring widget... Loading process... Loading /Users/royar/src/xemacs/lisp/dumped-lisp.el... Spawning make-docfile ... Spawning make-docfile ...done ./temacs -nd -no-packages -batch -l /Users/royar/src/xemacs/src/../lisp/loadup.el dump [...] Loading /Users/royar/src/xemacs/lisp/newcomment.elc... Loading /Users/royar/src/xemacs/lisp/keydefs.elc... *** Error in XEmacs initialization (wrong-type-argument sequencep 34) *** Backtrace really-early-error-handler((wrong-type-argument sequencep 34)) define-key(#<keymap global-map size 6 0x2a53> 34 self-insert-command) # bind (n) byte-code("..." [global-window-system-map n ch i map global-map define-key "" mode-specific-command-prefix "b" switch-to-buffer "k" kill-buffer "" list-buffers put erase-buffer disabled t "" upcase-region " -region-or-word "ã" capitalize-region-or-word 33 255 127 self-insert-command " " "" beginning-of-line "" backward-char-command "" end-of-line "" forward-char-command "" delete-char "" find-file "" toggle-read-only "" find-file-read-only "" find-alternate-file "" save-buffer "s" save-some-buffers "" write-file "i" insert-file "þ" not-modified "" list-directory global-tty-map help-char ctl-x-4-map "" save-buffers-kill-emacs "4c" clone-indirect-buffer-other-window "4f" find-file-other-window "4r" find-file-read-only-other-window "4" "4b" switch-to-buffer-other-window "4" display-buffer "5b" switch-to-buffer-other-frame "5f" find-file-other-frame "5" "5r" find-file-read-only-other-frame "52" make-frame "50" delete-frame "5o" other-frame "51" delete-other-frames vector help-command help f1 (meta ?\?) " " indent-for-tab-command "" indent-region-or-balanced-expression " " indent-rigidly "é" tab-to-tab-stop [(shift tab)] "" isearch-forward "" isearch-backward "" isearch-forward-regexp "" isearch-backward-regexp "" suspend-or-iconify-emacs zap-up-to-char (control Z) iconify-frame "" "n" make-sparse-keymap set-keymap-name narrowing-prefix narrow-to-region "nn" "nw" wi" newline "" open-line "" split-line "" quoted-insert "Þ" delete-indentation "Ü" delete-horizontal-space "í" back-to-indentation "" delete-blank-lines " " just-one-space "ú" zap-to-char "½" count-lines-region "=" what-cursor-position "º" eval-expression "epeat-complex-command "º" "u" undo (control /) "" "¡" shell-command "ü" shell-command-on-region "" universal-argument ?0 ?9 meta digit-argument control (meta -) negative-argument (control -) (control meta -) " " kill-line "" kill-region "÷" kill-ring-save "" append-next-kill "" yank "ù" yank-pop "" set-mark-command (control ?\ ) "" exchange-point-and-mark "" pop-global-mark [(control x) (control ?\ )] "" next-line "" previous-line menu popup-mode-menu [find] search-forward "" transpose-chars "ô" transpose-words "" transpose-sexps "" transpose-lines (control T) transpose-line-down (meta T) transpose-line-up "»" indent-for-comment "ê" indent-new-comment-line "" ";" set-comment-column "f" set-fill-column "$" set-selective-display "À" mark-word "æ" forward-word "â" backward-word "ä" kill-word "¼" beginning-of-buffer "¾" end-of-buffer "h" mark-whole-buffer "" forward-sexp "" backward-sexp "" backward-up-list "" mark-sexp " " down-list "" kill-sexp "" forward-list "" beginning-of-defun " " end-of-defun "" mark-defun "¨" insert-parentheses "©" move-past-close-and-reindent "" lisp-complete-symbol "/" point-to-register "j" jump-to-register "x" copy-to-register "g" insert-register "r" rectangle-prefix "r" "r " "rj" "rs" "rx" "ri" "rg" "rr" copy-rectangle-to-register "rn" number-to-register "r+" increment-register "rc" clear-rectangle "rk" kill-rectangle "rd" delete-rectangle "ry" yank-rectangle "ro" open-rectangle "rt" string-rectangle "rp" replace-rectangle "rw" window-configuration-to-register "ñ" fill-paragraph-or-region "." set-fill-prefix "û" backward-paragraph "ý" forward-paragraph "è" mark-paragraph "á" backward-sentence "å" forward-sentence "ë" kill-sentence "[" backward-page "]" forward-page "" mark-page "l" count-lines-page "np" narrow-to-page "§" abbrev-prefix-mark "'" expand-abbrev "al" add-mode-abbrev "a" "ag" add-global-abbrev "a+" "aig" inverse-add-global-abbrev "ail" inverse-add-mode-abbrev "a-" "ae" "a'" "" switch-to-other-buffer backspace delete-backward-char (meta backspace) backward-kill-word [(control x) backspace] backward-kill-sentence "" activate-region "e" call-last-kbd-macro "(" start-kbd-macro ")" end-kbd-macro "q" kbd-macro-query "" exit-recursive-edit "" abort-recursive-edit "ø" execute-extended-command "0" delete-window "1" delete-other-windows "2" split-window-vertically "3" split-window-horizontally "o" other-window "^" enlarge-window "<" scroll-left ">" scroll-right "" scroll-up-command "ö" scroll-down-command "" scroll-other-window (meta V) scroll-other-window-down " " recenter "ò" move-to-window-line "6" "}" enlarge-window-horizontally "{" shrink-window-horizontally "-" shrink-window-if-larger-than-buffer "+" balance-windows "0" kill-buffer-and-window quit-char characterp char-to-string keyboard-quit "eyboard-escape-quit "uery-replace [(control meta %)] query-replace-rege^[[?62;1;2;6;9;15;22cxp "¤" ispell-word "m" compose-mail "4m" compose-mail-other-window "5m" compose-mail-other-frame "®" find-tag "4." find-tag-other-window "¬" tags-loop-continue (control <) mark-beginning-of-buffer (control >) mark-end-of-buffer "" eval-last-sexp "ç" goto-line left right up down kp-left kp-right kp-up kp-down prior next (control prior) (control next) kp-prior kp-next (control kp-prior) (control kp-next) home end (control home) (control end) kp-home kp-end (control kp-home) (control kp-end) begin (control begin) (control left) (control right) (control up) backward-block-of-lines (control down) forward-block-of-lines (control kp-left) (control kp-right) (control kp-up) (control kp-down) (meta left) (meta right) (meta up) (meta down) (meta control left) (meta control right) (meta control up) scroll-down-one (meta control down) scroll-up-one (meta control home) (meta control end) (meta control prior) (meta control next) (meta kp-left) (meta kp-right) (meta kp-up) (meta kp-down) (meta control kp-left) (meta control kp-right) (meta control kp-up) (meta control kp-down) (meta control kp-home) (meta control kp-end) (meta control kp-prior) (meta control kp-next) (control tab) (control shift tab) backward-other-window (meta next) (meta prior) (meta kp-next) (meta kp-prior) global-set-key (meta shift home) switch-to-previous-buffer-in-group (meta shift end) switch-to-next-buffer-in-group (meta home) switch-to-previous-buffer (meta end) switch-to-next-buffer (meta shift kp-home) (meta shift kp-end) (meta kp-home) (meta kp-end) delete backward-or-forward-delete-char (control delete) backward-or-forward-kill-word (meta delete) [(control x) (delete)] backward-or-forward-kill-sentence kp-delete (control kp-delete) (meta kp-delete) [(control x) (kp-delete)] (control meta delete) backward-or-forward-kill-sexp (control meta kp-delete) (control meta backspace) backward-kill-sexp insert overwrite-mode kp-insert again redo kp-enter [return] kp-tab [tab] help-for-help kp-space kp-equal kp-multiply kp-add kp-separator kp-subtract kp-decimal kp-divide kp-0 kp-1 kp-2 kp-3 kp-4 kp-5 kp-6 kp-7 kp-8 kp-9 execute insertline deleteline deletechar] 7) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load("/Users/royar/src/xemacs/lisp/keydefs.elc") (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil) # bind (full-path) (let ((full-path (locate-file file load-path (if load-ignore-elc-files (quote (".el" "")) (quote (".elc" ".el" "")))))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil)) # bind (file) pureload("keydefs") (if (pureload file) nil (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (setq files (cdr files))) # bind (file files) (let ((files preloaded-file-list) file) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (setq files (cdr files))) (when (not (featurep (quote toolbar))) (defun toolbar-button-p (obj) "No toolbar support." nil) (defun toolbar-specifier-p (obj) "No toolbar support." nil)) (fmakunbound (quote pureload))) (lambda nil (setq Installation-string (save-current-buffer (set-buffer (get-buffer-create (generate-new-buffer-name " *temp*"))) (fset (quote format-decode) (function (lambda (f l &optional v) l))) (insert-file-contents-internal (expand-file-name "Installation" build-directory)) (fmakunbound (quote format-decode)) (prog1 (buffer-substring) (kill-buffer (current-buffer))))) (setq load-path (list source-lisp)) (setq module-load-path (list (expand-file-name "modules" build-directory))) (external-debugging-output (format "\nUsing load-path %s" load-path)) (external-debugging-output (format "\nUsing module-load-path %s" module-load-path)) (buffer-disable-undo (get-buffer "*scratch*")) (let ((temp-path (expand-file-name "." (car load-path)))) (setq load-path (nconc (mapcar (function (lambda (i) (concat i "/"))) (directory-files temp-path t "^[^-.]" nil (quote dirs-only))) (cons (file-name-as-directory temp-path) load-path)))) (setq load-warn-when-source-only t) (defun pureload (file) (let ((full-path (locate-file file load-path (if load-ignore-elc-files (quote (".el" "")) (quote (".elc" ".el" "")))))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil))) (load (expand-file-name "dumped-lisp.el" source-lisp)) (let ((files preloaded-file-list) file) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (setq files (cdr files))) (when (not (featurep (quote toolbar))) (defun toolbar-button-p (obj) "No toolbar support." nil) (defun toolbar-specifier-p (obj) "No toolbar support." nil)) (fmakunbound (quote pureload))) (when (and (featurep (quote mule)) load-unicode-tables-at-dump-time) (let ((data-directory (expand-file-name "etc" source-directory))) (load-unicode-tables))) (packages-load-package-dumped-lisps late-package-load-path))() # (unwind-protect ...) call-with-condition-handler(really-early-error-handler (lambda nil (setq Installation-string (save-current-buffer (set-buffer (get-buffer-create (generate-new-buffer-name " *temp*"))) (fset (quote format-decode) (function (lambda (f l &optional v) l))) (insert-file-contents-internal (expand-file-name "Installation" build-directory)) (fmakunbound (quote format-decode)) (prog1 (buffer-substring) (kill-buffer (current-buffer))))) (setq load-path (list source-lisp)) (setq module-load-path (list (expand-file-name "modules" build-directory))) (external-debugging-output (format "\nUsing load-path %s" load-path)) (external-debugging-output (format "\nUsing module-load-path %s" module-load-path)) (buffer-disable-undo (get-buffer "*scratch*")) (let ((temp-path (expand-file-name "." (car load-path)))) (setq load-path (nconc (mapcar (function (lambda (i) (concat i "/"))) (directory-files temp-path t "^[^-.]" nil (quote dirs-only))) (cons (file-name-as-directory temp-path) load-path)))) (setq load-warn-when-source-only t) (defun pureload (file) (let ((full-path (locate-file file load-path (if load-ignore-elc-files (quote (".el" "")) (quote (".elc" ".el" "")))))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil))) (load (expand-file-name "dumped-lisp.el" source-lisp)) (let ((files preloaded-file-list) file) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (setq files (cdr files))) (when (not (featurep (quote toolbar))) (defun toolbar-button-p (obj) "No toolbar support." nil) (defun toolbar-specifier-p (obj) "No toolbar support." nil)) (fmakunbound (quote pureload))) (when (and (featurep (quote mule)) load-unicode-tables-at-dump-time) (let ((data-directory (expand-file-name "etc" source-directory))) (load-unicode-tables))) (packages-load-package-dumped-lisps late-package-load-path))) # bind (stack-trace-on-error) (let ((stack-trace-on-error nil)) (call-with-condition-handler (quote really-early-error-handler) (function (lambda nil (setq Installation-string (save-current-buffer (set-buffer (get-buffer-create (generate-new-buffer-name " *temp*"))) (fset (quote format-decode) (function (lambda (f l &optional v) l))) (insert-file-contents-internal (expand-file-name "Installation" build-directory)) (fmakunbound (quote format-decode)) (prog1 (buffer-substring) (kill-buffer (current-buffer))))) (setq load-path (list source-lisp)) (setq module-load-path (list (expand-file-name "modules" build-directory))) (external-debugging-output (format "\nUsing load-path %s" load-path)) (external-debugging-output (format "\nUsing module-load-path %s" module-load-path)) (buffer-disable-undo (get-buffer "*scratch*")) (let ((temp-path (expand-file-name "." (car load-path)))) (setq load-path (nconc (mapcar (function (lambda (i) (concat i "/"))) (directory-files temp-path t "^[^-.]" nil (quote dirs-only))) (cons (file-name-as-directory temp-path) load-path)))) (setq load-warn-when-source-only t) (defun pureload (file) (let ((full-path (locate-file file load-path (if load-ignore-elc-files (quote (".el" "")) (quote (".elc" ".el" "")))))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil))) (load (expand-file-name "dumped-lisp.el" source-lisp)) (let ((files preloaded-file-list) file) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (setq files (cdr files))) (when (not (featurep (quote toolbar))) (defun toolbar-button-p (obj) "No toolbar support." nil) (defun toolbar-specifier-p (obj) "No toolbar support." nil)) (fmakunbound (quote pureload))) (when (and (featurep (quote mule)) load-unicode-tables-at-dump-time) (let ((data-directory (expand-file-name "etc" source-directory))) (load-unicode-tables))) (packages-load-package-dumped-lisps late-package-load-path))))) # bind (gc-cons-threshold) (let ((gc-cons-threshold (if (and purify-flag (not (memq (quote quick-build) internal-error-checking))) 30000 3000000))) (let ((stack-trace-on-error nil)) (call-with-condition-handler (quote really-early-error-handler) (function (lambda nil (setq Installation-string (save-current-buffer (set-buffer (get-buffer-create (generate-new-buffer-name " *temp*"))) (fset (quote format-decode) (function (lambda (f l &optional v) l))) (insert-file-contents-internal (expand-file-name "Installation" build-directory)) (fmakunbound (quote format-decode)) (prog1 (buffer-substring) (kill-buffer (current-buffer))))) (setq load-path (list source-lisp)) (setq module-load-path (list (expand-file-name "modules" build-directory))) (external-debugging-output (format "\nUsing load-path %s" load-path)) (external-debugging-output (format "\nUsing module-load-path %s" module-load-path)) (buffer-disable-undo (get-buffer "*scratch*")) (let ((temp-path (expand-file-name "." (car load-path)))) (setq load-path (nconc (mapcar (function (lambda (i) (concat i "/"))) (directory-files temp-path t "^[^-.]" nil (quote dirs-only))) (cons (file-name-as-directory temp-path) load-path)))) (setq load-warn-when-source-only t) (defun pureload (file) (let ((full-path (locate-file file load-path (if load-ignore-elc-files (quote (".el" "")) (quote (".elc" ".el" "")))))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil))) (load (expand-file-name "dumped-lisp.el" source-lisp)) (let ((files preloaded-file-list) file) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (setq files (cdr files))) (when (not (featurep (quote toolbar))) (defun toolbar-button-p (obj) "No toolbar support." nil) (defun toolbar-specifier-p (obj) "No toolbar support." nil)) (fmakunbound (quote pureload))) (when (and (featurep (quote mule)) load-unicode-tables-at-dump-time) (let ((data-directory (expand-file-name "etc" source-directory))) (load-unicode-tables))) (packages-load-package-dumped-lisps late-package-load-path))))) (setq preloaded-file-list (mapcar (function file-name-sans-extension) preloaded-file-list)) (setq load-warn-when-source-only nil) (setq debugger (quote debug)) (when (member "no-site-file" command-line-args) (setq site-start-file nil)) (when (load "site-load" t) (garbage-collect)) (when purify-flag (message "Finding pointers to doc strings...") (Snarf-documentation "DOC") (message "Finding pointers to doc strings...done") (Verify-documentation)) (when (stringp site-start-file) (load "site-init" t)) (setq current-load-list nil) (garbage-collect) (buffer-enable-undo "*scratch*")) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load("/Users/royar/src/xemacs/src/../lisp/loadup.el") # (condition-case ... . error) # (catch top-level ...) *** Killing XEmacs make[1]: *** [xemacs] Error 255 make: *** [src] Error 2 % 62;1;2;6;9;15;22c -- Dr. Robert Delius Royar Associate Professor of English Morehead State University Morehead, Kentucky _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta