void traceqc()
#endif
{
void U_STACK_TRACE(); /* somewhere in Fortran RTL */
U_STACK_TRACE();
return;
}
/*************************************************************************
* StackTrace
*/
void StackTrace(char *gdb_command_file)
{
#if defined(PLATFORM_UNIX)
/*
* In general dbx seems to do a better job than gdb.
*
* Different dbx implementations require different flags/commands.
*/
# if defined(PLATFORM_AIX)
if (DumpStack("dbx -a %d 2>/dev/null <<EOF\n"
"where\n"
"detach\n"
"EOF\n",
(int)getpid()))
return;
if (DumpStack("gdb -q %s %d 2>/dev/null <<EOF\n"
"set prompt\n"
"where\n"
"detach\n"
"quit\n"
"EOF\n",
global_progname, (int)getpid()))
return;
# elif defined(PLATFORM_FREEBSD)
/*
* FreeBSD insists on sending a SIGSTOP to the process we
* attach to, so we let the debugger send a SIGCONT to that
* process after we have detached.
*/
if (DumpStack("gdb -q %s %d 2>/dev/null <<EOF\n"
"set prompt\n"
"where\n"
"detach\n"
"shell kill -CONT %d\n"
"quit\n"
"EOF\n",
global_progname, (int)getpid(), (int)getpid()))
return;
# elif defined(PLATFORM_HPUX)
/*
* HP decided to call their debugger xdb.
*
* This does not seem to work properly yet. The debugger says
* "Note: Stack traces may not be possible until you are
* stopped in user code." on HP-UX 09.01
*
* -L = line-oriented interface.
* "T [depth]" gives a stacktrace with local variables.
* The final "y" is confirmation to the quit command.
*/
if (DumpStack("xdb -P %d -L %s 2>&1 <<EOF\n"
"T 50\n"
"q\ny\n"
"EOF\n",
(int)getpid(), global_progname))
return;
if (DumpStack("gdb -q %s %d 2>/dev/null <<EOF\n"
"set prompt\n"
"where\n"
"detach\n"
"quit\n"
"EOF\n",
global_progname, (int)getpid()))
return;
# if defined(PLATFORM_HPUX) && defined(USE_BUILTIN)
U_STACK_TRACE();
return;
# endif
# elif defined(PLATFORM_IRIX)
/*
* "set $page=0" drops hold mode
* "dump ." displays the contents of the variables
*/
if (DumpStack("dbx -p %d 2>/dev/null <<EOF\n"
"set \\$page=0\n"
"where\n"
# if !defined(__GNUC__)
/* gcc does not generate this information */
"dump .\n"
# endif
"detach\n"
"EOF\n",
(int)getpid()))
return;
# if defined(USE_BUILTIN)
if (trace_back_stack_and_print())
return;
# endif
if (DumpStack("gdb -q %s %d 2>/dev/null <<EOF\n"
"set prompt\n"
"echo --- Stacktrace\\n\n"
"where\n"
"echo --- Symbols\\n\n"
"frame 5\n" /* Skip signal handler frames */
"set \\$x = 50\n"
"while (\\$x)\n" /* Print local variables for each frame */
"info locals\n"
"up\n"
"set \\$x--\n"
"end\n"
"echo ---\\n\n"
"detach\n"
"quit\n"
"EOF\n",
global_progname, (int)getpid()))
return;
# elif defined(PLATFORM_OSF)
if (DumpStack("dbx -pid %d %s 2>/dev/null <<EOF\n"
"where\n"
"detach\n"
"quit\n"
"EOF\n",
(int)getpid(), global_progname))
return;
if (DumpStack("gdb -q %s %d 2>/dev/null <<EOF\n"
"set prompt\n"
"where\n"
"detach\n"
"quit\n"
"EOF\n",
global_progname, (int)getpid()))
return;
# elif defined(PLATFORM_SCO)
/*
* SCO OpenServer dbx is like a catch-22. The 'detach' command
* depends on whether ptrace(S) support detaching or not. If it
* is supported then 'detach' must be used, otherwise the process
* will be killed upon dbx exit. If it isn't supported then 'detach'
* will cause the process to be killed. We do not want it to be
* killed.
*
* Out of two evils, the omission of 'detach' was chosen because
* it worked on our system.
*/
if (DumpStack("dbx %s %d 2>/dev/null <<EOF\n"
"where\n"
"quit\nEOF\n",
global_progname, (int)getpid()))
return;
if (DumpStack("gdb -q %s %d 2>/dev/null <<EOF\n"
"set prompt\n"
"where\n"
"detach\n"
"quit\n"
"EOF\n",
global_progname, (int)getpid()))
return;
# elif defined(PLATFORM_SOLARIS)
if (DumpStack("dbx %s %d 2>/dev/null <<EOF\n"
"where\n"
"detach\n"
"EOF\n",
global_progname, (int)getpid()))
return;
if (DumpStack("gdb -q %s %d 2>/dev/null <<EOF\n"
"set prompt\n"
"echo --- Stacktrace\\n\n"
"where\n"
"echo --- Symbols\\n\n"
"frame 5\n" /* Skip signal handler frames */
"set \\$x = 50\n"
"while (\\$x)\n" /* Print local variables for each frame */
"info locals\n"
"up\n"
"set \\$x--\n"
"end\n"
"echo ---\\n\n"
"detach\n"
"quit\n"
"EOF\n",
global_progname, (int)getpid()))
return;
if (DumpStack("/usr/proc/bin/pstack %d",
(int)getpid()))
return;
/*
* Other Unices (AIX, HPUX, SCO) also have adb, but
* they seem unable to attach to a running process.
*/
if (DumpStack("adb %s 2>&1 <<EOF\n"
"0t%d:A\n" /* Attach to pid */
"\\$c\n" /* print stacktrace */
":R\n" /* Detach */
"\\$q\n" /* Quit */
"EOF\n",
global_progname, (int)getpid()))
return;
# else /* All other Unix platforms */
/*
* TODO: SCO/UnixWare 7 must be something like (not tested)
* debug -i c <pid> <<EOF\nstack -f 4\nquit\nEOF\n
*/
# if !defined(__GNUC__)
if (DumpStack("dbx %s %d 2>/dev/null <<EOF\n"
"where\n"
"detach\n"
"EOF\n",
global_progname, (int)getpid()))
return;
# endif
// This version works (piping from a file)
if (DumpStack("gdb -q %s %d 2>/dev/null <%s >fweelin-stackdump",
global_progname, (int)getpid(), gdb_command_file))
return;
#if 0
// This version does not work (piping from stdin)
if (DumpStack("gdb -q %s %d 2>/dev/null <<EOF\n"
"set prompt\n"
"echo --- Stacktrace\\n\n"
"where\n"
"echo --- Symbols\\n\n"
"frame 4\n"
"set \\$x = 50\n"
"while (\\$x)\n" /* Print local variables for each frame */
"info locals\n"
"up\n"
"set \\$x--\n"
"end\n"
"echo ---\\n\n"
"detach\n"
"quit\n"
"EOF\n",
global_progname, (int)getpid()))
return;
#endif
# endif
# if defined(__GNUC__) && defined(USE_BUILTIN)
GCC_DumpStack();
# endif
write(global_output,
"No debugger found\n", strlen("No debugger found\n"));
#elif defined(PLATFORM_WIN32)
/* Use StackWalk() */
#endif
}
