From xemacs-m  Wed Jul  2 04:10:28 1997
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id EAA20388
	for <xemacs-beta@xemacs.org>; Wed, 2 Jul 1997 04:10:28 -0500 (CDT)
Received: from engine.ecf.teradyne.com (engine.ecf.teradyne.com [131.101.192.6]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id FAA24997 for <xemacs-beta@xemacs.org>; Wed, 2 Jul 1997 05:14:32 -0400 (EDT)
Received: from midnight.eng.ecf.teradyne.com (midnight.ecf.teradyne.com [131.101.192.49]) by engine.ecf.teradyne.com (8.7.1/8.7.1) with SMTP id LAA01376; Wed, 2 Jul 1997 11:09:52 +0200 (MET DST)
Received: by midnight.eng.ecf.teradyne.com (SMI-8.6/SMI-SVR4)
	id LAA16936; Wed, 2 Jul 1997 11:09:50 +0200
To: xemacs-beta@xemacs.org
Subject: Re: core: xemacs-20.3-b8 -nw -q -no-site-file -l view-lossage.el
References: <rxsg1u1zt01.fsf@ecf.teradyne.com> <rxsn2o89v6d.fsf@midnight.ecf.teradyne.com> <m2205i2e5z.fsf@altair.xemacs.org>
X-Face: 4[iHdXiTu\V3u[~\I)<f9HC);%~nG8`oUqv#uzvs6=\V{AjN6Sn
 c/qi;YLwRmEbt8Y*=j5n(urqY@chPh@J'D"QlqD!C8>*}#kYF[-tYl3VZga/HSOP|K,{L
 Rtu@f0y/=O&Cu}\:~d|P$JON?pn?j,&CnPb1z#/TL9bkAJwyol&a:SvYj-VYbM=Dtxhk9
 =w|R6U3_;SH&B<Mfy6Q%#
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Jul__2_11:09:49_1997-1"
Content-Transfer-Encoding: 7bit
From: Adrian Aichner <aichner@ecf.teradyne.com>
Date: 02 Jul 1997 11:09:49 +0200
In-Reply-To: Steven L Baur's message of "01 Jul 1997 22:53:12 -0700"
Message-ID: <rxswwn9yg4i.fsf@midnight.ecf.teradyne.com>
Lines: 177
X-Mailer: Gnus v5.4.60/XEmacs 20.3(beta10) - "Athens"

--Multipart_Wed_Jul__2_11:09:49_1997-1
Content-Type: text/plain; charset=US-ASCII

>>>>> "sb" == Steven L Baur <steve@xemacs.org> writes:
    sb> Adrian Aichner <aichner@ecf.teradyne.com> writes:

    >> Core Analysis generated by
    >> /u/aichner/sh/core_info.sh
    >> on Mon Jun 30 13:37:33 MET DST 1997.

    sb>  ...
    >> program terminated by signal ABRT (Abort)
    >> dbx: warning: undefined type number (90,63) at /usr/local/xemacs-20.3-b10/src/xemacs:emacs.c stab #603 s:p(90,63),
    >> assuming type `int {assumed}'
    >> dbx: warning: undefined type number (90,68) at /usr/local/xemacs-20.3-b10/src/xemacs:emacs.c stab #610 v:p(90,68),
    >> assuming type `int {assumed}'
    >> dbx: warning: undefined type number (90,68) at /usr/local/xemacs-20.3-b10/src/xemacs:emacs.c stab #617 v:p(90,68),
    >> assuming type `int {assumed}'
    >> dbx: warning: undefined type number (90,63) at /usr/local/xemacs-20.3-b10/src/xemacs:emacs.c stab #622 Lisp_Symbol:T(90,69)=s20next:(90,70)=*(90,69),0,32;name:(90,63),32,32;value:(120,1),64,32;function:(120,1),96,32;plist:(120,1),128,32;;,

    sb> Um, is this typical output of Sun debuggers, or a bug in your script?

My script just invokes dbx and provides some additional information.
In my case its the dbx delivered with Sun Visual WorkShop C++ 2.1.
I'll install version 3.0 soon now.

Here it is in its full gorey:


--Multipart_Wed_Jul__2_11:09:49_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="core_info.sh"
Content-Transfer-Encoding: 7bit

#! /bin/sh
#
# Extract a stack traceback for a given core file.
#
# Usage:	core_info.sh [file]
#			-c core dump of c program"
#			-C core dump of C++ program"
#
#		Extracts a stack traceback from the specified file,
#		(./core by default).
#		If file was dumped on a different hardware architecture,
#		this command will fail.
#
# Fri, Jul. 16 1993
# Tue, Nov. 05 1991
# Adrian Aichner, Teradyne Gmbh. Munich, 1991.
#

prog=`basename $0`

usage ()
{
	echo ""
	echo "Usage:	core_info.sh -[cC] [objfile] [corefile]"
	echo "			-c core dump of c program"
	echo "			-C core dump of C++ program"
	echo
	echo "Extracts a stack traceback from the specified file,"
	echo "(./core by default)."
	echo "If file was dumped on a different hardware architecture,"
	echo "this command will fail."
}

#
# Perform Command Line Option Processing.
# The script accepts the following options:
#
# -c	core dump of c program
# -C	core dump of C++ program
#
while getopts cCh var
do
	case $var in
	c)	dbx_path=/usr/ucb/dbx;;
	C)	dbx_path=dbx;;
	h|\?)	usage
		exit 1;
	esac
done
shift `expr $OPTIND - 1`

dbx_path=${dbx_path:-'/usr/ucb/dbx'}
core_file=${2:-'core'}
obj_file=${1:-`file $core_file | sed -n "s/.*'\([^'][^']*\).*/\1/p"`}

# echo "core_file = $core_file obj_file = $obj_file"

if test ! -f $core_file
then
	echo "File '`pwd`/$core_file' does not exist."
	usage
	exit 1
fi

if test -z "$obj_file"
then
	echo "'file `pwd`/$core_file' does not find"
	echo "the program which dumped core."
	usage
	exit 1
fi

obj_path=`which $obj_file`

if test "`echo $obj_path | wc -w`" -gt 1
then
	echo
	echo "$obj_file cannot be found:"
	echo
	echo "$obj_path"
	usage
	exit 1
fi

if test ! -x "$obj_path"
then
	echo "$obj_path"
	echo
	echo "Object file does not exist or cannot be executed."
	usage
	exit 1
fi

fmt -s -55 <<doc

-------------------------------------------------------
Core Analysis generated by
`which $0`
on `date`.

Core File: $core_file
Current Working Directory: `pwd`
Program: $obj_path
Host: `hostname`
Architecture: `arch -k`

Equivalent dbx command sequence:

($dbx_path ${obj_path} $core_file) 2>&1 <<here
where
dump
quit
here
-------------------------------------------------------

doc

($dbx_path ${obj_path} $core_file) 2>&1 <<here
where
dump
quit
here

if test $? -ne 0
then
	echo
	echo "Try using the -c or -C option of $prog"
	usage
	exit 1
fi


--Multipart_Wed_Jul__2_11:09:49_1997-1
Content-Type: text/plain; charset=US-ASCII


    sb> -- 
    sb> steve@calag.com baur
    sb> Unsolicited commercial e-mail will be billed at $250/message.



--Multipart_Wed_Jul__2_11:09:49_1997-1--

