From 186cbb2957d4ffc4269fe788bf8650ee3b629d27 Mon Sep 17 00:00:00 2001 From: "hp.com!davidm" Date: Wed, 15 Sep 2004 11:37:04 +0000 Subject: [PATCH] (verbose): New variable. (num_errors): Likewise. (do_backtrace): Only print info if verbose is set. (foo): Likewise. (sighandler): Likewise. (main): Likewise. (bar): New function which is attempting to trigger a bug reported by Anthony Brewer which is caused by GAS apparently generating bad offsets for the psprel directive. (f): New function. 2004/09/15 04:24:29-07:00 hp.com!davidm Rename: tests/bt.c -> tests/Gtest-bt.c (Logical change 1.270) --- tests/Gtest-bt.c | 248 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 248 insertions(+) diff --git a/tests/Gtest-bt.c b/tests/Gtest-bt.c index e69de29b..0980efeb 100644 --- a/tests/Gtest-bt.c +++ b/tests/Gtest-bt.c @@ -0,0 +1,248 @@ +/* libunwind - a platform-independent unwind library + Copyright (C) 2001-2004 Hewlett-Packard Co + Contributed by David Mosberger-Tang + +Permission is hereby granted, free of charge, to any person obtaining +a copy of this software and associated documentation files (the +"Software"), to deal in the Software without restriction, including +without limitation the rights to use, copy, modify, merge, publish, +distribute, sublicense, and/or sell copies of the Software, and to +permit persons to whom the Software is furnished to do so, subject to +the following conditions: + +The above copyright notice and this permission notice shall be +included in all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */ + +#ifdef HAVE_CONFIG_H +# include "config.h" +#endif + +#include +#if HAVE_EXECINFO_H +# include +#else + extern int backtrace (void **, int); +#endif +#include +#include +#include +#include +#include +#include + +#if UNW_TARGET_X86 +# define STACK_SIZE (128*1024) /* On x86, SIGSTKSZ is too small */ +#else +# define STACK_SIZE SIGSTKSZ +#endif + +#define panic(args...) \ + { fprintf (stderr, args); exit (-1); } + +#ifndef HAVE_SIGHANDLER_T +typedef RETSIGTYPE (*sighandler_t) (int); +#endif + +int verbose; +int num_errors; + +static void +do_backtrace (void) +{ + char buf[512], name[256]; + unw_word_t ip, sp, off; + unw_cursor_t cursor; + unw_proc_info_t pi; + unw_context_t uc; + int ret; + + unw_getcontext (&uc); + if (unw_init_local (&cursor, &uc) < 0) + panic ("unw_init_local failed!\n"); + + do + { + unw_get_reg (&cursor, UNW_REG_IP, &ip); + unw_get_reg (&cursor, UNW_REG_SP, &sp); + buf[0] = '\0'; + if (unw_get_proc_name (&cursor, name, sizeof (name), &off) == 0) + { + if (off) + snprintf (buf, sizeof (buf), "<%s+0x%lx>", name, (long) off); + else + snprintf (buf, sizeof (buf), "<%s>", name); + } + if (verbose) + { + printf ("%016lx %-32s (sp=%016lx)\n", (long) ip, buf, (long) sp); + + unw_get_proc_info (&cursor, &pi); + printf ("\tproc=%lx-%lx\n\thandler=%lx lsda=%lx gp=%lx", + (long) pi.start_ip, (long) pi.end_ip, + (long) pi.handler, (long) pi.lsda, (long) pi.gp); + +#if UNW_TARGET_IA64 + { + unw_word_t bsp; + + unw_get_reg (&cursor, UNW_IA64_BSP, &bsp); + printf (" bsp=%lx", bsp); + } +#endif + printf ("\n"); + } + + ret = unw_step (&cursor); + if (ret < 0) + { + unw_get_reg (&cursor, UNW_REG_IP, &ip); + printf ("FAILURE: unw_step() returned %d for ip=%lx\n", + ret, (long) ip); + ++num_errors; + } + } + while (ret > 0); +} + +void +foo (long val) +{ + void *buffer[20]; + int i, n; + + if (verbose) + printf ("\texplicit backtrace:\n"); + do_backtrace (); + + if (verbose) + printf ("\n\tvia backtrace():\n"); + n = backtrace (buffer, 20); + if (verbose) + for (i = 0; i < n; ++i) + printf ("[%d] ip=%p\n", i, buffer[i]); +} + +void +bar (long v) +{ + extern long f (long); + int arr[v]; + + /* This is a vain attempt to use up lots of registers to force + the frame-chain info to be saved on the memory stack on ia64. + It happens to work with gcc v3.3.4 and gcc v3.4.1 but perhaps + not with any other compiler. */ + foo (f (arr[0]) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + (f (v) + f (v)) + )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + ))))))))))))))))))))))))))))))))))))))))))))))))))))))); +} + +void +sighandler (int signal, void *siginfo, void *context) +{ + ucontext_t *uc = context; + int sp; + + if (verbose) + { + printf ("sighandler: got signal %d, sp=%p", signal, &sp); +#if UNW_TARGET_IA64 +# if defined(__linux__) + printf (" @ %lx", uc->uc_mcontext.sc_ip); +# else + { + uint16_t reason; + uint64_t ip; + + __uc_get_reason (uc, &reason); + __uc_get_ip (uc, &ip); + printf (" @ %lx (reason=%d)", ip, reason); + } +# endif +#elif UNW_TARGET_X86 + printf (" @ %lx", (unsigned long) uc->uc_mcontext.gregs[REG_EIP]); +#endif + printf ("\n"); + } + do_backtrace(); +} + +int +main (int argc, char **argv) +{ + struct sigaction act; + stack_t stk; + + verbose = (argc > 1); + + if (verbose) + printf ("Normal backtrace:\n"); + + bar (1); + + memset (&act, 0, sizeof (act)); + act.sa_handler = (void (*)(int)) sighandler; + act.sa_flags = SA_SIGINFO; + if (sigaction (SIGTERM, &act, NULL) < 0) + panic ("sigaction: %s\n", strerror (errno)); + + if (verbose) + printf ("\nBacktrace across signal handler:\n"); + kill (getpid (), SIGTERM); + + if (verbose) + printf ("\nBacktrace across signal handler on alternate stack:\n"); + stk.ss_sp = malloc (STACK_SIZE); + if (!stk.ss_sp) + panic ("failed to allocate SIGSTKSZ (%u) bytes\n", SIGSTKSZ); + stk.ss_size = STACK_SIZE; + stk.ss_flags = 0; + if (sigaltstack (&stk, NULL) < 0) + panic ("sigaltstack: %s\n", strerror (errno)); + + memset (&act, 0, sizeof (act)); + act.sa_handler = (void (*)(int)) sighandler; + act.sa_flags = SA_ONSTACK | SA_SIGINFO; + if (sigaction (SIGTERM, &act, NULL) < 0) + panic ("sigaction: %s\n", strerror (errno)); + kill (getpid (), SIGTERM); + + if (num_errors > 0) + { + fprintf (stderr, "FAILURE: detected %d errors\n", num_errors); + exit (-1); + } + if (verbose) + printf ("SUCCESS.\n"); + return 0; +} + +long +f (long val) +{ + return val; +}