Bignum support still broken on powerpc (ping: Jerry James)
robert delius royar
xemacs at frinabulax.org
Fri Apr 7 12:16:27 EDT 2006
Fri, 7 Apr 2006 (09:29 -0600 UTC) Jerry James wrote:
> robert delius royar <xemacs at frinabulax.org> wrote:
>> Thu, 6 Apr 2006 (10:08 -0600 UTC) Jerry James wrote:
>>
>>> Well, then, I don't understand those compiler warnings at all. They
>>> appear to be claiming that mpz_get_ui() is somehow broken; i.e., that
>>> the function can return without returning a value. If that is true,
>>> then you are fundamentally screwed, because we use that function in
>>> several places. In my version of the headers, the inline version of
>>> that function is defined like this:
>>>
>>> #if defined (__GMP_EXTERN_INLINE) || defined (__GMP_FORCE_mpz_get_ui)
>>> #if ! defined (__GMP_FORCE_mpz_get_ui)
>>> __GMP_EXTERN_INLINE
>>> #endif
>>> unsigned long
>>> mpz_get_ui (mpz_srcptr __gmp_z) __GMP_NOTHROW
>>> {
>>> mp_ptr __gmp_p = __gmp_z->_mp_d;
>>> mp_size_t __gmp_n = __gmp_z->_mp_size;
>>> mp_limb_t __gmp_l = __gmp_p[0];
>>> if (__GMP_ULONG_MAX <= GMP_NUMB_MASK)
>>> return __gmp_l & (-(mp_limb_t) (__gmp_n != 0));
>>> #if GMP_NAIL_BITS != 0 /* redundant #if, shuts up compiler warnings */
>>> else /* happens for nails, but not if LONG_LONG_LIMB */
>>> { /* assume two limbs are enough to fill an ulong */
>>> __gmp_n = __GMP_ABS (__gmp_n);
>>> if (__gmp_n <= 1)
>>> return __gmp_l & (-(mp_limb_t) (__gmp_n != 0));
>>> else
>>> return __gmp_l + (__gmp_p[1] << GMP_NUMB_BITS);
>>> }
>>> #endif
>>> }
>>> #endif
>>>
>>> Hmmmmmm.... If __GMP_ULONG_MAX > GMP_NUMB_MASK and GMP_NAIL_BITS == 0,
>>> that function CAN fall off the end. The comment implies that that can't
>>> happen, but even so, could you compile and run this please and tell me
>>> the results?
>>>
>>> #include <stdio.h>
>>> #include <gmp.h>
>>>
>>> int main()
>>> {
>>> printf ("__GMP_ULONG_MAX == %lu\n", __GMP_ULONG_MAX);
>>> printf ("GMP_NUMB_MASK == %lu\n", GMP_NUMB_MASK);
>>> printf ("GMP_NAIL_BITS == %d\n", GMP_NAIL_BITS);
>>> return 0;
>>> }
>>
>> % gcc -o /tmp/gmptest -I/opt/local/include -L/opt/local/lib ~/scratch/gmptest.c
>> % /tmp/gmptest
>> __GMP_ULONG_MAX == 4294967295
>> GMP_NUMB_MASK == 4294967295
>> GMP_NAIL_BITS == 0
>
> Then I think that the compiler warnings are a red herring. For some
> reason, your gcc seems unable to determine that (__GMP_ULONG_MAX <=
> GMP_NUMB_MASK) is a constant expression evaluating to true.
>
> At this point, I don't know how to proceed. The bug appears to be
> specific to code generated by gcc4 on a specific platform I don't have
> access to. This looks like a bug to report to your vendor, rather than
> a problem with XEmacs. I'm afraid I don't even have any clues that
> might lead to a workaround for the problem. :-(
OK, I simply removed the 'if (__GMP_ULONG_MAX <= GMP_NUMB_MASK)' from
line 1595 of gmp.h. That stopped the warnings. Now, my loadup/dump
fails with the same type error
Requiring disp-table.el...*** Error in XEmacs initialization
(wrong-type-argument integer-or-char-p 225)
But I no longer get line drawing characters as the output. So I am
appending the Lisp stack trace. Perhaps, there is something in
disp-table.el that is not happy with gmp routines on this platform? I
will also try using gcc3.3 to see if it is just Tiger (OS X 10.4) or
Tiger+gcc4.0x.
Here is the output from the loadup to dump stage:
cd ./lib-src && make all
make[1]: Nothing to be done for `all'.
cd ./lwlib && make all
make[1]: Nothing to be done for `all'.
cd ./src && make all
./temacs -nd -no-packages -batch -l /Users/royar/src/xemacs/src/../lisp/update-elc.el
Loading /Users/royar/src/xemacs/src/../lisp/update-elc.el...
Loading find-paths.el...
Loading packages.el...
Loading setup-paths.el...
Loading /Users/royar/src/xemacs/lisp/dumped-lisp.el...
Loading loadup-el.el...
Loading loadup.el...
Using load-path (/Users/royar/src/xemacs/lisp/)
Using module-load-path (/Users/royar/src/xemacs/modules)
Loading dumped-lisp.el...
Loading backquote.el...
Loading bytecomp-runtime.el...
Loading find-paths.el...
Loading packages.el...
Loading setup-paths.el...
Loading subr.el...
Loading post-gc.el...
Loading replace.el...
Loading version.el...
Loading cl.el...
Loading cl-extra.el...
Requiring obsolete.el...
Loading cl-seq.el...
Loading widget.el...
Loading custom.el...
Loading cl-macs.el...
Requiring cus-face.el...
Requiring font.el...
Requiring disp-table.el...*** Error in XEmacs initialization
(wrong-type-argument integer-or-char-p 225)
*** Backtrace
really-early-error-handler((wrong-type-argument integer-or-char-p 225))
aset([nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil 192 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ni!
l nil nil nil nil] 225 193)
(while (< i 247) (aset table i (- i 32)) (setq i (1+ i)))
# bind (i table)
(let ((table (make-display-table)) (i 0)) (while (< i 26) (aset table (+ i ?a) (+ i ?A)) (setq i (1+ i))) (setq i 224) (while (< i 247) (aset table i (- i 32)) (setq i (1+ i))) (setq i 248) (while (< i 255) (aset table i (- i 32)) (setq i (1+ i))) table)
(defvar font-caps-display-table (let ((table (make-display-table)) (i 0)) (while (< i 26) (aset table (+ i ?a) (+ i ?A)) (setq i (1+ i))) (setq i 224) (while (< i 247) (aset table i (- i 32)) (setq i (1+ i))) (setq i 248) (while (< i 255) (aset table i (- i 32)) (setq i (1+ i))) table))
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("font" nil require nil)
# (unwind-protect ...)
require(font)
(progn (require (quote font)))
(eval-when-compile (require (quote font)))
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("cus-face" nil require nil)
# (unwind-protect ...)
require(cus-face)
(progn (load "cl-macs" nil t) (require (quote cus-face)))
(eval-when-compile (load "cl-macs" nil t) (require (quote cus-face)))
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("/Users/royar/src/xemacs/lisp/custom.el")
(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("custom")
(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-root)) (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-root))) (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) (le!
t ((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-root))) (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-root)) (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-root))) (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 l!
oad-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-root))) (load-unicode-tables))) (packages-load-packag!
e-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-root)) (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-root))) (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 (fi!
le-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-!
root))) (load-unicode-tables))) (packages-load-package-dumped-!
lisps la
te-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-root)) (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-root))) (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 (nco!
nc (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) (l
et ((data-directory (expand-file-name "etc" source-root))) (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("loadup.el")
# bind (purify-flag load-ignore-elc-files)
(let ((load-ignore-elc-files t) (purify-flag nil)) (load "loadup.el"))
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("loadup-el.el")
(cond ((and (not update-elc-files-to-compile) (not need-to-rebuild-autoloads) (not need-to-rebuild-mule-autoloads) (not need-to-recompile-autoloads) (not need-to-recompile-mule-autoloads))) ((not update-elc-files-to-compile) (condition-case nil (write-region-internal "foo" nil (expand-file-name "src/REBUILD_AUTOLOADS" build-root)) (file-error nil))) (t (let ((bc-bootstrap (mapcar (function (lambda (arg) (concat (update-elc-chop-extension (locate-library arg)) ".el"))) lisp-files-needed-for-byte-compilation)) (bootstrap-other (mapcar (function (lambda (arg) (concat (update-elc-chop-extension (locate-library arg)) ".el"))) lisp-files-needing-early-byte-compilation))) (setq inhibit-autoloads t) (let ((recompile-bc-bootstrap (apply (function nconc) (mapcar (function (lambda (arg) (when (member arg update-elc-files-to-compile) (append (quote ("-f" "batch-byte-compile-one-file")) (list arg))))) bc-bootstrap))) (recompile-bootstrap-other (apply (function nconc) (mapcar (function!
(lambda (arg) (when (member arg update-elc-files-to-compile) (append (quote ("-f" "batch-byte-compile-one-file")) (list arg))))) bootstrap-other)))) (mapc-internal (function (lambda (arg) (setq update-elc-files-to-compile (delete arg update-elc-files-to-compile)))) (append bc-bootstrap bootstrap-other)) (setq command-line-args (append (quote ("-l" "loadup-el.el" "run-temacs" "-batch" "-no-packages" "-no-autoloads" "-eval" "(setq stack-trace-on-error t)" "-eval" "(setq load-always-display-messages t)")) (when recompile-bc-bootstrap (append (quote ("-eval" "(setq load-ignore-elc-files t)" "-l" "bytecomp")) recompile-bc-bootstrap (quote ("-eval" "(setq load-ignore-elc-files nil)")))) (quote ("-l" "bytecomp")) recompile-bootstrap-other do-autoload-commands (quote ("-eval" "(setq inhibit-autoloads nil)" "-f" "startup-load-autoloads" "-f" "batch-byte-compile")) update-elc-files-to-compile)))) (load "loadup-el.el")))
# bind (do-autoload-commands)
(let ((do-autoload-commands (append (if (or need-to-rebuild-autoloads need-to-rebuild-mule-autoloads) (list "-l" "autoload")) (if need-to-rebuild-autoloads (list "-f" "batch-update-directory-autoloads" "auto" source-lisp)) (if need-to-rebuild-mule-autoloads (list "-f" "batch-update-directory-autoloads" "mule" source-lisp-mule)) (if need-to-recompile-autoloads (list "-f" "batch-byte-compile-one-file" aa-lisp)) (if need-to-recompile-mule-autoloads (list "-f" "batch-byte-compile-one-file" aa-lisp-mule))))) (condition-case nil (delete-file (expand-file-name "src/REBUILD_AUTOLOADS" build-root)) (file-error nil)) (cond ((and (not update-elc-files-to-compile) (not need-to-rebuild-autoloads) (not need-to-rebuild-mule-autoloads) (not need-to-recompile-autoloads) (not need-to-recompile-mule-autoloads))) ((not update-elc-files-to-compile) (condition-case nil (write-region-internal "foo" nil (expand-file-name "src/REBUILD_AUTOLOADS" build-root)) (file-error nil))) (t (let ((bc-bootst!
rap (mapcar (function (lambda (arg) (concat (update-elc-chop-extension (locate-library arg)) ".el"))) lisp-files-needed-for-byte-compilation)) (bootstrap-other (mapcar (function (lambda (arg) (concat (update-elc-chop-extension (locate-library arg)) ".el"))) lisp-files-needing-early-byte-compilation))) (setq inhibit-autoloads t) (let ((recompile-bc-bootstrap (apply (function nconc) (mapcar (function (lambda (arg) (when (member arg update-elc-files-to-compile) (append (quote ("-f" "batch-byte-compile-one-file")) (list arg))))) bc-bootstrap))) (recompile-bootstrap-other (apply (function nconc) (mapcar (function (lambda (arg) (when (member arg update-elc-files-to-compile) (append (quote ("-f" "batch-byte-compile-one-file")) (list arg))))) bootstrap-other)))) (mapc-internal (function (lambda (arg) (setq update-elc-files-to-compile (delete arg update-elc-files-to-compile)))) (append bc-bootstrap bootstrap-other)) (setq command-line-args (append (quote ("-l" "loadup-el.el" "run-te!
macs" "-batch" "-no-packages" "-no-autoloads" "-eval" "(setq s!
tack-tra
ce-on-error t)" "-eval" "(setq load-always-display-messages t)")) (when recompile-bc-bootstrap (append (quote ("-eval" "(setq load-ignore-elc-files t)" "-l" "bytecomp")) recompile-bc-bootstrap (quote ("-eval" "(setq load-ignore-elc-files nil)")))) (quote ("-l" "bytecomp")) recompile-bootstrap-other do-autoload-commands (quote ("-eval" "(setq inhibit-autoloads nil)" "-f" "startup-load-autoloads" "-f" "batch-byte-compile")) update-elc-files-to-compile)))) (load "loadup-el.el"))))
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("/Users/royar/src/xemacs/src/../lisp/update-elc.el")
# (condition-case ... . error)
# (catch top-level ...)
*** Killing XEmacs
make[1]: *** [NEEDTODUMP] Error 255
make: *** [src] Error 2
--
Dr. Robert Delius Royar Associate Professor of English
Morehead State University Morehead, Kentucky
Making meaning one message at a time.
The concept of paradigm was started by some severely toilet trained
professors of Harvard University.
-Ludwig Plutonium
12:06 up 3 days, 7:37, 1 user, load averages: 0.64 1.03 0.68
More information about the XEmacs-Beta
mailing list
