7:37 a.m.
[This report was generated in a non-Mule XEmacs, but sent from a Mule
XEmacs]
================================================================
Dear Bug Team!
Recipe:
With a non-Mule XEmacs 21.5.12 "carrot"
xemacs -no-autoloads
M-x load-file RET /path/to/tests/automated/test-harness.el RET
M-x test-emacs-test-file RET /path/to/tests/automated/c-tests.el RET
XEmacs dumps core. Please note that this _doesn't_ happen in a Mule XEmacs.
Fatal error: assertion failed, file tests.c, line 365, !memcmp (BYTE_BUF_BYTE_ADDRESS
(current_buffer, charbpos_to_bytebpos (current_buffer, ((current_buffer)->bufpt + 0))),
int_foo, sizeof (int_foo) - 1)
Fatal error (6).
[...]
Lisp backtrace follows:
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
test-data-format-conversion()
funcall(test-data-format-conversion)
(eq (quote PASS) (funcall fun))
(or (eq (quote PASS) (funcall fun)) (signal (quote cl-assertion-failed) (list (quote (eq
(quote PASS) (funcall fun))))))
(progn (or (eq (quote PASS) (funcall fun)) (signal (quote cl-assertion-failed) (list
(quote (eq (quote PASS) (funcall fun)))))) nil)
(assert (eq (quote PASS) (funcall fun)))
(progn (assert (eq (quote PASS) (funcall fun))) (Print-Pass "%S" (quote (eq
(quote PASS) (funcall fun)))) (incf passes))
# (condition-case ... . ((cl-assertion-failed (Print-Failure "Assertion failed:
%S" (quote (eq (quote PASS) (funcall fun)))) (incf assertion-failures)) (t
(Print-Failure "%S ==> error: %S" (quote (eq (quote PASS) (funcall fun)))
error-info) (incf other-failures))))
(condition-case error-info (progn (assert (eq (quote PASS) (funcall fun))) (Print-Pass
"%S" (quote (eq (quote PASS) (funcall fun)))) (incf passes))
(cl-assertion-failed (Print-Failure "Assertion failed: %S" (quote (eq (quote
PASS) (funcall fun)))) (incf assertion-failures)) (t (Print-Failure "%S ==> error:
%S" (quote (eq (quote PASS) (funcall fun))) error-info) (incf other-failures)))
(Assert (eq (quote PASS) (funcall fun)))
(while (consp G98104) (setq fun (car G98104)) (Assert (eq (quote PASS) (funcall fun)))
(setq G98104 (cdr G98104)))
# bind (fun G98104)
(let* ((G98104 test-function-list) (fun nil)) (while (consp G98104) (setq fun (car
G98104)) (Assert (eq (quote PASS) (funcall fun))) (setq G98104 (cdr G98104))) nil)
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (let* ((G98104 test-function-list) (fun nil)) (while
(consp G98104) (setq fun (car G98104)) (Assert (eq (quote PASS) (funcall fun))) (setq
G98104 (cdr G98104))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((G98104 test-function-list)
(fun nil)) (while (consp G98104) (setq fun (car G98104)) (Assert (eq (quote PASS) (funcall
fun))) (setq G98104 (cdr G98104))) nil)))
(block nil (let* ((G98104 test-function-list) (fun nil)) (while (consp G98104) (setq fun
(car G98104)) (Assert (eq (quote PASS) (funcall fun))) (setq G98104 (cdr G98104))) nil))
(loop for fun in test-function-list do (Assert (eq (quote PASS) (funcall fun))))
(if (boundp (quote test-function-list)) (loop for fun in test-function-list do (Assert
(eq (quote PASS) (funcall fun)))))
(when (boundp (quote test-function-list)) (loop for fun in test-function-list do (Assert
(eq (quote PASS) (funcall fun)))))
(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))))) (when
(boundp (quote test-function-list)) (loop for fun in test-function-list do (Assert (eq
(quote PASS) (funcall fun))))))()
funcall((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))))) (when (boundp (quote test-function-list)) (loop for fun in
test-function-list do (Assert (eq (quote PASS) (funcall fun)))))))
# (condition-case ... . ((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))))
(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)))
# bind (standard-output)
(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
Assert (assertion) (backquote (condition-case error-info (progn (assert (\, assertion))
(Print-Pass "%S" (quote (\, assertion))) (incf passes)) (cl-assertion-failed
(Print-Failure "Assertion failed: %S" (quote (\, assertion))) (incf
assertion-failures)) (t (Print-Failure "%S ==> error: %S" (quote (\,
assertion)) error-info) (incf other-failures))))) (defmacro C
h
ted-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-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
-
at) (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-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) (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)))) (princ (format "\nSUMMARY for %s:\n" filename)) (princ (format
" %5d passes\n" passes)) (princ (format " %5d assertion failures\n"
assertion-failures)) (p
r
e 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 "%s: %d of
%d tests successful (%d%%)." basename passes total (/ (* 100 passes) total)) (format
"%s: No tests run" 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."))) (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)))
# 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
Assert (assertion) (backquote (condition-case error-info (progn (assert
n))) (incf passes)) (cl-assertion-failed (Print-Failure "Assertion failed: %S"
(quote (\, assertion))) (incf assertion-failures)) (t (Print-Failure "%S ==>
error: %S" (quote (\, assertion)) error-info) (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-Test-Unless
(fboundp
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 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-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) (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))
(
cuting 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 "%s: %d of
%d tests successful (%d%%)." basename passes total (/ (* 100 passes) total)) (format
"%s: No tests run" 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."))) (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))))
# bind (filename inbuffer)
test-harness-from-buffer(#<buffer " *Test Input*">
"/usr/local/src/xemacs/tests/automated/c-tests.el")
# bind (input-buffer test-harness-current-file)
(let ((test-harness-current-file filename) input-buffer) (save-excursion (setq
input-buffer (get-buffer-create " *Test 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))) (test-harness-from-buffer input-buffer filename) (kill-buffer
input-buffer))
# bind (filename)
(lambda (filename) "Test a file of Lisp code named FILENAME.\nThe output file's
name is made by appending `c' to the end of FILENAME." (interactive (let ((file
buffer-file-name) (file-name nil) (file-dir nil)) (and file (eq (cdr (assq (quote
major-mode) (buffer-local-variables))) (quote emacs-lisp-mode)) (setq file-name
(file-name-nondirectory file) file-dir (file-name-directory file))) (list (read-file-name
"Test file: " file-dir nil nil file-name)))) (setq filename (expand-file-name
filename)) (or noninteractive (let ((b (get-file-buffer (expand-file-name filename)))) (if
(and b (buffer-modified-p b) (y-or-n-p (format "save buffer %s first? "
(buffer-name b)))) (save-excursion (set-buffer b) (save-buffer))))) (if (or noninteractive
test-harness-verbose) (message "Testing %s..." filename)) (let
((test-harness-current-file filename) input-buffer) (save-excursion (setq input-buffer
(get-buffer-create " *Test 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))) (test-harness-from-buffer input-buffer filename) (kill-buffer
input-buffer)))("/usr/local/src/xemacs/tests/automated/c-tests.el")
call-interactively(test-emacs-test-file)
command-execute(test-emacs-test-file t)
# bind (_execute_command_keys_ _execute_command_name_ prefix-arg)
execute-extended-command(nil)
# bind (command-debug-status)
call-interactively(execute-extended-command)
(dispatch-event "[internal]")
# (condition-case ... . error)
# (catch top-level ...)
/home/steve/tools/XEmacs-215nm: line 8: 22704 Aborted (core dumped)
$XEMACS "$＠"
And a C trace:
Current directory is /home/steve/programming/XEmacs/installed/21.5-non-mule/bin/
GNU gdb 5.2
Copyright 2002 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB. Type "show warranty" for details.
This GDB was configured as "i386-slackware-linux"...
warning: core file may not match specified executable file.
Core was generated by `./xemacs -no-autoloads'.
Program terminated with signal 6, Aborted.
Reading symbols from /usr/local/lib/libneXtaw.so.0...done.
Loaded symbols for /usr/local/lib/libneXtaw.so.0
Reading symbols from /usr/lib/libtiff.so.3...done.
Loaded symbols for /usr/lib/libtiff.so.3
Reading symbols from /usr/lib/libpng.so.3...done.
Loaded symbols for /usr/lib/libpng.so.3
Reading symbols from /usr/lib/libjpeg.so.62...done.
Loaded symbols for /usr/lib/libjpeg.so.62
Reading symbols from /usr/lib/libz.so.1...done.
Loaded symbols for /usr/lib/libz.so.1
Reading symbols from /usr/X11R6/lib/libXpm.so.4...done.
Loaded symbols for /usr/X11R6/lib/libXpm.so.4
Reading symbols from /usr/X11R6/lib/libXmu.so.6...done.
Loaded symbols for /usr/X11R6/lib/libXmu.so.6
Reading symbols from /usr/X11R6/lib/libXt.so.6...done.
Loaded symbols for /usr/X11R6/lib/libXt.so.6
Reading symbols from /usr/X11R6/lib/libXext.so.6...done.
Loaded symbols for /usr/X11R6/lib/libXext.so.6
Reading symbols from /usr/X11R6/lib/libX11.so.6...done.
Loaded symbols for /usr/X11R6/lib/libX11.so.6
Reading symbols from /usr/X11R6/lib/libSM.so.6...done.
Loaded symbols for /usr/X11R6/lib/libSM.so.6
Reading symbols from /usr/X11R6/lib/libICE.so.6...done.
Loaded symbols for /usr/X11R6/lib/libICE.so.6
Reading symbols from /usr/local/BerkeleyDB.4.1/lib/libdb-4.1.so...done.
Loaded symbols for /usr/local/BerkeleyDB.4.1/lib/libdb-4.1.so
Reading symbols from /lib/libgpm.so.1...done.
Loaded symbols for /lib/libgpm.so.1
Reading symbols from /lib/libncurses.so.5...done.
Loaded symbols for /lib/libncurses.so.5
Reading symbols from /lib/libm.so.6...done.
Loaded symbols for /lib/libm.so.6
Reading symbols from /lib/libutil.so.1...done.
Loaded symbols for /lib/libutil.so.1
Reading symbols from /lib/libc.so.6...done.
Loaded symbols for /lib/libc.so.6
Reading symbols from /lib/libdl.so.2...done.
Loaded symbols for /lib/libdl.so.2
Reading symbols from /lib/ld-linux.so.2...done.
Loaded symbols for /lib/ld-linux.so.2
Reading symbols from /lib/libnss_files.so.2...done.
Loaded symbols for /lib/libnss_files.so.2
Reading symbols from /lib/libnss_compat.so.2...done.
Loaded symbols for /lib/libnss_compat.so.2
Reading symbols from /lib/libnsl.so.1...done.
Loaded symbols for /lib/libnsl.so.1
Reading symbols from /usr/X11R6/lib/X11/locale/lib/common/xlcDef.so.2...done.
Loaded symbols for /usr/X11R6/lib/X11/locale/lib/common/xlcDef.so.2
Reading symbols from /usr/X11R6/lib/libXcursor.so.1...done.
Loaded symbols for /usr/X11R6/lib/libXcursor.so.1
Reading symbols from /usr/X11R6/lib/libXrender.so.1...done.
Loaded symbols for /usr/X11R6/lib/libXrender.so.1
Reading symbols from /usr/X11R6/lib/X11/locale/lib/common/xomGeneric.so.2...done.
Loaded symbols for /usr/X11R6/lib/X11/locale/lib/common/xomGeneric.so.2
#0 0x403b4361 in __kill () at __kill:-1
-1 __kill: No such file or directory.
in __kill
(eicq-gdb) bt
#0 0x403b4361 in __kill () at __kill:-1
#1 0x080c78a7 in fatal_error_signal (sig=6) at emacs.c:3543
#2 <signal handler called>
#3 0x403b4361 in __kill () at __kill:-1
#4 0x403b4038 in raise (sig=6) at ../sysdeps/posix/raise.c:27
#5 0x403b588b in abort () at ../sysdeps/generic/abort.c:88
#6 0x080c8a37 in really_abort () at emacs.c:4393
#7 0x080c7978 in assert_failed (file=0x6 <Address 0x6 out of bounds>,
line=-1073758324, expr=0x0) at emacs.c:3729
#8 0x080b305c in Ftest_data_format_conversion () at tests.c:365
#9 0x080ce8b7 in Ffuncall (nargs=1, args=0x0) at eval.c:3842
#10 0x080cdd76 in Feval (form=139786140) at eval.c:3626
#11 0x080cdad7 in Feval (form=139786080) at eval.c:3586
#12 0x080c9477 in For (args=139444000) at eval.c:829
#13 0x080cda44 in Feval (form=139444012) at eval.c:3570
#14 0x080c9977 in Fprogn (args=139444060) at eval.c:953
#15 0x080cda44 in Feval (form=139444072) at eval.c:3570
#16 0x080ce462 in Feval (form=139445784) at eval.c:3684
#17 0x080c9977 in Fprogn (args=139446072) at eval.c:953
#18 0x080cda44 in Feval (form=139446108) at eval.c:3570
#19 0x080cb428 in condition_case_1 (handlers=139443604, bfun=0x80cd4b0 <Feval>,
barg=139446108, hfun=0x80cb540 <run_condition_case_handlers>, harg=140085636) at
eval.c:1917
#20 0x080cb89f in condition_case_3 (bodyform=139446108, var=140085636, handlers=139443604)
at eval.c:1999
#21 0x080cb993 in Fcondition_case (args=139443736) at eval.c:2058
#22 0x080cda44 in Feval (form=139443820) at eval.c:3570
#23 0x080ce462 in Feval (form=139786068) at eval.c:3684
#24 0x080c9977 in Fprogn (args=139771580) at eval.c:953
#25 0x080ca32f in Fwhile (args=139771580) at eval.c:1139
#26 0x080cda44 in Feval (form=139771808) at eval.c:3570
#27 0x080c9977 in Fprogn (args=139771832) at eval.c:953
#28 0x080c9e5f in FletX (args=139779224) at eval.c:1053
#29 0x080cda44 in Feval (form=139771904) at eval.c:3570
#30 0x080c9977 in Fprogn (args=139772000) at eval.c:953
#31 0x080caed0 in internal_catch (tag=-1073758324, func=0x80c9910 <Fprogn>,
arg=139772000, threw=0x0, thrown_tag=0x0) at eval.c:1527
#32 0x080cae24 in Fcatch (args=139772120) at eval.c:1484
#33 0x080cda44 in Feval (form=139772132) at eval.c:3570
#34 0x080cdad7 in Feval (form=139772168) at eval.c:3586
#35 0x080ce462 in Feval (form=139771976) at eval.c:3684
#36 0x080ce462 in Feval (form=139785996) at eval.c:3684
#37 0x080c9659 in Fif (args=139778756) at eval.c:869
#38 0x080cda44 in Feval (form=139778768) at eval.c:3570
#39 0x080ce462 in Feval (form=139785924) at eval.c:3684
#40 0x080c9977 in Fprogn (args=139778528) at eval.c:953
#41 0x080cf767 in funcall_lambda (fun=139778552, nargs=0, args=0xbfffdf18) at eval.c:4193
#42 0x080ceeb1 in Ffuncall (nargs=1, args=0xbfffdf14) at eval.c:3891
#43 0x080cdd76 in Feval (form=139479364) at eval.c:3626
#44 0x080cb428 in condition_case_1 (handlers=139466260, bfun=0x80cd4b0 <Feval>,
barg=139479364, hfun=0x80cb540 <run_condition_case_handlers>, harg=140085636) at
eval.c:1917
#45 0x080cb89f in condition_case_3 (bodyform=139479364, var=140085636, handlers=139466260)
at eval.c:1999
#46 0x080cb993 in Fcondition_case (args=139479316) at eval.c:2058
#47 0x080cda44 in Feval (form=139479268) at eval.c:3570
#48 0x080c9977 in Fprogn (args=138706396) at eval.c:953
#49 0x08189e46 in Fwith_output_to_temp_buffer (args=138714312) at print.c:796
#50 0x080cda44 in Feval (form=138714204) at eval.c:3570
#51 0x080c9977 in Fprogn (args=138713688) at eval.c:953
#52 0x080ca277 in Flet (args=138713904) at eval.c:1122
#53 0x080cda44 in Feval (form=138724524) at eval.c:3570
#54 0x080c9977 in Fprogn (args=138724320) at eval.c:953
#55 0x080cf767 in funcall_lambda (fun=138723972, nargs=2, args=0xbfffe6b4) at eval.c:4193
#56 0x080ce607 in Feval (form=138725516) at eval.c:3711
#57 0x080c9977 in Fprogn (args=138725480) at eval.c:953
#58 0x080ca277 in Flet (args=140119084) at eval.c:1122
#59 0x080cda44 in Feval (form=138728428) at eval.c:3570
#60 0x080c9977 in Fprogn (args=138729048) at eval.c:953
#61 0x080cf767 in funcall_lambda (fun=138725648, nargs=1, args=0xbfffeafc) at eval.c:4193
#62 0x080ceeb1 in Ffuncall (nargs=2, args=0xbfffeaf8) at eval.c:3891
#63 0x080cf3b4 in Fapply (nargs=2, args=0xbfffeaf8) at eval.c:4084
#64 0x080cfd65 in apply1 (fn=138725648, arg=-1073758324) at eval.c:4461
#65 0x0809d28d in Fcall_interactively (function=140154180, record_flag=1078897052,
keys=1078898492) at callint.c:460
#66 0x080ccd89 in Fcommand_execute (cmd=140154180, record_flag=1078897052,
keys=1078898492) at eval.c:3106
#67 0x080ce8e2 in Ffuncall (nargs=3, args=0x3) at eval.c:3842
#68 0x080991a0 in execute_optimized_program (program=0x851bb90
"\r\035Æ\rÇa«\004Ȫ$\rÉk«\004ʪ\034\r¨«\aËÌ\r\"ª\022\r:«\r\r＠¨«\bËÌ\r＠\"ª\002Í!\024)\t«Kt«HÎ\f!\f\032\eÏ\fÐ\"\210\v8\b¬\023Ñ
Ò a«\aÓ pa«\006Ô \210ª\004Õ
\210Ö×!\eØÙË\vA«\004Úª\002Û\nÜ\v!#\"\210Ö\016\036!\210ÝÙ!*\207Ï\fÐ\"\207",
stack_depth=2, constants_data=0x4057e918) at bytecode.c:609
#69 0x080ced9c in Ffuncall (nargs=2, args=0x404eaf3c) at eval.c:3452
#70 0x0809e1df in Fcall_interactively (function=1078863092, record_flag=1078898492,
keys=1078898492) at callint.c:995
#71 0x080ccd89 in Fcommand_execute (cmd=1078863092, record_flag=1078898492,
keys=1078898492) at eval.c:3106
#72 0x080e1ff9 in execute_command_event (command_builder=0x848f4f0, event=139662216) at
event-stream.c:4209
#73 0x080e2921 in Fdispatch_event (event=139662216) at event-stream.c:4513
#74 0x080a4ef6 in Fcommand_loop_1 () at cmdloop.c:569
#75 0x080a4cc2 in command_loop_1 (dummy=1078898492) at cmdloop.c:488
#76 0x080cb428 in condition_case_1 (handlers=1078896404, bfun=0x80a4c84
<command_loop_1>, barg=1078898492, hfun=0x80a48d0 <cmd_error>,
harg=1078898492) at eval.c:1917
#77 0x080a49cf in command_loop_3 () at cmdloop.c:251
#78 0x080a49f3 in command_loop_2 (dummy=1078898492) at cmdloop.c:262
#79 0x080caed0 in internal_catch (tag=-1073758324, func=0x80a49e8 <command_loop_2>,
arg=1078898492, threw=0x0, thrown_tag=0x0) at eval.c:1527
#80 0x080a4ae3 in initial_command_loop (load_me=0) at cmdloop.c:300
#81 0x080c6726 in xemacs_21_5_b12_i586_pc_linux () at emacs.c:2403
#82 0x080c7149 in main (argc=0, argv=0xbfffbf8c, envp=0x6) at emacs.c:2833
#83 0x403a317d in __libc_start_main (main=0x80c70c8 <main>, argc=2,
ubp_av=0xbffff4b4, init=0x8083af4 <_init>, fini=0x8240bf0 <_fini>,
rtld_fini=0x4000a534 <_dl_fini>, stack_end=0xbffff4ac) at
../sysdeps/generic/libc-start.c:129
(eicq-gdb) quit
Inferior GDB finished
================================================================
System Info to help track down your bug:
---------------------------------------
uname -a: Linux eicq 2.4.20 #1 Wed Dec 18 02:14:29 EST 2002 i586 unknown
./configure '--extra-verbose'
'--site-prefixes=/usr/local/pgsql:/usr/local/BerkeleyDB.4.1'
'--dynamic=yes' '--with-gtk=no' '--with-gnome=no'
'--with-toolbars' '--with-wmcommand' '--with-athena=next'
'--with-menubars=lucid' '--with-scrollbars=athena'
'--with-dialogs=athena' '--with-widgets=athena' '--with-gif'
'--with-sound=native,noesd' '--with-site-lisp=no'
'--with-site-modules' '--pdump' '--debug'
'--error-checking=all' '--memory-usage-stats'
'--with-clash-detection'
'--prefix=/home/steve/programming/XEmacs/installed/21.5-non-mule'
XEmacs 21.5-b12 "carrot" configured for `i586-pc-linux'.
Compilation / Installation:
Source code location: /usr/local/src/xemacs
Installation prefix:
/home/steve/programming/XEmacs/installed/21.5-non-mule
Additional prefixes: /usr/local/pgsql /usr/local/BerkeleyDB.4.1
Operating system description file: `s/linux.h'
Machine description file: `m/intel386.h'
Compiler: gcc -Wall -Wno-switch -Winline -Wmissing-prototypes
-Wsign-compare -Wundef -Wstrict-prototypes -Wshadow -Wmissing-declarations -O1 -ggdb3
-Wchar-subscripts -Wunused -march=k6
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11/include
- X Windows libraries location: /usr/X11R6/lib
- Handling WM_COMMAND properly.
Compiling in support for the Athena widget set:
- Athena headers location: X11/neXtaw
- Athena library to link: neXtaw
Using Lucid menubars.
Using Athena scrollbars.
Using Athena dialog boxes.
Using Athena native widgets.
TTY:
Compiling in support for ncurses.
Compiling in support for GPM (General Purpose Mouse).
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.
Compiling in support for X-Face message headers.
Sound:
Compiling in support for sound (native).
Databases:
Compiling in support for Berkeley database.
Compiling in support for PostgreSQL.
- Using PostgreSQL header file: libpq-fe.h
- Using PostgreSQL V7 bindings.
Internationalization:
Mail:
Compiling in support for "dot-locking" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Using the new portable dumper.
Compiling in support for extra debugging code.
WARNING: ---------------------------------------------------------
WARNING: Compiling in support for runtime error checking.
WARNING: XEmacs will run noticeably more slowly as a result.
WARNING: Error checking is on by default for XEmacs beta releases.
WARNING: ---------------------------------------------------------
Load-Path Lisp Shadows:
----------------------
nil
Installed XEmacs Packages:
-------------------------
((xemacs-devel:version 1.52 :type single-file)
(xemacs-base :version 1.75 :type regular)
(x-symbol :version 1.03 :type regular)
(vm :version 7.14 :type regular)
(view-process :version 1.12 :type regular)
(vhdl :version 1.16 :type regular)
(vc :version 1.37 :type regular)
(time :version 1.12 :type regular)
(textools :version 1.14 :type regular)
(text-modes :version 1.6 :type single-file)
(texinfo :version 1.23 :type regular)
(supercite :version 1.19 :type regular)
(strokes :version 1.08 :type regular)
(speedbar :version 1.26 :type regular)
(sounds-wav :version 1.1 :type regular)
(sounds-au :version 1.1 :type regular)
(slider :version 1.13 :type regular)
(sieve :version 1.13 :type regular)
(sh-script :version 1.17 :type regular)
(sgml :version 1.08 :type regular)
(semantic :version 1.17 :type regular)
(sasl :version 1.12 :type regular)
(reftex :version 1.28 :type regular)
(python-modes :version 1.02 :type single-file)
(psgml-dtds :version 1.02 :type regular)
(psgml :version 1.4 :type regular)
(ps-print :version 1.08 :type regular)
(prog-modes
:version
1
.72
:type
single-file)
(pgg :version 1.02 :type regular)
(perl-modes :version 1.04 :type single-file)
(pcomplete :version 1.02 :type regular)
(pcl-cvs :version 1.64 :type regular)
(os-utils :version 1.3 :type single-file)
(net-utils :version 1.31 :type single-file)
(mmm-mode :version 1.0 :type regular)
(misc-games :version 1.16 :type single-file)
(mine :version 1.14 :type regular)
(mail-lib :version 1.57 :type regular)
(liece :version 1.11 :type regular)
(ispell :version 1.24 :type regular)
(ilisp :version 1.31 :type regular)
(igrep :version 1.1 :type regular)
(ibuffer :version 1.08 :type regular)
(hm--html-menus :version 1.2 :type regular)
(gnats :version 1.15 :type regular)
(general-docs :version 1.0 :type regular)
(games :version 1.13 :type regular)
(fsf-compat :version 1.12 :type single-file)
(frame-icon :version 1.09 :type regular)
(footnote :version 1.15 :type regular)
(eterm :version 1.13 :type regular)
(ess :version 1.03 :type regular)
(eshell :version 1.05 :type regular)
(emerge :version 1.09 :type regular)
(elib :version 1.1 :type single-file)
(eieio :version 1.04 :type regular)
(efs :version 1.29 :type regular)
(edit-utils :version 2.0 :type single-file)
(ediff :version 1.46 :type regular)
(edebug :version 1.17 :type regular)
(ecrypto :version 0.12 :type regular)
(ecb :version 1.06 :type regular)
(docbookide :version 0.06 :type regular)
(dired :version 1.13 :type regular)
(dictionary :version 1.11 :type regular)
(debug :version 1.16 :type regular)
(cookie :version 1.14 :type regular)
(cc-mode :version 1.33 :type regular)
(calendar :version 1.19 :type regular)
(calc :version 1.23 :type regular)
(c-support :version 1.16 :type single-file)
(auctex :version 1.35 :type regular)
(apel :version 1.26 :type regular))
Installed Modules:
-----------------
Features:
--------
(func-menu lazy-shot xemacsbug shadow color-theme bbdb-w3 browse-url
bbdb-sc bbdb-gnus bbdb-snarf bbdb-com bbdb-pgp mailcrypt bbdb timezone
gnus-demon nnir patch-keywords supercite-steve supercite regi boxquote
rect nnspool nntp messkeyw earcon gnus-audio executable gnus-score
score-mode gnus-picon gnus-ml gnus-msg gnus-diary gnus-art mm-uu
mm-view nndiary gnus-sum gnus-group gnus-undo gnus-start gnus-spec
gnus-int gnus-range gnus-win nnmail mail-source message mml mml-sec
mml-smime smime dig mml1991 mml2015 pgg-def mm-decode mm-bodies
mm-encode mailcap mail-parse rfc2045 rfc2231 mail-abbrevs sendmail
rfc822 mailheader canlock nnoo gnus gnus-ems gnus-xmas messagexmas
ffap tramp-smb tramp regexp-opt shell comint ring format-spec timer
diff-mode ediff-merg ediff-diff ediff-tbar ediff-wind ediff-help
ediff-util ediff-mult ediff-init ediff vc-hooks balloon-help sb-html
sb-texinfo sb-info info speedbar sb-image dframe assoc filladapt
footnote paren blink-paren pending-del scroll-in-place redo savehist
backup-dir edmacro iswitchb crypt crypt++ recent-files holidays lunar
solar cal-dst cal-persia cal-julian efs-cu diary-lib time appt
calendar cperl-mode font-lock blink-cursor cus-edit cus-load wid-edit
ell working avltree stack-m elib-node ps-bdf ps-mule ps-print lpr from
rfc2047 gnus-util netrc nnheader nnheaderxm mail-utils ietf-drums
time-date qp mm-util mail-prsvr parse-time mail-extr ibuffer
image-mode dired-tar compile time-stamp big-menubar advice
advice-preload x-compose font disp-table cus-face
xemacs-devel-autoloads xemacs-base-autoloads x-symbol-autoloads
vm-autoloads view-process-autoloads vhdl-autoloads vc-autoloads
time-autoloads textools-autoloads text-modes-autoloads
texinfo-autoloads supercite-autoloads strokes-autoloads
speedbar-autoloads sounds-wav-autoloads sounds-au-autoloads
slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads
semantic-autoloads sasl-autoloads reftex-autoloads
python-modes-autoloads psgml-dtds-autoloads psgml-autoloads
ps-print-autoloads prog-modes-autoloads pgg-autoloads
perl-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads
os-utils-autoloads net-utils-autoloads mmm-mode-autoloads
misc-games-autoloads mine-autoloads mail-lib-autoloads liece-autoloads
ispell-autoloads ilisp-autoloads igrep-autoloads ibuffer-autoloads
hm--html-menus-autoloads gnats-autoloads general-docs-autoloads
games-autoloads fsf-compat-autoloads frame-icon-autoloads
footnote-autoloads eterm-autoloads ess-autoloads eshell-autoloads
emerge-autoloads elib-autoloads eieio-autoloads efs-autoloads
edit-utils-autoloads ediff-autoloads edebug-autoloads
ecrypto-autoloads ecb-autoloads docbookide-autoloads dired-autoloads
dictionary-autoloads debug-autoloads cookie-autoloads
cc-mode-autoloads calendar-autoloads calc-autoloads
c-support-autoloads auctex-autoloads apel-autoloads w3-autoloads
url-autoloads tramp-autoloads misc-autoloads mh-e-autoloads
mailcrypt-autoloads gnus-autoloads bbdb-autoloads modules-autoloads
auto-autoloads loadhist rsz-minibuf auto-show fontl-hooks x-iso8859-1
code-cmds gutter-items menubar-items x-menubar mode-motion mouse
behavior itimer auto-save lisp-mode easymenu iso8859-1 page buff-menu
lib-complete cus-file derived newcomment env text-props frame obsolete
cus-start custom widget cl-extra mini-cl cl cl-19 packages backquote
unicode athena-scrollbars cut-buffer lucid-menubars athena-dialogs x
c-balloon-help tty-frames tty toolbar native-sound scrollbar
unix-processes multicast network-streams subprocesses modules
menu-accelerator-support menubar berkeley-db md5 xemacs gutter tiff
png gif jpeg xface xpm xbm lisp-float-type file-coding linux dialog
devices window-system base64)
--
|---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---|
| XEmacs - The only _______ you'll ever need. |
| Fill in the blank, yes, it's THAT good! |
|------------------------------------<youngs(a)xemacs.org>---|