5:16 p.m.
Fri, 7 Apr 2006 (09:29 -0600 UTC) Jerry James wrote:
robert delius royar <xemacs(a)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