[Failure] XEmacs 21.5-b20 "cilantro" (+CVS-20050311) i586-pc-win32
19 years, 8 months
Adrian Aichner
Adrian Aichner
Failing to build due to this:
Bootstrapping from temacs...
Loading bytecomp.el...
Compiling c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\bytecomp.el...
Loading byte-optimize.el...
Wrote c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\bytecomp.elc
Compiling c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\byte-optimize.el...
KKCC backtrace overflow, adjust KKCC_BT_STACK_SIZE.
Maybe it is a loop?
Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\alloc.c, line 3382, ABORT()
Fatal error.
Your files have been auto-saved.
Use `M-x recover-session' to recover them.
Your version of XEmacs was distributed with a PROBLEMS file that may describe
your crash, and with luck a workaround. Please check it first, but do report
the crash anyway.
Please report this bug by invoking M-x report-emacs-bug, or by selecting
`Send Bug Report' from the Help menu. If that won't work, send ordinary
email to `crashes(a)xemacs.org'. *MAKE SURE* to include this entire output
from this crash, especially including the Lisp backtrace, as well as the
XEmacs configuration from M-x describe-installation (or equivalently, the
file `Installation' in the top of the build tree).
If you are fortunate enough to have some sort of debugging aid installed
on your system, for example Visual C++, and you can get a C stack backtrace,
*please* include it, as it will make our life far easier.
Lisp backtrace follows:
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
("(in garbage collection)" "[internal]")
# bind (form)
byte-compile-file-form((defun byte-compile-log-lap-1 (format &rest args) (if (aref byte-code-vector 0) (error "The old version of the disassembler is loaded. Reload new-bytecomp as well.")) (byte-compile-log-1 (apply (quote format) format (let (c a) (mapcar (function (lambda (arg) (if (not (consp arg)) (if (and (symbolp arg) (string-match "^byte-" (symbol-name arg))) (intern (substring (symbol-name arg) 5)) arg) (if (integerp (setq c (car arg))) (error "non-symbolic byte-op %s" c)) (if (eq c (quote TAG)) (setq c arg) (setq a (cond ((memq c byte-goto-ops) (car (cdr (cdr arg)))) ((memq c byte-constref-ops) (car (cdr arg))) (t (cdr arg)))) (setq c (symbol-name c)) (if (string-match "^byte-." c) (setq c (intern (substring c 5))))) (if (eq c (quote constant)) (setq c (quote const))) (if (and (eq (cdr arg) 0) (not (memq c (quote (unbind call const))))) c (format "(%s %s)" c a))))) args))))))
(while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer)))
# (unwind-protect ...)
(save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))
(progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))
(lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))))()
# (unwind-protect ...)
call-with-condition-handler((lambda (error-info) (byte-compile-report-error error-info)) (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))
# (unwind-protect ...)
(unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-c!
ompile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1))))))))
# bind (byte-compile-warnings-beginning)
(let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to!
-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1)))))))))
# bind (byte-compile-point-max-prev byte-compile-log-buffer)
(let* ((byte-compile-log-buffer (get-buffer-create "*Compile-Log*")) (byte-compile-point-max-prev (point-max byte-compile-log-buffer))) (byte-compile-log-file) (defvar byte-compile-warnings-beginning) (let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-fo!
rward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1))))))))))
(displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))
(progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min))))
(prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables)))
# bind (byte-compile-file-domain byte-compile-warnings byte-compile-dynamic-docstrings byte-compile-dynamic byte-compile-emacs19-compatibility byte-optimize byte-compile-verbose byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment)
(let ((byte-compile-macro-environment (copy-alist byte-compile-initial-macro-environment)) (byte-compile-function-environment nil) (byte-compile-autoload-environment nil) (byte-compile-unresolved-functions nil) (byte-compile-bound-variables nil) (byte-compile-free-references nil) (byte-compile-free-assignments nil) (byte-compile-verbose byte-compile-verbose) (byte-optimize byte-optimize) (byte-compile-emacs19-compatibility byte-compile-emacs19-compatibility) (byte-compile-dynamic byte-compile-dynamic) (byte-compile-dynamic-docstrings byte-compile-dynamic-docstrings) (byte-compile-warnings (if (eq byte-compile-warnings t) byte-compile-default-warnings byte-compile-warnings)) (byte-compile-file-domain nil)) (prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq !
overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables))))
(byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min))))
# bind (byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants print-level print-length case-fold-search float-output-format byte-compile-outbuffer)
(let (byte-compile-outbuffer (float-output-format nil) (case-fold-search nil) (print-length nil) (print-level nil) (byte-compile-constants nil) (byte-compile-variables nil) (byte-compile-tag-number 0) (byte-compile-depth 0) (byte-compile-maxdepth 0) (byte-compile-output nil)) (byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-function!
s nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (not eval) byte-compile-outbuffer (let (form) (while (condition-case nil (progn (setq form (read byte-compile-outbuffer)) t) (end-of-file nil)) (eval form))) (kill-buffer byte-compile-outbuffer) nil))
# bind (eval filename byte-compile-inbuffer)
byte-compile-from-buffer(#<buffer " *Compiler Input*"> "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\byte-optimize.el")
(setq output-buffer (byte-compile-from-buffer input-buffer filename))
# bind (byte-compile-dest-file output-buffer input-buffer target-file byte-compile-current-file)
(let ((byte-compile-current-file filename) target-file input-buffer output-buffer byte-compile-dest-file) (setq target-file (byte-compile-dest-file filename)) (setq byte-compile-dest-file target-file) (save-excursion (setq input-buffer (get-buffer-create " *Compiler Input*")) (set-buffer input-buffer) (erase-buffer) (insert-file-contents filename) (let ((buffer-file-name filename) (default-major-mode (quote emacs-lisp-mode)) (enable-local-eval nil)) (normal-mode) (setq filename buffer-file-name))) (setq byte-compiler-error-flag nil) (setq output-buffer (byte-compile-from-buffer input-buffer filename)) (if byte-compiler-error-flag nil (if byte-compile-verbose (message "Compiling %s...done" filename)) (kill-buffer input-buffer) (save-excursion (set-buffer output-buffer) (goto-char (point-max)) (insert "\n") (setq target-file (byte-compile-dest-file filename)) (unless byte-compile-overwrite-file (ignore-file-errors (delete-file target-file))) (if (file-writable-p target-file)!
(write-region 1 (point-max) target-file) (signal (quote file-error) (list "Opening output file" (if (file-exists-p target-file) "cannot overwrite file" "directory not writable or nonexistent") target-file))) (or byte-compile-overwrite-file (condition-case nil (set-file-modes target-file (file-modes filename)) (error nil))) (kill-buffer (current-buffer))) (if (and byte-compile-generate-call-tree (or (eq t byte-compile-generate-call-tree) (y-or-n-p (format "Report call tree for %s? " filename)))) (save-excursion (display-call-tree filename))) (if load (load target-file)) t))
# bind (load filename)
byte-compile-file("c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\byte-optimize.el")
(progn (byte-compile-file file) t)
# (condition-case ... . ((error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil)))
(condition-case err (progn (byte-compile-file file) t) (error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil))
# bind (file)
batch-byte-compile-1("c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\byte-optimize.el")
(if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process))
# bind (file-to-process error)
(let (error (file-to-process (car command-line-args-left))) (setq command-line-args-left (cdr command-line-args-left)) (if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process)))
batch-byte-compile-one-file()
funcall(batch-byte-compile-one-file)
# bind (arg)
command-line-do-funcall("-f")
funcall(command-line-do-funcall "-f")
(cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t)))
(while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil))))
# bind (tem arg file-p end-of-options line file-count dir)
(let ((dir command-line-default-directory) (file-count 0) (line nil) (end-of-options nil) file-p arg tem) (while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil)))))
(cond ((null command-line-args-left) (unless noninteractive (run-hooks (quote term-setup-hook)) (setq term-setup-hook nil) (when (string= (buffer-name) "*scratch*") (unless (or inhibit-startup-message (input-pending-p)) (let (tmout) (unwind-protect (catch (quote tmout) (setq tmout (add-timeout startup-message-timeout (lambda (ignore) (condition-case nil (throw (quote tmout) t) (error nil))) nil)) (display-splash-screen) (or nil (goto-char (point-min))) (sit-for 0) (setq unread-command-event (next-command-event))) (when tmout (disable-timeout tmout))))) (with-current-buffer (get-buffer "*scratch*") (erase-buffer) (when (stringp initial-scratch-message) (insert initial-scratch-message)) (set-buffer-modified-p nil))))) (t (let ((dir command-line-default-directory) (file-count 0) (line nil) (end-of-options nil) file-p arg tem) (while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (!
assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil)))))))
command-line-1()
# bind (command-line-args-left)
(let ((command-line-args-left (cdr command-line-args))) (let ((debugger (quote early-error-handler)) (debug-on-error t)) (setq command-line-args-left (command-line-early command-line-args-left)) (when (eq system-type (quote windows-nt)) (declare-fboundp (init-mswindows-at-startup))) (when (featurep (quote toolbar)) (init-toolbar-location)) (if (featurep (quote toolbar)) (if (featurep (quote infodock)) (require (quote id-x-toolbar)) (init-toolbar))) (when (and initial-window-system (not noninteractive)) (funcall (intern (concat "init-" (symbol-name initial-window-system) "-win")))) (frame-initialize)) (startup-initialize-custom-faces) (if (featurep (quote menubar)) (init-menubar-at-startup)) (if (featurep (quote mule)) (declare-fboundp (init-mule-at-startup))) (load-init-file) (with-current-buffer (get-buffer "*scratch*") (erase-buffer) (set-buffer-modified-p nil) (when (eq major-mode (quote fundamental-mode)) (funcall initial-major-mode))) (when (and (eq (quote tty) (conso!
le-type)) (not (noninteractive))) (load-terminal-library)) (command-line-1) (setq inhibit-warning-display nil) (when (noninteractive) (kill-emacs t)))
command-line()
(if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data))))
# bind (error-data)
(let (error-data) (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) (setq default-directory (abbreviate-file-name default-directory)) (if auto-save-list-file-prefix (setq auto-save-list-file-name (expand-file-name (format "%s%d-%s" auto-save-list-file-prefix (emacs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook)) (and term-setup-hook (run-hooks (quote term-setup-hook))) (setq term-setup-hook nil) (frame-notice-user-settings) (when window-setup-hook (run-hooks (quote window-setup-hook))) (setq window-setup-hook nil) (if error-data (signal-error (car error-data) (cdr error-data))))
(if command-line-processed (message "Back to top level.") (setq command-line-processed t) (when (getenv "XEMACSDEBUG") (eval (read (getenv "XEMACSDEBUG")))) (let ((value (user-home-directory))) (if (and value (< (length value) (length default-directory)) (equal (file-attributes default-directory) (file-attributes value))) (setq default-directory (file-name-as-directory value)))) (setq default-directory (abbreviate-file-name default-directory)) (initialize-xemacs-paths) (startup-set-invocation-environment) (startup-setup-paths (cond (inhibit-all-packages t) (inhibit-early-packages (quote (early))) (t nil)) nil) (startup-setup-paths-warning) (startup-load-autoloads) (let (error-data) (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) (setq default-directory (abbreviate-file-name default-directory)) (if auto-save-list-file-prefix (setq auto-save-list-file-name (expand-file-name (format "%s%d-%s" auto-save-list-file-prefix (ema!
cs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook)) (and term-setup-hook (run-hooks (quote term-setup-hook))) (setq term-setup-hook nil) (frame-notice-user-settings) (when window-setup-hook (run-hooks (quote window-setup-hook))) (setq window-setup-hook nil) (if error-data (signal-error (car error-data) (cdr error-data)))) (if load-user-init-file-p (maybe-migrate-user-init-file)))
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
NMAKE: fatal error U1077: '"c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src\i"' : return code '0xc0000005'
Stop.
Compilation exited abnormally with code 2 at Sat Mar 12 10:31:04
Below follows the usual build-report stuff.
Best regards,
Adrian
> XEmacs Build Report generated by emacs-version
> 21.5 (beta19) "chives" (+CVS-20050224) XEmacs Lucid
> with system-configuration
> i586-pc-win32
> follows:
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\Installation:
> (Output from most recent run of ./configure)
OS version:
Microsoft Windows XP [Version 5.1.2600]
OS: Windows_NT
XEmacs 21.5-b20 "cilantro" (+CVS-20050311) configured for `i586-pc-win32'.
Building XEmacs using "NMAKE".
Building XEmacs using make flags " ".
Building XEmacs in source tree "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean".
For src, using compiler "cl -nologo -W3 -DSTRICT -Zi -O2 -G5 -Ob2 -MDd -c -TP -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\inc -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src -I"c:\Hacking\libs4xemacs\xpm-3.4k" -I"c:\Hacking\libs4xemacs\xpm-3.4k\lib" -I"c:\Hacking\libs4xemacs\libpng-1.0.2" -I"c:\Hacking\libs4xemacs\zlib" -I"c:\Hacking\libs4xemacs\tiff-v3.4\libtiff" -I"c:\Hacking\libs4xemacs\jpeg-6b" -I"c:\Hacking\libs4xemacs\compface" -I"c:\Hacking\libs4xemacs\zlib" -DHAVE_MS_WINDOWS -DHAVE_XPM -DFOR_MSW -DHAVE_GIF -DHAVE_PNG -DHAVE_TIFF -DHAVE_JPEG -DHAVE_XFACE -DHAVE_ZLIB -DHAVE_MENUBARS -DHAVE_SCROLLBARS -DHAVE_TOOLBARS -DHAVE_WIDGETS -DHAVE_DIALOGS -DHAVE_NATIVE_SOUND -DMULE -DUSE_UNION_TYPE -DPDUMP -DUSE_KKCC -DSYSTEM_MALLOC -DERROR_CHECK_ALL -DDEBUG_XEMACS -D_DEBUG -DWIN32_LEAN_AND_MEAN -DWIN32_NATIVE -Demacs -DHAVE_CONFIG_H -DPATH_VERSION=\"21.5-b20\" -DPATH_PROGNAME=\"xemacs\" -DEMACS_VERSION=\"21.5-b20\" -DEMACS_PROGNAME=\"xemacs!
\" -DSTACK_TRACE_EYE_CATCHER=xemacs_21_5_b20_i586_pc_win32 -DPATH_PREFIX=\"..\" -DEMACS_MAJOR_VERSION=21 -DEMACS_MINOR_VERSION=5 -DEMACS_BETA_VERSION=20 -DXEMACS_CODENAME=\""cilantro"\" -DXEMACS_EXTRA_NAME=\"(+CVS-20050311)\" -DEMACS_CONFIGURATION=\"i586-pc-win32\" -DPATH_PACKAGEPATH=\""~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\mule-packages;c:\\Program Files\\XEmacs\\xemacs-packages"\"".
For lib-src, using compiler "cl -nologo -W3 -DSTRICT -Zi -O2 -G5 -Ob2 -MDd -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src -DHAVE_CONFIG_H -DWIN32_NATIVE".
Compiling as C++.
Installing XEmacs in "c:\\Program Files\\XEmacs\\XEmacs-21.5-b20".
Package path is "~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\mule-packages;c:\\Program Files\\XEmacs\\xemacs-packages".
Compiling in support for Microsoft Windows native GUI.
Compiling in international (MULE) support.
Compiling in support for XPM images.
Compiling in support for GIF images.
Compiling in support for PNG images.
Compiling in support for TIFF images.
Compiling in support for JPEG images.
Compiling in support for X-Face message headers.
Compiling in support for GZIP compression/decompression.
Compiling in support for toolbars.
Compiling in support for dialogs.
Compiling in support for widgets.
Compiling in support for native sounds.
Using union type for Lisp object storage.
NOTE: ---------------------------------------------------------
NOTE: This tends to trigger compiler bugs, especially when combined
NOTE: with MULE and ERROR_CHECKING. Crashes in pdump have recently
NOTE: been observed using Visual C++ in combination with union type,
NOTE: MULE, and ERROR_CHECKING.
NOTE: ---------------------------------------------------------
Using portable dumper.
Using system malloc.
Using DLL version of C runtime library.
Compiling in extra internal error-checking.
NOTE: ---------------------------------------------------------
NOTE: Compiling in support for runtime error-checking.
NOTE: XEmacs will run noticeably more slowly as a result.
NOTE: Error-checking is on by default for XEmacs beta releases.
NOTE: ---------------------------------------------------------
Compiling in debugging support (no slowdown).
Compiling with optimization.
Using new experimental GC algorithms.
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\xemacs-21.5-clean-cvs-update.err
> keeping lines matching
> "^--\[\[\|\]\]$\|^\(cd\|n?make\)\s-\|errors?\|warnings?\|pure.*\(space\|size\)\|hides\b\|strange\|shadowings\|^Compil\(ing\s-+in\|ation\)\|^Using\|not\s-+found\|^While\s-+compiling.*\(
\s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* "
> and then deleting lines matching
> "confl.*with.*auto-inlining\|^Formatting:"
cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\
Compilation started at Sat Mar 12 10:13:54 2005 +0100 (W. Europe Standard Time)
? gunzip-error.txt
? nt/xemacs-21.5-clean-make-all-texinfo-error.err
cvs server: Updating tests
M tests/ChangeLog
M tests/automated/region-tests.el
Compilation finished at Sat Mar 12 10:14:57
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\xemacs-21.5-clean-make-install.err
> keeping lines matching
> "^--\[\[\|\]\]$\|^\(cd\|n?make\)\s-\|errors?\|warnings?\|pure.*\(space\|size\)\|hides\b\|strange\|shadowings\|^Compil\(ing\s-+in\|ation\)\|^Using\|not\s-+found\|^While\s-+compiling.*\(
\s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* "
> and then deleting lines matching
> "confl.*with.*auto-inlining\|^Formatting:"
cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\
nmake /f xemacs.mak install
Compilation started at Sat Mar 12 10:19:01 2005 +0100 (W. Europe Standard Time)
Installing XEmacs in "c:\\Program Files\\XEmacs\\XEmacs-21.5-b20".
Compiling in extra internal error-checking.
NOTE: Compiling in support for runtime error-checking.
1 file(s) copied.
1 File(s) copied
1 File(s) copied
Using load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\)
Using module-load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\modules)
Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\alloc.c, line 3382, ABORT()
Fatal error.
byte-compile-file-form((defun byte-compile-log-lap-1 (format &rest args) (if (aref byte-code-vector 0) (error "The old version of the disassembler is loaded. Reload new-bytecomp as well.")) (byte-compile-log-1 (apply (quote format) format (let (c a) (mapcar (function (lambda (arg) (if (not (consp arg)) (if (and (symbolp arg) (string-match "^byte-" (symbol-name arg))) (intern (substring (symbol-name arg) 5)) arg) (if (integerp (setq c (car arg))) (error "non-symbolic byte-op %s" c)) (if (eq c (quote TAG)) (setq c arg) (setq a (cond ((memq c byte-goto-ops) (car (cdr (cdr arg)))) ((memq c byte-constref-ops) (car (cdr arg))) (t (cdr arg)))) (setq c (symbol-name c)) (if (string-match "^byte-." c) (setq c (intern (substring c 5))))) (if (eq c (quote constant)) (setq c (quote const))) (if (and (eq (cdr arg) 0) (not (memq c (quote (unbind call const))))) c (format "(%s %s)" c a))))) args))))))
call-with-condition-handler((lambda (error-info) (byte-compile-report-error error-info)) (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))
(unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-c!
ompile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1))))))))
# bind (byte-compile-warnings-beginning)
(let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to!
-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1)))))))))
(let* ((byte-compile-log-buffer (get-buffer-create "*Compile-Log*")) (byte-compile-point-max-prev (point-max byte-compile-log-buffer))) (byte-compile-log-file) (defvar byte-compile-warnings-beginning) (let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-fo!
rward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1))))))))))
(displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))
(progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min))))
(prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables)))
# bind (byte-compile-file-domain byte-compile-warnings byte-compile-dynamic-docstrings byte-compile-dynamic byte-compile-emacs19-compatibility byte-optimize byte-compile-verbose byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment)
(let ((byte-compile-macro-environment (copy-alist byte-compile-initial-macro-environment)) (byte-compile-function-environment nil) (byte-compile-autoload-environment nil) (byte-compile-unresolved-functions nil) (byte-compile-bound-variables nil) (byte-compile-free-references nil) (byte-compile-free-assignments nil) (byte-compile-verbose byte-compile-verbose) (byte-optimize byte-optimize) (byte-compile-emacs19-compatibility byte-compile-emacs19-compatibility) (byte-compile-dynamic byte-compile-dynamic) (byte-compile-dynamic-docstrings byte-compile-dynamic-docstrings) (byte-compile-warnings (if (eq byte-compile-warnings t) byte-compile-default-warnings byte-compile-warnings)) (byte-compile-file-domain nil)) (prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq !
overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables))))
(byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min))))
(let (byte-compile-outbuffer (float-output-format nil) (case-fold-search nil) (print-length nil) (print-level nil) (byte-compile-constants nil) (byte-compile-variables nil) (byte-compile-tag-number 0) (byte-compile-depth 0) (byte-compile-maxdepth 0) (byte-compile-output nil)) (byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-function!
s nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (not eval) byte-compile-outbuffer (let (form) (while (condition-case nil (progn (setq form (read byte-compile-outbuffer)) t) (end-of-file nil)) (eval form))) (kill-buffer byte-compile-outbuffer) nil))
(let ((byte-compile-current-file filename) target-file input-buffer output-buffer byte-compile-dest-file) (setq target-file (byte-compile-dest-file filename)) (setq byte-compile-dest-file target-file) (save-excursion (setq input-buffer (get-buffer-create " *Compiler Input*")) (set-buffer input-buffer) (erase-buffer) (insert-file-contents filename) (let ((buffer-file-name filename) (default-major-mode (quote emacs-lisp-mode)) (enable-local-eval nil)) (normal-mode) (setq filename buffer-file-name))) (setq byte-compiler-error-flag nil) (setq output-buffer (byte-compile-from-buffer input-buffer filename)) (if byte-compiler-error-flag nil (if byte-compile-verbose (message "Compiling %s...done" filename)) (kill-buffer input-buffer) (save-excursion (set-buffer output-buffer) (goto-char (point-max)) (insert "\n") (setq target-file (byte-compile-dest-file filename)) (unless byte-compile-overwrite-file (ignore-file-errors (delete-file target-file))) (if (file-writable-p target-file)!
(write-region 1 (point-max) target-file) (signal (quote file-error) (list "Opening output file" (if (file-exists-p target-file) "cannot overwrite file" "directory not writable or nonexistent") target-file))) (or byte-compile-overwrite-file (condition-case nil (set-file-modes target-file (file-modes filename)) (error nil))) (kill-buffer (current-buffer))) (if (and byte-compile-generate-call-tree (or (eq t byte-compile-generate-call-tree) (y-or-n-p (format "Report call tree for %s? " filename)))) (save-excursion (display-call-tree filename))) (if load (load target-file)) t))
# (condition-case ... . ((error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil)))
(condition-case err (progn (byte-compile-file file) t) (error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil))
(if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process))
# bind (file-to-process error)
(let (error (file-to-process (car command-line-args-left))) (setq command-line-args-left (cdr command-line-args-left)) (if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process)))
(cond ((null command-line-args-left) (unless noninteractive (run-hooks (quote term-setup-hook)) (setq term-setup-hook nil) (when (string= (buffer-name) "*scratch*") (unless (or inhibit-startup-message (input-pending-p)) (let (tmout) (unwind-protect (catch (quote tmout) (setq tmout (add-timeout startup-message-timeout (lambda (ignore) (condition-case nil (throw (quote tmout) t) (error nil))) nil)) (display-splash-screen) (or nil (goto-char (point-min))) (sit-for 0) (setq unread-command-event (next-command-event))) (when tmout (disable-timeout tmout))))) (with-current-buffer (get-buffer "*scratch*") (erase-buffer) (when (stringp initial-scratch-message) (insert initial-scratch-message)) (set-buffer-modified-p nil))))) (t (let ((dir command-line-default-directory) (file-count 0) (line nil) (end-of-options nil) file-p arg tem) (while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (!
assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil)))))))
(let ((command-line-args-left (cdr command-line-args))) (let ((debugger (quote early-error-handler)) (debug-on-error t)) (setq command-line-args-left (command-line-early command-line-args-left)) (when (eq system-type (quote windows-nt)) (declare-fboundp (init-mswindows-at-startup))) (when (featurep (quote toolbar)) (init-toolbar-location)) (if (featurep (quote toolbar)) (if (featurep (quote infodock)) (require (quote id-x-toolbar)) (init-toolbar))) (when (and initial-window-system (not noninteractive)) (funcall (intern (concat "init-" (symbol-name initial-window-system) "-win")))) (frame-initialize)) (startup-initialize-custom-faces) (if (featurep (quote menubar)) (init-menubar-at-startup)) (if (featurep (quote mule)) (declare-fboundp (init-mule-at-startup))) (load-init-file) (with-current-buffer (get-buffer "*scratch*") (erase-buffer) (set-buffer-modified-p nil) (when (eq major-mode (quote fundamental-mode)) (funcall initial-major-mode))) (when (and (eq (quote tty) (conso!
le-type)) (not (noninteractive))) (load-terminal-library)) (command-line-1) (setq inhibit-warning-display nil) (when (noninteractive) (kill-emacs t)))
(if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data))))
# bind (error-data)
(let (error-data) (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) (setq default-directory (abbreviate-file-name default-directory)) (if auto-save-list-file-prefix (setq auto-save-list-file-name (expand-file-name (format "%s%d-%s" auto-save-list-file-prefix (emacs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook)) (and term-setup-hook (run-hooks (quote term-setup-hook))) (setq term-setup-hook nil) (frame-notice-user-settings) (when window-setup-hook (run-hooks (quote window-setup-hook))) (setq window-setup-hook nil) (if error-data (signal-error (car error-data) (cdr error-data))))
(if command-line-processed (message "Back to top level.") (setq command-line-processed t) (when (getenv "XEMACSDEBUG") (eval (read (getenv "XEMACSDEBUG")))) (let ((value (user-home-directory))) (if (and value (< (length value) (length default-directory)) (equal (file-attributes default-directory) (file-attributes value))) (setq default-directory (file-name-as-directory value)))) (setq default-directory (abbreviate-file-name default-directory)) (initialize-xemacs-paths) (startup-set-invocation-environment) (startup-setup-paths (cond (inhibit-all-packages t) (inhibit-early-packages (quote (early))) (t nil)) nil) (startup-setup-paths-warning) (startup-load-autoloads) (let (error-data) (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) (setq default-directory (abbreviate-file-name default-directory)) (if auto-save-list-file-prefix (setq auto-save-list-file-name (expand-file-name (format "%s%d-%s" auto-save-list-file-prefix (ema!
cs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook)) (and term-setup-hook (run-hooks (quote term-setup-hook))) (setq term-setup-hook nil) (frame-notice-user-settings) (when window-setup-hook (run-hooks (quote window-setup-hook))) (setq window-setup-hook nil) (if error-data (signal-error (car error-data) (cdr error-data)))) (if load-user-init-file-p (maybe-migrate-user-init-file)))
# (condition-case ... . error)
NMAKE: fatal error U1077: '"c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src\i"' : return code '0xc0000005'
Compilation exited abnormally with code 2 at Sat Mar 12 10:31:04
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 2 participants
- 2 comments
Re: [Check Failures] XEmacs 21.5-b20 "cilantro" (+CVS-20050311) i586-pc-win32
19 years, 8 months
Adrian Aichner
Adrian Aichner
Adrian Aichner <adrian(a)xemacs.org> writes:
> Using
> USE_UNION_TYPE=0
> in config.inc I was able to produce xemacs.exe.
>
> make check-temacs
> and
> make check
> both fail assertion
> Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\alloc.c, line 3382, ABORT()
> though.
It also crashes on startup with my .emacs.
Vanilla is next ...
Adrian
<273 lines deleted by Adrian Aichner>
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 1 comments
[Check Failures] XEmacs 21.5-b20 "cilantro" (+CVS-20050311) i586-pc-win32
19 years, 8 months
Adrian Aichner
Adrian Aichner
Using
USE_UNION_TYPE=0
in config.inc I was able to produce xemacs.exe.
make check-temacs
and
make check
both fail assertion
Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\alloc.c, line 3382, ABORT()
though.
I have trimmed the pbacktrace report from 600K to 50K
More details available on request.
Best regards,
Adrian
> XEmacs Build Report generated by emacs-version
> 21.5 (beta19) "chives" (+CVS-20050224) XEmacs Lucid
> with system-configuration
> i586-pc-win32
> follows:
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\Installation:
> (Output from most recent run of ./configure)
OS version:
Microsoft Windows XP [Version 5.1.2600]
OS: Windows_NT
XEmacs 21.5-b20 "cilantro" (+CVS-20050311) configured for `i586-pc-win32'.
Building XEmacs using "NMAKE".
Building XEmacs using make flags " ".
Building XEmacs in source tree "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean".
For src, using compiler "cl -nologo -W3 -DSTRICT -Zi -O2 -G5 -Ob2 -MDd -c -TP -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\inc -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src -I"c:\Hacking\libs4xemacs\xpm-3.4k" -I"c:\Hacking\libs4xemacs\xpm-3.4k\lib" -I"c:\Hacking\libs4xemacs\libpng-1.0.2" -I"c:\Hacking\libs4xemacs\zlib" -I"c:\Hacking\libs4xemacs\tiff-v3.4\libtiff" -I"c:\Hacking\libs4xemacs\jpeg-6b" -I"c:\Hacking\libs4xemacs\compface" -I"c:\Hacking\libs4xemacs\zlib" -DHAVE_MS_WINDOWS -DHAVE_XPM -DFOR_MSW -DHAVE_GIF -DHAVE_PNG -DHAVE_TIFF -DHAVE_JPEG -DHAVE_XFACE -DHAVE_ZLIB -DHAVE_MENUBARS -DHAVE_SCROLLBARS -DHAVE_TOOLBARS -DHAVE_WIDGETS -DHAVE_DIALOGS -DHAVE_NATIVE_SOUND -DMULE -DPDUMP -DUSE_KKCC -DSYSTEM_MALLOC -DERROR_CHECK_ALL -DDEBUG_XEMACS -D_DEBUG -DWIN32_LEAN_AND_MEAN -DWIN32_NATIVE -Demacs -DHAVE_CONFIG_H -DPATH_VERSION=\"21.5-b20\" -DPATH_PROGNAME=\"xemacs\" -DEMACS_VERSION=\"21.5-b20\" -DEMACS_PROGNAME=\"xemacs\" -DSTACK_TRACE!
_EYE_CATCHER=xemacs_21_5_b20_i586_pc_win32 -DPATH_PREFIX=\"..\" -DEMACS_MAJOR_VERSION=21 -DEMACS_MINOR_VERSION=5 -DEMACS_BETA_VERSION=20 -DXEMACS_CODENAME=\""cilantro"\" -DXEMACS_EXTRA_NAME=\"(+CVS-20050311)\" -DEMACS_CONFIGURATION=\"i586-pc-win32\" -DPATH_PACKAGEPATH=\""~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\mule-packages;c:\\Program Files\\XEmacs\\xemacs-packages"\"".
For lib-src, using compiler "cl -nologo -W3 -DSTRICT -Zi -O2 -G5 -Ob2 -MDd -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src -DHAVE_CONFIG_H -DWIN32_NATIVE".
Compiling as C++.
Installing XEmacs in "c:\\Program Files\\XEmacs\\XEmacs-21.5-b20".
Package path is "~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\mule-packages;c:\\Program Files\\XEmacs\\xemacs-packages".
Compiling in support for Microsoft Windows native GUI.
Compiling in international (MULE) support.
Compiling in support for XPM images.
Compiling in support for GIF images.
Compiling in support for PNG images.
Compiling in support for TIFF images.
Compiling in support for JPEG images.
Compiling in support for X-Face message headers.
Compiling in support for GZIP compression/decompression.
Compiling in support for toolbars.
Compiling in support for dialogs.
Compiling in support for widgets.
Compiling in support for native sounds.
Using portable dumper.
Using system malloc.
Using DLL version of C runtime library.
Compiling in extra internal error-checking.
NOTE: ---------------------------------------------------------
NOTE: Compiling in support for runtime error-checking.
NOTE: XEmacs will run noticeably more slowly as a result.
NOTE: Error-checking is on by default for XEmacs beta releases.
NOTE: ---------------------------------------------------------
Compiling in debugging support (no slowdown).
Compiling with optimization.
Using new experimental GC algorithms.
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\xemacs-21.5-clean-cvs-update.err
> keeping lines matching
> "^--\[\[\|\]\]$\|^\(cd\|n?make\)\s-\|errors?\|warnings?\|pure.*\(space\|size\)\|hides\b\|strange\|shadowings\|^Compil\(ing\s-+in\|ation\)\|^Using\|not\s-+found\|^While\s-+compiling.*\(
\s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* "
> and then deleting lines matching
> "confl.*with.*auto-inlining\|^Formatting:"
cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\
Compilation started at Sat Mar 12 10:13:54 2005 +0100 (W. Europe Standard Time)
? gunzip-error.txt
? nt/xemacs-21.5-clean-make-all-texinfo-error.err
cvs server: Updating tests
M tests/ChangeLog
M tests/automated/region-tests.el
Compilation finished at Sat Mar 12 10:14:57
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\xemacs-21.5-clean-make-install.err
> keeping lines matching
> "^--\[\[\|\]\]$\|^\(cd\|n?make\)\s-\|errors?\|warnings?\|pure.*\(space\|size\)\|hides\b\|strange\|shadowings\|^Compil\(ing\s-+in\|ation\)\|^Using\|not\s-+found\|^While\s-+compiling.*\(
\s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* "
> and then deleting lines matching
> "confl.*with.*auto-inlining\|^Formatting:"
cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\
nmake /f xemacs.mak install
Compilation started at Sat Mar 12 10:39:25 2005 +0100 (W. Europe Standard Time)
Installing XEmacs in "c:\\Program Files\\XEmacs\\XEmacs-21.5-b20".
Compiling in extra internal error-checking.
NOTE: Compiling in support for runtime error-checking.
1 file(s) copied.
1 File(s) copied
1 File(s) copied
Using load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\)
Using module-load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\modules)
While compiling describe-register-1 in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\register.el:
** reference to free variable yank-excluded-properties
While compiling the end of the data:
** The following functions are not known to be defined:
remove-list-of-text-properties, insert-for-yank
While compiling the end of the data in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\diagnose.el:
** the function sort-numeric-fields is not known to be defined.
While compiling get-selection in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\select.el:
** variable err bound but not referenced
While compiling forward-paragraph in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\paragraphs.el:
** variable multiple-lines bound but not referenced
While compiling the end of the data:
** the function constrain-to-field is not known to be defined.
Using load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\)
Using module-load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\modules)
While compiling the end of the data in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\gtk.el:
** the function gtk-import-function is not known to be defined.
While compiling toplevel forms in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\mule\thai-util.el:
** define-category called with 3 arguments, but accepts only 2
** define-category called with 3 arguments, but accepts only 2
** define-category called with 3 arguments, but accepts only 2
While compiling the end of the data:
** the function make-category-table is not known to be defined.
While compiling toplevel forms in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\mule\lao-util.el:
** define-category called with 3 arguments, but accepts only 2
** define-category called with 3 arguments, but accepts only 2
** define-category called with 3 arguments, but accepts only 2
** define-category called with 3 arguments, but accepts only 2
While compiling the end of the data:
** the function make-category-table is not known to be defined.
While compiling ethio-modify-vowel in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\mule\ethio-util.el:
** decompose-composite-char is an obsolete function; use char-to-string instead.
Installing in c:\Program Files\XEmacs\XEmacs-21.5-b20 ...
1 File(s) copied
1 File(s) copied
1 File(s) copied
1 File(s) copied
1 File(s) copied
11 File(s) copied
1 File(s) copied
1 File(s) copied
1 File(s) copied
497 File(s) copied
161 File(s) copied
585 File(s) copied
1 File(s) copied
1 File(s) copied
1 File(s) copied
Compilation finished at Sat Mar 12 11:01:44
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\xemacs-21.5-clean-make-check-temacs.err
> keeping lines matching
> "^--\[\[\|\]\]$\|^\(cd\|n?make\)\s-\|errors?\|warnings?\|pure.*\(space\|size\)\|hides\b\|strange\|shadowings\|^Compil\(ing\s-+in\|ation\)\|^Using\|not\s-+found\|^While\s-+compiling.*\(
\s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* "
> and then deleting lines matching
> "confl.*with.*auto-inlining\|^Formatting:"
cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\
nmake /f xemacs.mak check-temacs
Compilation started at Sat Mar 12 11:02:16 2005 +0100 (W. Europe Standard Time)
Using load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\)
Using module-load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\modules)
base64-tests.el: 1234 of 1234 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
byte-compiler-tests.el: 66 of 66 tests successful (100%).
38 tests skipped because can't defadvice.
0 errors that should have been generated, but weren't
0 wrong-error failures
c-tests.el: 4 of 4 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
case-tests.el: 1148 of 1148 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
ccl-tests.el: 4570 of 4570 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
database-tests.el: No tests run.
0 errors that should have been generated, but weren't
0 wrong-error failures
extent-tests.el: 194 of 194 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
hash-table-tests.el: 9866 of 9866 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\alloc.c, line 3382, ABORT()
Fatal error.
byte-compile-top-level((progn (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) error-info nil) (incf other-failures)) t t)
byte-compile-top-level-body(((Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) error-info nil) (incf other-failures)) t)
byte-compile-condition-case((condition-case error-info (progn (assert (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) (Print-Pass "%S" (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a)))))) (incf passes)) (cl-assertion-failed (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) nil) (incf assertion-failures)) (t (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) error-info nil) (incf other-failures))))
byte-compile-form((condition-case error-info (progn (assert (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) (Print-Pass "%S" (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a)))))) (incf passes)) (cl-assertion-failed (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) nil) (incf assertion-failures)) (t (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) error-info nil) (incf other-failures))) t)
<40 lines deleted by Adrian Aichner>
(block nil (let ((--dolist-temp--78702 command-line-args-left) file) (while --dolist-temp--78702 (setq file (car --dolist-temp--78702)) (if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t))) (setq --dolist-temp--78702 (cdr --dolist-temp--78702))) nil))
(dolist (file command-line-args-left) (if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t))))
# bind (error)
(let ((error nil)) (dolist (file command-line-args-left) (if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t)))) (let ((namelen 0) (succlen 0) (testlen 0) (results test-harness-file-results-alist)) (flet ((print-width (i) (let ((x 10) (y 1)) (while (>= i x) (setq x (* 10 x) y (1+ y))) y))) (while results (let* ((head (car results)) (nn (length (file-name-nondirectory (first head)))) (ss (print-width (second head))) (tt (print-width (third head)))) (when (> nn namelen) (setq namelen nn)) (when (> ss succlen) (setq succlen ss)) (when (> tt testlen) (setq testlen tt))) (setq results (cdr results)))) (let ((results (reverse test-harness-file-results-alist)!
)) (while results (let* ((head (car results)) (basename (file-name-nondirectory (first head))) (nsucc (second head)) (ntest (third head))) (if (> ntest 0) (message test-harness-file-summary-template (concat basename ":") nsucc ntest (/ (* 100 nsucc) ntest)) (message test-harness-null-summary-template (concat basename ":"))) (setq results (cdr results)))))) (message "\nDone") (kill-emacs (if error 1 0)))
# bind (error-data)
# (condition-case ... . error)
NMAKE: fatal error U1077: '"c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src\i"' : return code '0xc0000005'
Compilation exited abnormally with code 2 at Sat Mar 12 11:04:03
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\xemacs-21.5-clean-make-check.err
> keeping lines matching
> "^--\[\[\|\]\]$\|^\(cd\|n?make\)\s-\|errors?\|warnings?\|pure.*\(space\|size\)\|hides\b\|strange\|shadowings\|^Compil\(ing\s-+in\|ation\)\|^Using\|not\s-+found\|^While\s-+compiling.*\(
\s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* "
> and then deleting lines matching
> "confl.*with.*auto-inlining\|^Formatting:"
cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\
nmake /f xemacs.mak check
Compilation started at Sat Mar 12 11:05:05 2005 +0100 (W. Europe Standard Time)
base64-tests.el: 1234 of 1234 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
byte-compiler-tests.el: 104 of 104 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
c-tests.el: 4 of 4 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
case-tests.el: 1148 of 1148 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
ccl-tests.el: 4570 of 4570 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
database-tests.el: No tests run.
0 errors that should have been generated, but weren't
0 wrong-error failures
extent-tests.el: 194 of 194 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
hash-table-tests.el: 9866 of 9866 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\alloc.c, line 3382, ABORT()
Fatal error.
byte-compile-top-level((progn (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) error-info nil) (incf other-failures)) t t)
byte-compile-top-level-body(((Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) error-info nil) (incf other-failures)) t)
byte-compile-condition-case((condition-case error-info (progn (assert (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) (Print-Pass "%S" (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a)))))) (incf passes)) (cl-assertion-failed (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) nil) (incf assertion-failures)) (t (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) error-info nil) (incf other-failures))))
byte-compile-form((condition-case error-info (progn (assert (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) (Print-Pass "%S" (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a)))))) (incf passes)) (cl-assertion-failed (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) nil) (incf assertion-failures)) (t (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (let* ((x (a)) (y (remassoc 6 x))) (and (eq x y) (equal y (a))))) error-info nil) (incf other-failures))) t)
<13 lines deleted by Adrian Aichner>
# bind (macro fun byte-compile-macro-environment byte-compile-function-environment byte-compile-autoload-environment byte-compile-unresolved-functions byte-compile-bound-variables byte-compile-free-references byte-compile-free-assignments byte-compile-verbose byte-optimize byte-compile-emacs19-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings byte-compile-file-domain)
#<compiled-function nil "...(123)" [byte-compile-emacs19-compatibility byte-optimize byte-compile-verbose byte-compile-warnings form fun copy-alist nil t fboundp macro lambda byte-compile-lambda defalias unused-vars byte-compile-warn-about-unused-variables byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-initial-macro-environment byte-compile-default-warnings byte-compile-file-domain byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment] 15>()
call-with-condition-handler(#<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2> #<compiled-function nil "...(123)" [byte-compile-emacs19-compatibility byte-optimize byte-compile-verbose byte-compile-warnings form fun copy-alist nil t fboundp macro lambda byte-compile-lambda defalias unused-vars byte-compile-warn-about-unused-variables byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-initial-macro-environment byte-compile-default-warnings byte-compile-file-domain byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment] 15>)
# bind (byte-compile-warnings-beginning byte-compile-point-max-prev byte-compile-log-buffer form)
byte-compile((lambda nil (defvar passes) (defvar assertion-failures) (defvar no-error-failures) (defvar wrong-error-failures) (defvar missing-message-failures) (defvar other-failures) (defvar unexpected-test-suite-failure) (defvar trick-optimizer) (eval-when-compile (condition-case nil (require (quote test-harness)) (file-error (push "." load-path) (when (and (boundp (quote load-file-name)) (stringp load-file-name)) (push (file-name-directory load-file-name) load-path)) (require (quote test-harness))))) (Check-Error wrong-number-of-arguments (setq setq-test-foo)) (Check-Error wrong-number-of-arguments (setq setq-test-foo 1 setq-test-bar)) (Check-Error wrong-number-of-arguments (setq-default setq-test-foo)) (Check-Error wrong-number-of-arguments (setq-default setq-test-foo 1 setq-test-bar)) (Assert (eq (setq) nil)) (Assert (eq (setq-default) nil)) (Assert (eq (setq setq-test-foo 42) 42)) (Assert (eq (setq-default setq-test-foo 42) 42)) (Assert (eq (setq setq-test-foo 42 set!
q-test-bar 99) 99)) (Assert (eq (setq-default setq-test-foo 42 setq-test-bar 99) 99)) (macrolet ((test-setq (expected-result &rest body) (backquote (progn (defun test-setq-fun nil (\,＠ body)) (Assert (eq (\, expected-result) (test-setq-fun))) (byte-compile (quote test-setq-fun)) (Assert (eq (\, expected-result) (test-setq-fun))))))) (test-setq nil (setq)) (test-setq nil (setq-default)) (test-setq 42 (setq test-setq-var 42)) (test-setq 42 (setq-default test-setq-var 42)) (test-setq 42 (setq test-setq-bar 99 test-setq-var 42)) (test-setq 42 (setq-default test-setq-bar 99 test-setq-var 42))) (let ((my-vector [1 2 3 4]) (my-bit-vector (bit-vector 1 0 1 0)) (my-string "1234") (my-list (quote (1 2 3 4)))) (dolist (sequence (list my-vector my-bit-vector my-string my-list)) (Assert (sequencep sequence)) (Assert (eq 4 (length sequence)))) (dolist (array (list my-vector my-bit-vector my-string)) (Assert (arrayp array))) (Assert (eq (elt my-vector 0) 1)) (Assert (eq (elt my-bit-vector!
0) 1)) (Assert (eq (elt my-string 0) ?1)) (Assert (eq (elt my!
-list 0)
1)) (fillarray my-vector 5) (fillarray my-bit-vector 1) (fillarray my-string ?5) (dolist (array (list my-vector my-bit-vector)) (Assert (eq 4 (length array)))) (Assert (eq (elt my-vector 0) 5)) (Assert (eq (elt my-bit-vector 0) 1)) (Assert (eq (elt my-string 0) ?5)) (Assert (eq (elt my-vector 3) 5)) (Assert (eq (elt my-bit-vector 3) 1)) (Assert (eq (elt my-string 3) ?5)) (fillarray my-bit-vector 0) (Assert (eq 4 (length my-bit-vector))) (Assert (eq (elt my-bit-vector 2) 0))) (defun make-circular-list (length) "Create evil emacs-crashing circular list of length LENGTH" (let ((circular-list (make-list length (quote you-are-trapped-in-a-twisty-maze-of-cons-cells-all-alike)))) (setcdr (last circular-list) circular-list) circular-list)) (defun make-list-012 nil (list 0 1 2)) (Check-Error wrong-type-argument (nconc (quote foo) nil)) (dolist (length (quote (1 2 3 4 1000 2000))) (Check-Error circular-list (nconc (make-circular-list length) (quote foo))) (Check-Error circular-list (!
nconc (quote (1 . 2)) (make-circular-list length) (quote foo))) (Check-Error circular-list (nconc (quote (1 . 2)) (quote (3 . 4)) (make-circular-list length) (quote foo)))) (Assert (eq (nconc) nil)) (Assert (eq (nconc nil) nil)) (Assert (eq (nconc nil nil) nil)) (Assert (eq (nconc nil nil nil) nil)) (let ((x (make-list-012))) (Assert (eq (nconc nil x) x))) (let ((x (make-list-012))) (Assert (eq (nconc x nil) x))) (let ((x (make-list-012))) (Assert (eq (nconc nil x nil) x))) (let ((x (make-list-012))) (Assert (eq (nconc x) x))) (let ((x (make-list-012))) (Assert (eq (nconc x (make-circular-list 3)) x))) (Assert (equal (nconc (quote (1 . 2)) (quote (3 . 4)) (quote (5 . 6))) (quote (1 3 5 . 6)))) (let ((y (nconc (make-list-012) nil (list 3 4 5) nil))) (Assert (eq (length y) 6)) (Assert (eq (nth 3 y) 3))) (Check-Error wrong-type-argument (last (quote foo))) (Check-Error wrong-number-of-arguments (last)) (Check-Error wrong-number-of-arguments (last (quote (1 2)) 1 1)) (Check-Err!
or circular-list (last (make-circular-list 1))) (Check-Error c!
ircular-
list (last (make-circular-list 2000))) (let ((x (list 0 1 2 3))) (Assert (eq (last nil) nil)) (Assert (eq (last x 0) nil)) (Assert (eq (last x) (cdddr x))) (Assert (eq (last x 1) (cdddr x))) (Assert (eq (last x 2) (cddr x))) (Assert (eq (last x 3) (cdr x))) (Assert (eq (last x 4) x)) (Assert (eq (last x 9) x)) (Assert (eq (last (quote (1 . 2)) 0) 2))) (Check-Error wrong-type-argument (butlast (quote foo))) (Check-Error wrong-type-argument (nbutlast (quote foo))) (Check-Error wrong-number-of-arguments (butlast)) (Check-Error wrong-number-of-arguments (nbutlast)) (Check-Error wrong-number-of-arguments (butlast (quote (1 2)) 1 1)) (Check-Error wrong-number-of-arguments (nbutlast (quote (1 2)) 1 1)) (Check-Error circular-list (butlast (make-circular-list 1))) ...))
# (condition-case ... . ((error (princ (format "Unexpected error %S while byte-compiling code\n" error-info)))))
(condition-case error-info (setq code (letf (((symbol-function (quote byte-compile-warn)) (quote ignore))) (byte-compile (test-harness-read-from-buffer inbuffer)))) (error (princ (format "Unexpected error %S while byte-compiling code\n" error-info))))
(let (code (test-harness-test-compiled t)) (condition-case error-info (setq code (letf (((symbol-function (quote byte-compile-warn)) (quote ignore))) (byte-compile (test-harness-read-from-buffer inbuffer)))) (error (princ (format "Unexpected error %S while byte-compiling code\n" error-info)))) (condition-case error-info (if code (funcall code)) (error (princ (format "Unexpected error %S while executing byte-compiled code\n" error-info)) (message "Unexpected error %S while executing byte-compiled code." error-info) (message "Test suite execution aborted." error-info))))
(with-output-to-temp-buffer "*Test-Log*" (princ (format "Testing %s...\n\n" filename)) (defconst test-harness-failure-tag "FAIL") (defconst test-harness-success-tag "PASS") (defmacro Known-Bug-Expect-Failure (&rest body) (backquote (let ((test-harness-failure-tag "KNOWN BUG") (test-harness-success-tag "PASS (FAILURE EXPECTED)")) (\,＠ body)))) (defmacro Implementation-Incomplete-Expect-Failure (&rest body) (backquote (let ((test-harness-failure-tag "IMPLEMENTATION INCOMPLETE") (test-harness-success-tag "PASS (FAILURE EXPECTED)")) (\,＠ body)))) (defun Print-Failure (fmt &rest args) (setq fmt (format "%s: %s" test-harness-failure-tag fmt)) (if (noninteractive) (apply (function message) fmt args)) (princ (concat (apply (function format) fmt args) "\n"))) (defun Print-Pass (fmt &rest args) (setq fmt (format "%s: %s" test-harness-success-tag fmt)) (and test-harness-verbose (princ (concat (apply (function format) fmt args) "\n")))) (defun Print-Skip (test reason &optional fmt &re!
st args) (setq fmt (concat "SKIP: %S BECAUSE %S" fmt)) (princ (concat (apply (function format) fmt test reason args) "\n"))) (defmacro Skip-Test-Unless (condition reason description &rest body) "Unless CONDITION is satisfied, skip test BODY.\nREASON is a description of the condition failure, and must be unique (it\nis used as a hash key). DESCRIPTION describes the tests that were skipped.\nBODY is a sequence of expressions and may contain several tests." (backquote (if (not (\, condition)) (let ((count (gethash (\, reason) skipped-test-reasons))) (puthash (\, reason) (if (null count) 1 (1+ count)) skipped-test-reasons) (Print-Skip (\, description) (\, reason))) (\,＠ body)))) (defmacro Assert (assertion &optional failing-case) (backquote (condition-case error-info (progn (assert (\, assertion)) (Print-Pass "%S" (quote (\, assertion))) (incf passes)) (cl-assertion-failed (Print-Failure (if (\, failing-case) "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (q!
uote (\, assertion)) (\, failing-case)) (incf assertion-failur!
es)) (t
(Print-Failure (if (\, failing-case) "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (\, assertion)) error-info (\, failing-case)) (incf other-failures))))) (defmacro Check-Error (expected-error &rest body) (let ((quoted-body (if (= 1 (length body)) (backquote (quote (\, (car body)))) (backquote (quote (progn (\,＠ body))))))) (backquote (condition-case error-info (progn (setq trick-optimizer (progn (\,＠ body))) (Print-Failure "%S executed successfully, but expected error %S" (\, quoted-body) (quote (\, expected-error))) (incf no-error-failures)) ((\, expected-error) (Print-Pass "%S ==> error %S, as expected" (\, quoted-body) (quote (\, expected-error))) (incf passes)) (error (Print-Failure "%S ==> expected error %S, got error %S instead" (\, quoted-body) (quote (\, expected-error)) error-info) (incf wrong-error-failures)))))) (defmacro Check-Error-Message (expected-error expected-error-regexp &rest body) (let ((quoted-body (if (= 1 (length body)) (backquote!
(quote (\, (car body)))) (backquote (quote (progn (\,＠ body))))))) (backquote (condition-case error-info (progn (setq trick-optimizer (progn (\,＠ body))) (Print-Failure "%S executed successfully, but expected error %S" (\, quoted-body) (quote (\, expected-error))) (incf no-error-failures)) ((\, expected-error) (let ((error-message (second error-info))) (if (string-match (\, expected-error-regexp) error-message) (progn (Print-Pass "%S ==> error %S %S, as expected" (\, quoted-body) error-message (quote (\, expected-error))) (incf passes)) (Print-Failure "%S ==> got error %S as expected, but error message %S did not match regexp %S" (\, quoted-body) (quote (\, expected-error)) error-message (\, expected-error-regexp)) (incf wrong-error-failures)))) (error (Print-Failure "%S ==> expected error %S, got error %S instead" (\, quoted-body) (quote (\, expected-error)) error-info) (incf wrong-error-failures)))))) (defmacro Check-Message (expected-message-regexp &rest body) (Skip-Tes!
t-Unless (fboundp (quote defadvice)) "can't defadvice" expecte!
d-messag
e-regexp (let ((quoted-body (if (= 1 (length body)) (backquote (quote (\, (car body)))) (backquote (quote (progn (\,＠ body))))))) (backquote (let ((messages "")) (defadvice message (around collect activate) (defvar messages) (let ((msg-string (apply (quote format) (ad-get-args 0)))) (setq messages (concat messages msg-string)) msg-string)) (condition-case error-info (progn (setq trick-optimizer (progn (\,＠ body))) (if (string-match (\, expected-message-regexp) messages) (progn (Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (\, quoted-body) trick-optimizer messages (quote (\, expected-message-regexp))) (incf passes)) (Print-Failure "%S ==> value %S, message %S, NOT matching expected %S" (\, quoted-body) trick-optimizer messages (quote (\, expected-message-regexp))) (incf missing-message-failures))) (error (Print-Failure "%S ==> unexpected error %S" (\, quoted-body) error-info) (incf other-failures))) (ad-unadvise (quote message))))))) (defmacro Ignore-Ebo!
la (&rest body) (backquote (let ((debug-issue-ebola-notices -42)) (\,＠ body)))) (defun Int-to-Marker (pos) (save-excursion (set-buffer standard-output) (save-excursion (goto-char pos) (point-marker)))) (princ "Testing Interpreted Lisp\n\n") (condition-case error-info (funcall (test-harness-read-from-buffer inbuffer)) (error (setq unexpected-test-suite-failure t) (princ (format "Unexpected error %S while executing interpreted code\n" error-info)) (message "Unexpected error %S while executing interpreted code." error-info) (message "Test suite execution aborted." error-info))) (princ "\nTesting Compiled Lisp\n\n") (let (code (test-harness-test-compiled t)) (condition-case error-info (setq code (letf (((symbol-function (quote byte-compile-warn)) (quote ignore))) (byte-compile (test-harness-read-from-buffer inbuffer)))) (error (princ (format "Unexpected error %S while byte-compiling code\n" error-info)))) (condition-case error-info (if code (funcall code)) (error (princ (format!
"Unexpected error %S while executing byte-compiled code\n" er!
ror-info
)) (message "Unexpected error %S while executing byte-compiled code." error-info) (message "Test suite execution aborted." error-info)))) (princ (format "\nSUMMARY for %s:\n" filename)) (princ (format " %5d passes\n" passes)) (princ (format " %5d assertion failures\n" assertion-failures)) (princ (format " %5d errors that should have been generated, but weren't\n" no-error-failures)) (princ (format " %5d wrong-error failures\n" wrong-error-failures)) (princ (format " %5d missing-message failures\n" missing-message-failures)) (princ (format " %5d other failures\n" other-failures)) (let* ((total (+ passes assertion-failures no-error-failures wrong-error-failures missing-message-failures other-failures)) (basename (file-name-nondirectory filename)) (summary-msg (if (> total 0) (format test-harness-file-summary-template (concat basename ":") passes total (/ (* 100 passes) total)) (format test-harness-null-summary-template (concat basename ":")))) (reasons "")) (maphash (lambda (k!
ey value) (setq reasons (concat reasons (format "\n %d tests skipped because %s." value key)))) skipped-test-reasons) (when (> (length reasons) 1) (setq summary-msg (concat summary-msg reasons "\n Probably XEmacs cannot find your installed packages. Set EMACSPACKAGEPATH\n to the package hierarchy root or configure with --package-path to enable\n the skipped tests."))) (setq test-harness-file-results-alist (cons (list filename passes total) test-harness-file-results-alist)) (message "%s" summary-msg)) (when unexpected-test-suite-failure (message "Test suite execution failed unexpectedly.")) (fmakunbound (quote Assert)) (fmakunbound (quote Check-Error)) (fmakunbound (quote Check-Message)) (fmakunbound (quote Check-Error-Message)) (fmakunbound (quote Ignore-Ebola)) (fmakunbound (quote Int-to-Marker)) (and noninteractive (message "%s" (buffer-substring-no-properties nil nil "*Test-Log*"))))
# bind (pass-stream debug-on-error unexpected-test-suite-failure trick-optimizer skipped-test-reasons other-failures missing-message-failures wrong-error-failures no-error-failures assertion-failures passes)
(let ((passes 0) (assertion-failures 0) (no-error-failures 0) (wrong-error-failures 0) (missing-message-failures 0) (other-failures 0) (skipped-test-reasons (make-hash-table :test (quote equal))) (trick-optimizer nil) (unexpected-test-suite-failure nil) (debug-on-error t) (pass-stream nil)) (with-output-to-temp-buffer "*Test-Log*" (princ (format "Testing %s...\n\n" filename)) (defconst test-harness-failure-tag "FAIL") (defconst test-harness-success-tag "PASS") (defmacro Known-Bug-Expect-Failure (&rest body) (backquote (let ((test-harness-failure-tag "KNOWN BUG") (test-harness-success-tag "PASS (FAILURE EXPECTED)")) (\,＠ body)))) (defmacro Implementation-Incomplete-Expect-Failure (&rest body) (backquote (let ((test-harness-failure-tag "IMPLEMENTATION INCOMPLETE") (test-harness-success-tag "PASS (FAILURE EXPECTED)")) (\,＠ body)))) (defun Print-Failure (fmt &rest args) (setq fmt (format "%s: %s" test-harness-failure-tag fmt)) (if (noninteractive) (apply (function message) fmt!
args)) (princ (concat (apply (function format) fmt args) "\n"))) (defun Print-Pass (fmt &rest args) (setq fmt (format "%s: %s" test-harness-success-tag fmt)) (and test-harness-verbose (princ (concat (apply (function format) fmt args) "\n")))) (defun Print-Skip (test reason &optional fmt &rest args) (setq fmt (concat "SKIP: %S BECAUSE %S" fmt)) (princ (concat (apply (function format) fmt test reason args) "\n"))) (defmacro Skip-Test-Unless (condition reason description &rest body) "Unless CONDITION is satisfied, skip test BODY.\nREASON is a description of the condition failure, and must be unique (it\nis used as a hash key). DESCRIPTION describes the tests that were skipped.\nBODY is a sequence of expressions and may contain several tests." (backquote (if (not (\, condition)) (let ((count (gethash (\, reason) skipped-test-reasons))) (puthash (\, reason) (if (null count) 1 (1+ count)) skipped-test-reasons) (Print-Skip (\, description) (\, reason))) (\,＠ body)))) (defmacro A!
ssert (assertion &optional failing-case) (backquote (condition!
-case er
ror-info (progn (assert (\, assertion)) (Print-Pass "%S" (quote (\, assertion))) (incf passes)) (cl-assertion-failed (Print-Failure (if (\, failing-case) "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (\, assertion)) (\, failing-case)) (incf assertion-failures)) (t (Print-Failure (if (\, failing-case) "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (\, assertion)) error-info (\, failing-case)) (incf other-failures))))) (defmacro Check-Error (expected-error &rest body) (let ((quoted-body (if (= 1 (length body)) (backquote (quote (\, (car body)))) (backquote (quote (progn (\,＠ body))))))) (backquote (condition-case error-info (progn (setq trick-optimizer (progn (\,＠ body))) (Print-Failure "%S executed successfully, but expected error %S" (\, quoted-body) (quote (\, expected-error))) (incf no-error-failures)) ((\, expected-error) (Print-Pass "%S ==> error %S, as expected" (\, quoted-body) (quote (\, expected-error))) (incf passes)) (e!
rror (Print-Failure "%S ==> expected error %S, got error %S instead" (\, quoted-body) (quote (\, expected-error)) error-info) (incf wrong-error-failures)))))) (defmacro Check-Error-Message (expected-error expected-error-regexp &rest body) (let ((quoted-body (if (= 1 (length body)) (backquote (quote (\, (car body)))) (backquote (quote (progn (\,＠ body))))))) (backquote (condition-case error-info (progn (setq trick-optimizer (progn (\,＠ body))) (Print-Failure "%S executed successfully, but expected error %S" (\, quoted-body) (quote (\, expected-error))) (incf no-error-failures)) ((\, expected-error) (let ((error-message (second error-info))) (if (string-match (\, expected-error-regexp) error-message) (progn (Print-Pass "%S ==> error %S %S, as expected" (\, quoted-body) error-message (quote (\, expected-error))) (incf passes)) (Print-Failure "%S ==> got error %S as expected, but error message %S did not match regexp %S" (\, quoted-body) (quote (\, expected-error)) error-messag!
e (\, expected-error-regexp)) (incf wrong-error-failures)))) (!
error (P
rint-Failure "%S ==> expected error %S, got error %S instead" (\, quoted-body) (quote (\, expected-error)) error-info) (incf wrong-error-failures)))))) (defmacro Check-Message (expected-message-regexp &rest body) (Skip-Test-Unless (fboundp (quote defadvice)) "can't defadvice" expected-message-regexp (let ((quoted-body (if (= 1 (length body)) (backquote (quote (\, (car body)))) (backquote (quote (progn (\,＠ body))))))) (backquote (let ((messages "")) (defadvice message (around collect activate) (defvar messages) (let ((msg-string (apply (quote format) (ad-get-args 0)))) (setq messages (concat messages msg-string)) msg-string)) (condition-case error-info (progn (setq trick-optimizer (progn (\,＠ body))) (if (string-match (\, expected-message-regexp) messages) (progn (Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (\, quoted-body) trick-optimizer messages (quote (\, expected-message-regexp))) (incf passes)) (Print-Failure "%S ==> value %S, message %S, NOT mat!
ching expected %S" (\, quoted-body) trick-optimizer messages (quote (\, expected-message-regexp))) (incf missing-message-failures))) (error (Print-Failure "%S ==> unexpected error %S" (\, quoted-body) error-info) (incf other-failures))) (ad-unadvise (quote message))))))) (defmacro Ignore-Ebola (&rest body) (backquote (let ((debug-issue-ebola-notices -42)) (\,＠ body)))) (defun Int-to-Marker (pos) (save-excursion (set-buffer standard-output) (save-excursion (goto-char pos) (point-marker)))) (princ "Testing Interpreted Lisp\n\n") (condition-case error-info (funcall (test-harness-read-from-buffer inbuffer)) (error (setq unexpected-test-suite-failure t) (princ (format "Unexpected error %S while executing interpreted code\n" error-info)) (message "Unexpected error %S while executing interpreted code." error-info) (message "Test suite execution aborted." error-info))) (princ "\nTesting Compiled Lisp\n\n") (let (code (test-harness-test-compiled t)) (condition-case error-info (setq !
code (letf (((symbol-function (quote byte-compile-warn)) (quot!
e ignore
))) (byte-compile (test-harness-read-from-buffer inbuffer)))) (error (princ (format "Unexpected error %S while byte-compiling code\n" error-info)))) (condition-case error-info (if code (funcall code)) (error (princ (format "Unexpected error %S while executing byte-compiled code\n" error-info)) (message "Unexpected error %S while executing byte-compiled code." error-info) (message "Test suite execution aborted." error-info)))) (princ (format "\nSUMMARY for %s:\n" filename)) (princ (format " %5d passes\n" passes)) (princ (format " %5d assertion failures\n" assertion-failures)) (princ (format " %5d errors that should have been generated, but weren't\n" no-error-failures)) (princ (format " %5d wrong-error failures\n" wrong-error-failures)) (princ (format " %5d missing-message failures\n" missing-message-failures)) (princ (format " %5d other failures\n" other-failures)) (let* ((total (+ passes assertion-failures no-error-failures wrong-error-failures missing-message-failures othe!
r-failures)) (basename (file-name-nondirectory filename)) (summary-msg (if (> total 0) (format test-harness-file-summary-template (concat basename ":") passes total (/ (* 100 passes) total)) (format test-harness-null-summary-template (concat basename ":")))) (reasons "")) (maphash (lambda (key value) (setq reasons (concat reasons (format "\n %d tests skipped because %s." value key)))) skipped-test-reasons) (when (> (length reasons) 1) (setq summary-msg (concat summary-msg reasons "\n Probably XEmacs cannot find your installed packages. Set EMACSPACKAGEPATH\n to the package hierarchy root or configure with --package-path to enable\n the skipped tests."))) (setq test-harness-file-results-alist (cons (list filename passes total) test-harness-file-results-alist)) (message "%s" summary-msg)) (when unexpected-test-suite-failure (message "Test suite execution failed unexpectedly.")) (fmakunbound (quote Assert)) (fmakunbound (quote Check-Error)) (fmakunbound (quote Che!
ck-Message)) (fmakunbound (quote Check-Error-Message)) (fmakun!
bound (q
uote Ignore-Ebola)) (fmakunbound (quote Int-to-Marker)) (and noninteractive (message "%s" (buffer-substring-no-properties nil nil "*Test-Log*")))))
# (condition-case ... . ((error (princ ">>Error occurred processing ") (princ file) (princ ": ") (display-error error-info nil) (terpri) nil)))
(condition-case error-info (progn (test-emacs-test-file file) t) (error (princ ">>Error occurred processing ") (princ file) (princ ": ") (display-error error-info nil) (terpri) nil))
(or (batch-test-emacs-1 file-in-dir) (setq error t))
(if (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))
(when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))
(while --dolist-temp--92103 (setq file-in-dir (car --dolist-temp--92103)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t))) (setq --dolist-temp--92103 (cdr --dolist-temp--92103)))
(let ((--dolist-temp--92103 (directory-files file t)) file-in-dir) (while --dolist-temp--92103 (setq file-in-dir (car --dolist-temp--92103)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t))) (setq --dolist-temp--92103 (cdr --dolist-temp--92103))) nil)
(catch (quote --cl-block-nil--) (let ((--dolist-temp--92103 (directory-files file t)) file-in-dir) (while --dolist-temp--92103 (setq file-in-dir (car --dolist-temp--92103)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t))) (setq --dolist-temp--92103 (cdr --dolist-temp--92103))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--dolist-temp--92103 (directory-files file t)) file-in-dir) (while --dolist-temp--92103 (setq file-in-dir (car --dolist-temp--92103)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t))) (setq --dolist-temp--92103 (cdr --dolist-temp--92103))) nil)))
(block nil (let ((--dolist-temp--92103 (directory-files file t)) file-in-dir) (while --dolist-temp--92103 (setq file-in-dir (car --dolist-temp--92103)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t))) (setq --dolist-temp--92103 (cdr --dolist-temp--92103))) nil))
(dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t))))
(if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t)))
(while --dolist-temp--92102 (setq file (car --dolist-temp--92102)) (if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t))) (setq --dolist-temp--92102 (cdr --dolist-temp--92102)))
(let ((--dolist-temp--92102 command-line-args-left) file) (while --dolist-temp--92102 (setq file (car --dolist-temp--92102)) (if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t))) (setq --dolist-temp--92102 (cdr --dolist-temp--92102))) nil)
(catch (quote --cl-block-nil--) (let ((--dolist-temp--92102 command-line-args-left) file) (while --dolist-temp--92102 (setq file (car --dolist-temp--92102)) (if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t))) (setq --dolist-temp--92102 (cdr --dolist-temp--92102))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--dolist-temp--92102 command-line-args-left) file) (while --dolist-temp--92102 (setq file (car --dolist-temp--92102)) (if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t))) (setq --dolist-temp--92102 (cdr --dolist-temp--92102))) nil)))
(block nil (let ((--dolist-temp--92102 command-line-args-left) file) (while --dolist-temp--92102 (setq file (car --dolist-temp--92102)) (if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t))) (setq --dolist-temp--92102 (cdr --dolist-temp--92102))) nil))
(dolist (file command-line-args-left) (if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t))))
# bind (error)
(let ((error nil)) (dolist (file command-line-args-left) (if (file-directory-p file) (dolist (file-in-dir (directory-files file t)) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not (or (auto-save-file-name-p file-in-dir) (backup-file-name-p file-in-dir) (equal (file-name-nondirectory file-in-dir) "test-harness.el")))) (or (batch-test-emacs-1 file-in-dir) (setq error t)))) (or (batch-test-emacs-1 file) (setq error t)))) (let ((namelen 0) (succlen 0) (testlen 0) (results test-harness-file-results-alist)) (flet ((print-width (i) (let ((x 10) (y 1)) (while (>= i x) (setq x (* 10 x) y (1+ y))) y))) (while results (let* ((head (car results)) (nn (length (file-name-nondirectory (first head)))) (ss (print-width (second head))) (tt (print-width (third head)))) (when (> nn namelen) (setq namelen nn)) (when (> ss succlen) (setq succlen ss)) (when (> tt testlen) (setq testlen tt))) (setq results (cdr results)))) (let ((results (reverse test-harness-file-results-alist)!
)) (while results (let* ((head (car results)) (basename (file-name-nondirectory (first head))) (nsucc (second head)) (ntest (third head))) (if (> ntest 0) (message test-harness-file-summary-template (concat basename ":") nsucc ntest (/ (* 100 nsucc) ntest)) (message test-harness-null-summary-template (concat basename ":"))) (setq results (cdr results)))))) (message "\nDone") (kill-emacs (if error 1 0)))
# bind (error-data)
# (condition-case ... . error)
NMAKE: fatal error U1077: '"c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src\i"' : return code '0xc0000005'
Compilation exited abnormally with code 2 at Sat Mar 12 11:08:45
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 0 comments
[Failure] XEmacs 21.5-b20 "cilantro" (+CVS-20050311) i586-pc-win32
19 years, 8 months
Adrian Aichner
Adrian Aichner
Failing to build due to this.
It's worth to note that I normally build without error_check or union_type.
I'll do that next.
Bootstrapping from temacs...
Loading bytecomp.el...
Compiling c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\bytecomp.el...
Loading byte-optimize.el...
Wrote c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\bytecomp.elc
Compiling c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\byte-optimize.el...
KKCC backtrace overflow, adjust KKCC_BT_STACK_SIZE.
Maybe it is a loop?
Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\alloc.c, line 3382, ABORT()
Fatal error.
Your files have been auto-saved.
Use `M-x recover-session' to recover them.
Your version of XEmacs was distributed with a PROBLEMS file that may describe
your crash, and with luck a workaround. Please check it first, but do report
the crash anyway.
Please report this bug by invoking M-x report-emacs-bug, or by selecting
`Send Bug Report' from the Help menu. If that won't work, send ordinary
email to `crashes(a)xemacs.org'. *MAKE SURE* to include this entire output
from this crash, especially including the Lisp backtrace, as well as the
XEmacs configuration from M-x describe-installation (or equivalently, the
file `Installation' in the top of the build tree).
If you are fortunate enough to have some sort of debugging aid installed
on your system, for example Visual C++, and you can get a C stack backtrace,
*please* include it, as it will make our life far easier.
Lisp backtrace follows:
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
("(in garbage collection)" "[internal]")
# bind (form)
byte-compile-file-form((defun byte-compile-log-lap-1 (format &rest args) (if (aref byte-code-vector 0) (error "The old version of the disassembler is loaded. Reload new-bytecomp as well.")) (byte-compile-log-1 (apply (quote format) format (let (c a) (mapcar (function (lambda (arg) (if (not (consp arg)) (if (and (symbolp arg) (string-match "^byte-" (symbol-name arg))) (intern (substring (symbol-name arg) 5)) arg) (if (integerp (setq c (car arg))) (error "non-symbolic byte-op %s" c)) (if (eq c (quote TAG)) (setq c arg) (setq a (cond ((memq c byte-goto-ops) (car (cdr (cdr arg)))) ((memq c byte-constref-ops) (car (cdr arg))) (t (cdr arg)))) (setq c (symbol-name c)) (if (string-match "^byte-." c) (setq c (intern (substring c 5))))) (if (eq c (quote constant)) (setq c (quote const))) (if (and (eq (cdr arg) 0) (not (memq c (quote (unbind call const))))) c (format "(%s %s)" c a))))) args))))))
(while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer)))
# (unwind-protect ...)
(save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))
(progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))
(lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))))()
# (unwind-protect ...)
call-with-condition-handler((lambda (error-info) (byte-compile-report-error error-info)) (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))
# (unwind-protect ...)
(unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-c!
ompile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1))))))))
# bind (byte-compile-warnings-beginning)
(let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to!
-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1)))))))))
# bind (byte-compile-point-max-prev byte-compile-log-buffer)
(let* ((byte-compile-log-buffer (get-buffer-create "*Compile-Log*")) (byte-compile-point-max-prev (point-max byte-compile-log-buffer))) (byte-compile-log-file) (defvar byte-compile-warnings-beginning) (let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-fo!
rward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1))))))))))
(displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))
(progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min))))
(prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables)))
# bind (byte-compile-file-domain byte-compile-warnings byte-compile-dynamic-docstrings byte-compile-dynamic byte-compile-emacs19-compatibility byte-optimize byte-compile-verbose byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment)
(let ((byte-compile-macro-environment (copy-alist byte-compile-initial-macro-environment)) (byte-compile-function-environment nil) (byte-compile-autoload-environment nil) (byte-compile-unresolved-functions nil) (byte-compile-bound-variables nil) (byte-compile-free-references nil) (byte-compile-free-assignments nil) (byte-compile-verbose byte-compile-verbose) (byte-optimize byte-optimize) (byte-compile-emacs19-compatibility byte-compile-emacs19-compatibility) (byte-compile-dynamic byte-compile-dynamic) (byte-compile-dynamic-docstrings byte-compile-dynamic-docstrings) (byte-compile-warnings (if (eq byte-compile-warnings t) byte-compile-default-warnings byte-compile-warnings)) (byte-compile-file-domain nil)) (prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq !
overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables))))
(byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min))))
# bind (byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants print-level print-length case-fold-search float-output-format byte-compile-outbuffer)
(let (byte-compile-outbuffer (float-output-format nil) (case-fold-search nil) (print-length nil) (print-level nil) (byte-compile-constants nil) (byte-compile-variables nil) (byte-compile-tag-number 0) (byte-compile-depth 0) (byte-compile-maxdepth 0) (byte-compile-output nil)) (byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-function!
s nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (not eval) byte-compile-outbuffer (let (form) (while (condition-case nil (progn (setq form (read byte-compile-outbuffer)) t) (end-of-file nil)) (eval form))) (kill-buffer byte-compile-outbuffer) nil))
# bind (eval filename byte-compile-inbuffer)
byte-compile-from-buffer(#<buffer " *Compiler Input*"> "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\byte-optimize.el")
(setq output-buffer (byte-compile-from-buffer input-buffer filename))
# bind (byte-compile-dest-file output-buffer input-buffer target-file byte-compile-current-file)
(let ((byte-compile-current-file filename) target-file input-buffer output-buffer byte-compile-dest-file) (setq target-file (byte-compile-dest-file filename)) (setq byte-compile-dest-file target-file) (save-excursion (setq input-buffer (get-buffer-create " *Compiler Input*")) (set-buffer input-buffer) (erase-buffer) (insert-file-contents filename) (let ((buffer-file-name filename) (default-major-mode (quote emacs-lisp-mode)) (enable-local-eval nil)) (normal-mode) (setq filename buffer-file-name))) (setq byte-compiler-error-flag nil) (setq output-buffer (byte-compile-from-buffer input-buffer filename)) (if byte-compiler-error-flag nil (if byte-compile-verbose (message "Compiling %s...done" filename)) (kill-buffer input-buffer) (save-excursion (set-buffer output-buffer) (goto-char (point-max)) (insert "\n") (setq target-file (byte-compile-dest-file filename)) (unless byte-compile-overwrite-file (ignore-file-errors (delete-file target-file))) (if (file-writable-p target-file)!
(write-region 1 (point-max) target-file) (signal (quote file-error) (list "Opening output file" (if (file-exists-p target-file) "cannot overwrite file" "directory not writable or nonexistent") target-file))) (or byte-compile-overwrite-file (condition-case nil (set-file-modes target-file (file-modes filename)) (error nil))) (kill-buffer (current-buffer))) (if (and byte-compile-generate-call-tree (or (eq t byte-compile-generate-call-tree) (y-or-n-p (format "Report call tree for %s? " filename)))) (save-excursion (display-call-tree filename))) (if load (load target-file)) t))
# bind (load filename)
byte-compile-file("c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\byte-optimize.el")
(progn (byte-compile-file file) t)
# (condition-case ... . ((error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil)))
(condition-case err (progn (byte-compile-file file) t) (error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil))
# bind (file)
batch-byte-compile-1("c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\byte-optimize.el")
(if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process))
# bind (file-to-process error)
(let (error (file-to-process (car command-line-args-left))) (setq command-line-args-left (cdr command-line-args-left)) (if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process)))
batch-byte-compile-one-file()
funcall(batch-byte-compile-one-file)
# bind (arg)
command-line-do-funcall("-f")
funcall(command-line-do-funcall "-f")
(cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t)))
(while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil))))
# bind (tem arg file-p end-of-options line file-count dir)
(let ((dir command-line-default-directory) (file-count 0) (line nil) (end-of-options nil) file-p arg tem) (while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil)))))
(cond ((null command-line-args-left) (unless noninteractive (run-hooks (quote term-setup-hook)) (setq term-setup-hook nil) (when (string= (buffer-name) "*scratch*") (unless (or inhibit-startup-message (input-pending-p)) (let (tmout) (unwind-protect (catch (quote tmout) (setq tmout (add-timeout startup-message-timeout (lambda (ignore) (condition-case nil (throw (quote tmout) t) (error nil))) nil)) (display-splash-screen) (or nil (goto-char (point-min))) (sit-for 0) (setq unread-command-event (next-command-event))) (when tmout (disable-timeout tmout))))) (with-current-buffer (get-buffer "*scratch*") (erase-buffer) (when (stringp initial-scratch-message) (insert initial-scratch-message)) (set-buffer-modified-p nil))))) (t (let ((dir command-line-default-directory) (file-count 0) (line nil) (end-of-options nil) file-p arg tem) (while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (!
assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil)))))))
command-line-1()
# bind (command-line-args-left)
(let ((command-line-args-left (cdr command-line-args))) (let ((debugger (quote early-error-handler)) (debug-on-error t)) (setq command-line-args-left (command-line-early command-line-args-left)) (when (eq system-type (quote windows-nt)) (declare-fboundp (init-mswindows-at-startup))) (when (featurep (quote toolbar)) (init-toolbar-location)) (if (featurep (quote toolbar)) (if (featurep (quote infodock)) (require (quote id-x-toolbar)) (init-toolbar))) (when (and initial-window-system (not noninteractive)) (funcall (intern (concat "init-" (symbol-name initial-window-system) "-win")))) (frame-initialize)) (startup-initialize-custom-faces) (if (featurep (quote menubar)) (init-menubar-at-startup)) (if (featurep (quote mule)) (declare-fboundp (init-mule-at-startup))) (load-init-file) (with-current-buffer (get-buffer "*scratch*") (erase-buffer) (set-buffer-modified-p nil) (when (eq major-mode (quote fundamental-mode)) (funcall initial-major-mode))) (when (and (eq (quote tty) (conso!
le-type)) (not (noninteractive))) (load-terminal-library)) (command-line-1) (setq inhibit-warning-display nil) (when (noninteractive) (kill-emacs t)))
command-line()
(if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data))))
# bind (error-data)
(let (error-data) (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) (setq default-directory (abbreviate-file-name default-directory)) (if auto-save-list-file-prefix (setq auto-save-list-file-name (expand-file-name (format "%s%d-%s" auto-save-list-file-prefix (emacs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook)) (and term-setup-hook (run-hooks (quote term-setup-hook))) (setq term-setup-hook nil) (frame-notice-user-settings) (when window-setup-hook (run-hooks (quote window-setup-hook))) (setq window-setup-hook nil) (if error-data (signal-error (car error-data) (cdr error-data))))
(if command-line-processed (message "Back to top level.") (setq command-line-processed t) (when (getenv "XEMACSDEBUG") (eval (read (getenv "XEMACSDEBUG")))) (let ((value (user-home-directory))) (if (and value (< (length value) (length default-directory)) (equal (file-attributes default-directory) (file-attributes value))) (setq default-directory (file-name-as-directory value)))) (setq default-directory (abbreviate-file-name default-directory)) (initialize-xemacs-paths) (startup-set-invocation-environment) (startup-setup-paths (cond (inhibit-all-packages t) (inhibit-early-packages (quote (early))) (t nil)) nil) (startup-setup-paths-warning) (startup-load-autoloads) (let (error-data) (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) (setq default-directory (abbreviate-file-name default-directory)) (if auto-save-list-file-prefix (setq auto-save-list-file-name (expand-file-name (format "%s%d-%s" auto-save-list-file-prefix (ema!
cs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook)) (and term-setup-hook (run-hooks (quote term-setup-hook))) (setq term-setup-hook nil) (frame-notice-user-settings) (when window-setup-hook (run-hooks (quote window-setup-hook))) (setq window-setup-hook nil) (if error-data (signal-error (car error-data) (cdr error-data)))) (if load-user-init-file-p (maybe-migrate-user-init-file)))
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
NMAKE: fatal error U1077: '"c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src\i"' : return code '0xc0000005'
Stop.
Compilation exited abnormally with code 2 at Sat Mar 12 10:31:04
Below follows the usual build-report stuff.
Best regards,
Adrian
> XEmacs Build Report generated by emacs-version
> 21.5 (beta19) "chives" (+CVS-20050224) XEmacs Lucid
> with system-configuration
> i586-pc-win32
> follows:
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\Installation:
> (Output from most recent run of ./configure)
OS version:
Microsoft Windows XP [Version 5.1.2600]
OS: Windows_NT
XEmacs 21.5-b20 "cilantro" (+CVS-20050311) configured for `i586-pc-win32'.
Building XEmacs using "NMAKE".
Building XEmacs using make flags " ".
Building XEmacs in source tree "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean".
For src, using compiler "cl -nologo -W3 -DSTRICT -Zi -O2 -G5 -Ob2 -MDd -c -TP -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\inc -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src -I"c:\Hacking\libs4xemacs\xpm-3.4k" -I"c:\Hacking\libs4xemacs\xpm-3.4k\lib" -I"c:\Hacking\libs4xemacs\libpng-1.0.2" -I"c:\Hacking\libs4xemacs\zlib" -I"c:\Hacking\libs4xemacs\tiff-v3.4\libtiff" -I"c:\Hacking\libs4xemacs\jpeg-6b" -I"c:\Hacking\libs4xemacs\compface" -I"c:\Hacking\libs4xemacs\zlib" -DHAVE_MS_WINDOWS -DHAVE_XPM -DFOR_MSW -DHAVE_GIF -DHAVE_PNG -DHAVE_TIFF -DHAVE_JPEG -DHAVE_XFACE -DHAVE_ZLIB -DHAVE_MENUBARS -DHAVE_SCROLLBARS -DHAVE_TOOLBARS -DHAVE_WIDGETS -DHAVE_DIALOGS -DHAVE_NATIVE_SOUND -DMULE -DUSE_UNION_TYPE -DPDUMP -DUSE_KKCC -DSYSTEM_MALLOC -DERROR_CHECK_ALL -DDEBUG_XEMACS -D_DEBUG -DWIN32_LEAN_AND_MEAN -DWIN32_NATIVE -Demacs -DHAVE_CONFIG_H -DPATH_VERSION=\"21.5-b20\" -DPATH_PROGNAME=\"xemacs\" -DEMACS_VERSION=\"21.5-b20\" -DEMACS_PROGNAME=\"xemacs!
\" -DSTACK_TRACE_EYE_CATCHER=xemacs_21_5_b20_i586_pc_win32 -DPATH_PREFIX=\"..\" -DEMACS_MAJOR_VERSION=21 -DEMACS_MINOR_VERSION=5 -DEMACS_BETA_VERSION=20 -DXEMACS_CODENAME=\""cilantro"\" -DXEMACS_EXTRA_NAME=\"(+CVS-20050311)\" -DEMACS_CONFIGURATION=\"i586-pc-win32\" -DPATH_PACKAGEPATH=\""~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\mule-packages;c:\\Program Files\\XEmacs\\xemacs-packages"\"".
For lib-src, using compiler "cl -nologo -W3 -DSTRICT -Zi -O2 -G5 -Ob2 -MDd -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src -DHAVE_CONFIG_H -DWIN32_NATIVE".
Compiling as C++.
Installing XEmacs in "c:\\Program Files\\XEmacs\\XEmacs-21.5-b20".
Package path is "~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\mule-packages;c:\\Program Files\\XEmacs\\xemacs-packages".
Compiling in support for Microsoft Windows native GUI.
Compiling in international (MULE) support.
Compiling in support for XPM images.
Compiling in support for GIF images.
Compiling in support for PNG images.
Compiling in support for TIFF images.
Compiling in support for JPEG images.
Compiling in support for X-Face message headers.
Compiling in support for GZIP compression/decompression.
Compiling in support for toolbars.
Compiling in support for dialogs.
Compiling in support for widgets.
Compiling in support for native sounds.
Using union type for Lisp object storage.
NOTE: ---------------------------------------------------------
NOTE: This tends to trigger compiler bugs, especially when combined
NOTE: with MULE and ERROR_CHECKING. Crashes in pdump have recently
NOTE: been observed using Visual C++ in combination with union type,
NOTE: MULE, and ERROR_CHECKING.
NOTE: ---------------------------------------------------------
Using portable dumper.
Using system malloc.
Using DLL version of C runtime library.
Compiling in extra internal error-checking.
NOTE: ---------------------------------------------------------
NOTE: Compiling in support for runtime error-checking.
NOTE: XEmacs will run noticeably more slowly as a result.
NOTE: Error-checking is on by default for XEmacs beta releases.
NOTE: ---------------------------------------------------------
Compiling in debugging support (no slowdown).
Compiling with optimization.
Using new experimental GC algorithms.
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\xemacs-21.5-clean-cvs-update.err
> keeping lines matching
> "^--\[\[\|\]\]$\|^\(cd\|n?make\)\s-\|errors?\|warnings?\|pure.*\(space\|size\)\|hides\b\|strange\|shadowings\|^Compil\(ing\s-+in\|ation\)\|^Using\|not\s-+found\|^While\s-+compiling.*\(
\s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* "
> and then deleting lines matching
> "confl.*with.*auto-inlining\|^Formatting:"
cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\
Compilation started at Sat Mar 12 10:13:54 2005 +0100 (W. Europe Standard Time)
? gunzip-error.txt
? nt/xemacs-21.5-clean-make-all-texinfo-error.err
cvs server: Updating tests
M tests/ChangeLog
M tests/automated/region-tests.el
Compilation finished at Sat Mar 12 10:14:57
> Contents of c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\xemacs-21.5-clean-make-install.err
> keeping lines matching
> "^--\[\[\|\]\]$\|^\(cd\|n?make\)\s-\|errors?\|warnings?\|pure.*\(space\|size\)\|hides\b\|strange\|shadowings\|^Compil\(ing\s-+in\|ation\)\|^Using\|not\s-+found\|^While\s-+compiling.*\(
\s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* "
> and then deleting lines matching
> "confl.*with.*auto-inlining\|^Formatting:"
cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\
nmake /f xemacs.mak install
Compilation started at Sat Mar 12 10:19:01 2005 +0100 (W. Europe Standard Time)
Installing XEmacs in "c:\\Program Files\\XEmacs\\XEmacs-21.5-b20".
Compiling in extra internal error-checking.
NOTE: Compiling in support for runtime error-checking.
1 file(s) copied.
1 File(s) copied
1 File(s) copied
Using load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\)
Using module-load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\modules)
Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\alloc.c, line 3382, ABORT()
Fatal error.
byte-compile-file-form((defun byte-compile-log-lap-1 (format &rest args) (if (aref byte-code-vector 0) (error "The old version of the disassembler is loaded. Reload new-bytecomp as well.")) (byte-compile-log-1 (apply (quote format) format (let (c a) (mapcar (function (lambda (arg) (if (not (consp arg)) (if (and (symbolp arg) (string-match "^byte-" (symbol-name arg))) (intern (substring (symbol-name arg) 5)) arg) (if (integerp (setq c (car arg))) (error "non-symbolic byte-op %s" c)) (if (eq c (quote TAG)) (setq c arg) (setq a (cond ((memq c byte-goto-ops) (car (cdr (cdr arg)))) ((memq c byte-constref-ops) (car (cdr arg))) (t (cdr arg)))) (setq c (symbol-name c)) (if (string-match "^byte-." c) (setq c (intern (substring c 5))))) (if (eq c (quote constant)) (setq c (quote const))) (if (and (eq (cdr arg) 0) (not (memq c (quote (unbind call const))))) c (format "(%s %s)" c a))))) args))))))
call-with-condition-handler((lambda (error-info) (byte-compile-report-error error-info)) (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))
(unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-c!
ompile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1))))))))
# bind (byte-compile-warnings-beginning)
(let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to!
-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1)))))))))
(let* ((byte-compile-log-buffer (get-buffer-create "*Compile-Log*")) (byte-compile-point-max-prev (point-max byte-compile-log-buffer))) (byte-compile-log-file) (defvar byte-compile-warnings-beginning) (let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-fo!
rward " \n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1))))))))))
(displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))
(progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min))))
(prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables)))
# bind (byte-compile-file-domain byte-compile-warnings byte-compile-dynamic-docstrings byte-compile-dynamic byte-compile-emacs19-compatibility byte-optimize byte-compile-verbose byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment)
(let ((byte-compile-macro-environment (copy-alist byte-compile-initial-macro-environment)) (byte-compile-function-environment nil) (byte-compile-autoload-environment nil) (byte-compile-unresolved-functions nil) (byte-compile-bound-variables nil) (byte-compile-free-references nil) (byte-compile-free-assignments nil) (byte-compile-verbose byte-compile-verbose) (byte-optimize byte-optimize) (byte-compile-emacs19-compatibility byte-compile-emacs19-compatibility) (byte-compile-dynamic byte-compile-dynamic) (byte-compile-dynamic-docstrings byte-compile-dynamic-docstrings) (byte-compile-warnings (if (eq byte-compile-warnings t) byte-compile-default-warnings byte-compile-warnings)) (byte-compile-file-domain nil)) (prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq !
overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables))))
(byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min))))
(let (byte-compile-outbuffer (float-output-format nil) (case-fold-search nil) (print-length nil) (print-level nil) (byte-compile-constants nil) (byte-compile-variables nil) (byte-compile-tag-number 0) (byte-compile-depth 0) (byte-compile-maxdepth 0) (byte-compile-output nil)) (byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n ") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-function!
s nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (not eval) byte-compile-outbuffer (let (form) (while (condition-case nil (progn (setq form (read byte-compile-outbuffer)) t) (end-of-file nil)) (eval form))) (kill-buffer byte-compile-outbuffer) nil))
(let ((byte-compile-current-file filename) target-file input-buffer output-buffer byte-compile-dest-file) (setq target-file (byte-compile-dest-file filename)) (setq byte-compile-dest-file target-file) (save-excursion (setq input-buffer (get-buffer-create " *Compiler Input*")) (set-buffer input-buffer) (erase-buffer) (insert-file-contents filename) (let ((buffer-file-name filename) (default-major-mode (quote emacs-lisp-mode)) (enable-local-eval nil)) (normal-mode) (setq filename buffer-file-name))) (setq byte-compiler-error-flag nil) (setq output-buffer (byte-compile-from-buffer input-buffer filename)) (if byte-compiler-error-flag nil (if byte-compile-verbose (message "Compiling %s...done" filename)) (kill-buffer input-buffer) (save-excursion (set-buffer output-buffer) (goto-char (point-max)) (insert "\n") (setq target-file (byte-compile-dest-file filename)) (unless byte-compile-overwrite-file (ignore-file-errors (delete-file target-file))) (if (file-writable-p target-file)!
(write-region 1 (point-max) target-file) (signal (quote file-error) (list "Opening output file" (if (file-exists-p target-file) "cannot overwrite file" "directory not writable or nonexistent") target-file))) (or byte-compile-overwrite-file (condition-case nil (set-file-modes target-file (file-modes filename)) (error nil))) (kill-buffer (current-buffer))) (if (and byte-compile-generate-call-tree (or (eq t byte-compile-generate-call-tree) (y-or-n-p (format "Report call tree for %s? " filename)))) (save-excursion (display-call-tree filename))) (if load (load target-file)) t))
# (condition-case ... . ((error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil)))
(condition-case err (progn (byte-compile-file file) t) (error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil))
(if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process))
# bind (file-to-process error)
(let (error (file-to-process (car command-line-args-left))) (setq command-line-args-left (cdr command-line-args-left)) (if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process)))
(cond ((null command-line-args-left) (unless noninteractive (run-hooks (quote term-setup-hook)) (setq term-setup-hook nil) (when (string= (buffer-name) "*scratch*") (unless (or inhibit-startup-message (input-pending-p)) (let (tmout) (unwind-protect (catch (quote tmout) (setq tmout (add-timeout startup-message-timeout (lambda (ignore) (condition-case nil (throw (quote tmout) t) (error nil))) nil)) (display-splash-screen) (or nil (goto-char (point-min))) (sit-for 0) (setq unread-command-event (next-command-event))) (when tmout (disable-timeout tmout))))) (with-current-buffer (get-buffer "*scratch*") (erase-buffer) (when (stringp initial-scratch-message) (insert initial-scratch-message)) (set-buffer-modified-p nil))))) (t (let ((dir command-line-default-directory) (file-count 0) (line nil) (end-of-options nil) file-p arg tem) (while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (!
assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil)))))))
(let ((command-line-args-left (cdr command-line-args))) (let ((debugger (quote early-error-handler)) (debug-on-error t)) (setq command-line-args-left (command-line-early command-line-args-left)) (when (eq system-type (quote windows-nt)) (declare-fboundp (init-mswindows-at-startup))) (when (featurep (quote toolbar)) (init-toolbar-location)) (if (featurep (quote toolbar)) (if (featurep (quote infodock)) (require (quote id-x-toolbar)) (init-toolbar))) (when (and initial-window-system (not noninteractive)) (funcall (intern (concat "init-" (symbol-name initial-window-system) "-win")))) (frame-initialize)) (startup-initialize-custom-faces) (if (featurep (quote menubar)) (init-menubar-at-startup)) (if (featurep (quote mule)) (declare-fboundp (init-mule-at-startup))) (load-init-file) (with-current-buffer (get-buffer "*scratch*") (erase-buffer) (set-buffer-modified-p nil) (when (eq major-mode (quote fundamental-mode)) (funcall initial-major-mode))) (when (and (eq (quote tty) (conso!
le-type)) (not (noninteractive))) (load-terminal-library)) (command-line-1) (setq inhibit-warning-display nil) (when (noninteractive) (kill-emacs t)))
(if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data))))
# bind (error-data)
(let (error-data) (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) (setq default-directory (abbreviate-file-name default-directory)) (if auto-save-list-file-prefix (setq auto-save-list-file-name (expand-file-name (format "%s%d-%s" auto-save-list-file-prefix (emacs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook)) (and term-setup-hook (run-hooks (quote term-setup-hook))) (setq term-setup-hook nil) (frame-notice-user-settings) (when window-setup-hook (run-hooks (quote window-setup-hook))) (setq window-setup-hook nil) (if error-data (signal-error (car error-data) (cdr error-data))))
(if command-line-processed (message "Back to top level.") (setq command-line-processed t) (when (getenv "XEMACSDEBUG") (eval (read (getenv "XEMACSDEBUG")))) (let ((value (user-home-directory))) (if (and value (< (length value) (length default-directory)) (equal (file-attributes default-directory) (file-attributes value))) (setq default-directory (file-name-as-directory value)))) (setq default-directory (abbreviate-file-name default-directory)) (initialize-xemacs-paths) (startup-set-invocation-environment) (startup-setup-paths (cond (inhibit-all-packages t) (inhibit-early-packages (quote (early))) (t nil)) nil) (startup-setup-paths-warning) (startup-load-autoloads) (let (error-data) (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) (setq default-directory (abbreviate-file-name default-directory)) (if auto-save-list-file-prefix (setq auto-save-list-file-name (expand-file-name (format "%s%d-%s" auto-save-list-file-prefix (ema!
cs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook)) (and term-setup-hook (run-hooks (quote term-setup-hook))) (setq term-setup-hook nil) (frame-notice-user-settings) (when window-setup-hook (run-hooks (quote window-setup-hook))) (setq window-setup-hook nil) (if error-data (signal-error (car error-data) (cdr error-data)))) (if load-user-init-file-p (maybe-migrate-user-init-file)))
# (condition-case ... . error)
NMAKE: fatal error U1077: '"c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src\i"' : return code '0xc0000005'
Compilation exited abnormally with code 2 at Sat Mar 12 10:31:04
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 0 comments
21.5.19 get-selection bug
19 years, 8 months
Fabrice Popineau
Fabrice Popineau
There has been a recent change in select.el/get-selection that results
in cut and paste not working anymore under win32. The symptoms are as
follow. The form (get-selection 'CLIPBOARD) is always returning
nil. However, (get-selection 'CLIPBOARD 'STRING) is returning what is
expected. So it is pretty clear that this part of the code for
get-selection is wrong:
;; The source app didn't offer us anything compatible in TARGETS,
;; or they're not negotiating at all. (That is, we're probably not
;; on X11.) Try to convert to the types specified by our caller,
;; and throw an error if the last one of those fails.
(while data-type
(condition-case err
(progn
(setq res (get-selection-internal type (car data-type)))
(throw 'converted res))
(selection-conversion-error
(if (cdr data-type)
(setq data-type (pop data-type))
(signal (car err) (cdr err))))))))
The fact is that get-selection-internal seems to return nil, not to
trigger an error. Moreover, data-type is supposed to be a list at this
point and it won't stay a list after the (setq data-type (pop
data-type)) . So I can offer this patch but possibly there are best ways
to fix that:
C:\Source\XEmTeX\xemacs>diff -u -b \mirror\xemtex\xemacs\xemacs-21.5\lisp\select
.el "\Program Files\XEmacs\xemacs-21.5\lisp\select.el"
--- \mirror\xemtex\xemacs\xemacs-21.5\lisp\select.el 2005-03-09 22:58:34.0000
00000 +0100
+++ \Program Files\XEmacs\xemacs-21.5\lisp\select.el 2005-03-10 22:33:53.0000
00000 +0100
＠＠ -146,10 +146,12 ＠＠
(condition-case err
(progn
(setq res (get-selection-internal type (car data-type)))
- (throw 'converted res))
+ (if res (throw 'converted res)
+ (signal 'selection-conversion-error nil)
+ ))
(selection-conversion-error
(if (cdr data-type)
- (setq data-type (pop data-type))
+ (setq data-type (cdr data-type))
(signal (car err) (cdr err))))))))
(get-selection-internal type data-type)))
Moreover, I don't know much about this stuff, but win32 doesn't seem to
take advantage of the TARGETS tag, which would certainly make much more
sense. Opinions on how to do that?
Best,
--
Fabrice Popineau
------------------------
e-mail: Fabrice.Popineau(a)supelec.fr | The difference between theory
voice-mail: +33 (0) 387764715 | and practice, is that
surface-mail: Supelec, 2 rue E. Belin, | theoretically,
F-57070 Metz | there is no difference !
- 3 participants
- 3 comments
please let me hear from you
19 years, 8 months
Clare Edward
Clare Edward
My dearest ,
May God be praised!!!
I am Mrs. Clare Edward, from Kuwait
I am married to Usman Bello of blessed memory who worked with Kuwait
embassy
in Madrid Spain for nine years before he died in the year 2000. We were
married for eleven years without a child he died after a brief illness
that lasted only four days.Before his death he was a very devoted
Muslim and Iwas a devoted Christian by birth battling with both cancer and
fibroid problems when my late husband was alive he deposited the sum of
$15million dollars
(FIFTEEN million dollars) with a bank in Africa.
Presently, this money is still with Bank and Recently, my doctor told
me that I had a terminating illness (cancer) that would last for the
next four months. Though what disturbs me most is my stroke sickness,
having known my condition I decided to donate this fund to either a
Christian or muslim organization or individual that will utilize this money
the way I am going to instruct here in. I want this organization or
individual to use this money in all sincerity to fund churches,mosques,
orphanages, widows and also propagating the word of God and to ensure that
the society upholds the views and beliefs of the holy book The holy
book emphasized so much on the giving of alms, charity and this has
encouraged me in taking this bold step.
I took this decision because I don't have any child to start from and
where I will stop and and I don't want my husband hard earned money to
be misused by people that call me an unbeliever. I don't want a
situation where this money will be used in an unholy manner hence the reason
for taking this bold decision. I know that after death I will be with
God the most high and the most merciful one. I don't need any telephone
communications but will only give you the contact of my lawyer Barr.
JAMES DOUGLAS because he is the one who is going to assist you in making
you the beneficiary of the consignment in the finance and security
firm.With God, I know that all thing are possible and as soon as I
receive your reply through
my lawyer I will now give him instruction to make you the beneficiary
of the consignment and all necessary steps to take before receiving
these funds and I shall also give you the contact of the bank I will also
issue you a letter of authority that will prove you as the original
beneficiary of the funds.I want you and the community where you reside to
always pray for me.
My happiness is that I lived a life of a true devoted person though
married to a Muslim, whoever that wants to serve God must serve him in
truth and in spirit, please always be prayerful all through your life. Any
delay in your reply will give me room in sourcing for another person
organization or a devoted person for the same purpose.Until I hear from
you my dreams will rest squarely on your shoulders,may the Almighty God
continue to guide and protect you. Amen.
Yours faithfully,
Mrs. Clare Edward
NB:BARRISTER JAMES HAS BEEN A LONGTIME FRIEND OF THE FAMILY AND I CAN
VOUCH FOR HIS SINCERITY PLEASE GET BACK TO ME VIA THIS EMAIL ADDRESS
clare_edward(a)hotmail.com
- 1 participants
- 0 comments
Compilation issues on IRIX 6.5
19 years, 8 months
Gopi Kumar
Gopi Kumar
Hi,
I'm facing an issue which is more-or-less similar to your message posted at
http://list-archive.xemacs.org/xemacs-beta/200008/msg00427.html
with subject "configure changes (shared libs)?"
I'm trying to compile some c++ files on IRIX 6.5, but compilation gets hang. My compiler is "MIPSpro Compilers: Version 7.3.1.3m",
And when I do,
"ps -ef" I get,
biobuild 7599 7345 0 16:03:59 pts/1 0:00 CC -DEFAULT:abi=n32:isa=mips4:proc=r10k -shared -LANG:std -LANG:exceptions=on -
biobuild 7675 7599 0 16:05:27 pts/1 0:01 /usr/lib32/cmplrs/ld32 -demangle -elf -_SYSTYPE_SVR4 -shared -init _main -fini
and when I do "top" the machine status is this,
IRIX64 ts-irixbh3-ban 6.5 IP27 load averages: 0.00 0.00 0.00 17:02:19
57 processes: 56 sleeping, 1 running
4 CPUs: 99.5% idle, 0.0% usr, 0.5% ker, 0.0% wait, 0.0% xbrk, 0.0% intr
Memory: 4096M max, 4017M avail, 3574M free, 2024M swap, 2024M free swap
PID PGRP USERNAME PRI SIZE RES STATE TIME WCPU% CPU% COMMAND
7730 7730 root 20 2240K 1280K run/0 0:00 0.3 0.50 top
7676 261 root 20 1888K 1360K sleep 0:00 0.0 0.04 telnetd
2390 2390 biobuild 20 1840K 1024K sleep 0:02 0.0 0.01 tail
7675 1213 biobuild 20 31M 20M sleep 0:01 0.0 0.01 ld
here you can see CPU is 99.5% idle and swap, memory too is free. I was using the same machine and everything was going fine 2 weeks back, but now it hangs and when I restart the machine and do compilation sometimes it is successful.
Here again sometimes its get hang at
/usr/lib32/cmplrs/be <followed by some flags> [or]
/usr/lib32/cmplrs/fecc <followed by some flags>
I'm unable to find out the root cause and how to sort this out. It will be highly helpful if you pass your inputs.
Thanks,
Gopi.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
- 1 participants
- 0 comments
CVS problems with merging directories.
19 years, 8 months
Malcolm Purvis
Malcolm Purvis
In order to add my regressiontest.pl into the mainline I want to merge the tests
directory from the sjt-xft branch so that the tests/autoconf directory will be
brought in.
When I run the update I get the following error:
---------------------------------------------------------------------------
silver: malcolmp$ cvs-rw -n update -jsjt-xft -d .
cvs server: Updating .
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/ChangeLog,v
retrieving revision 1.62
retrieving revision 1.62.2.2
Merging differences between 1.62 and 1.62.2.2 into ChangeLog
cvs server: ChangeLog: No such file or directory
---------------------------------------------------------------------------
What's the correct way of getting tests/autoconf into the main branch?
Malcolm
--
Malcolm Purvis <malcolmp(a)xemacs.org>
- 2 participants
- 2 comments
Anybody got a working carbon xemacs sitting around?
19 years, 8 months
Skip Montanaro
Skip Montanaro
I have tried unsuccessfully several times on two different Macs to build a
working version of Andrew Choi's Carbon XEmacs. The tar extract, patch
application and build seem to all go without a hitch, yet the darn thing
won't run. I get this from the open(1) command:
2005-03-09 23:21:02.458 open[25662] LSOpenFromURLSpec() returned -10827
for application (null) path
/Users/skip/src/xemacs-21.5.18/carbon/XEmacs.app.
2005-03-09 23:21:02.459 open[25662] Couldn't open file:
/Users/skip/src/xemacs-21.5.18/carbon/XEmacs.app
I tried running "ktrace open XEmacs.app" but can't really tell much from the
output. Looking back from the spot where the error message is written I see
a bunch of NAMI stuff for files in /.vol and a number of NAMIs for the
XEmacs.app file itself along with some getattrlist, stat and lstat calls,
all of which succeed. There are a number of kdebug_trace calls sprinkled
throughout the dump, all of which appear to fail (errno 22 invalid
argument). I suspect that's something related to the ktrace run itself.
The last call that fails other than kdebug stuff is an attempted open of the
nonexistent file
/Library/Managed Preferences/skip/com.apple.applicationaccess.plist
I posted a note to comp.emacs.xemacs to which Andrew replied a couple
times. The thread is here:
http://groups-beta.google.com/group/comp.emacs.xemacs/browse_thread/threa...
It seems I've exhausted his ideas about what the cause of the problem might
be. At this point I would be happy if someone could tar up a working
XEmacs.app directory and stick it on a website somewhere so I can compare it
with what I've created (or see if I can even run it). I'm also open to
other debugging suggestions.
Thanks,
--
Skip Montanaro
skip(a)mojam.com
http://www.mojam.com/
- 2 participants
- 1 comments
XEmacs 21.5 no-MULE "make check" failure
19 years, 8 months
Jerry James
Jerry James
I took a quick look today at why XEmacs 21.5 no-MULE is failing "make
check". I still don't know why, but I'm sending this message to record
what I did, and also in the faint hope that somebody who knows something
might see this message and have an "aha!" moment.
I ran a MULE and a no-MULE XEmacs 21.5 side by side as they stepped
through the failing case. Everything was identical up through the call
to
detect_coding_type (data->st, src, n);
on line 3850 of file-coding.c. The next line is:
data->actual = detected_coding_system (data->st);
The MULE XEmacs got #<coding-system raw-text no-conversion>, but the
no-MULE XEmacs got #<coding-system binary no-conversion eol-type=lf>. I
have not yet tried stepping through detected_coding_system to see where
the two went down different paths.
--
Jerry James
http://www.ittc.ku.edu/~james/
- 2 participants
- 2 comments