sysdeps/ia64/backtrace.c

   1 /* Return backtrace of current program state.
   2    Copyright (C) 2003-2005, 2007, 2009, 2011 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4    Contributed by Jakub Jelinek <jakub@redhat.com>, 2003.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The GNU C Library is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the GNU C Library; if not, write to the Free
  18    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  19    02111-1307 USA.  */
  20
  21 #include <bits/libc-lock.h>
  22 #include <dlfcn.h>
  23 #include <execinfo.h>
  24 #include <stdlib.h>
  25 #include <unwind.h>
  26
  27 struct trace_arg
  28 {
  29   void **array;
  30   _Unwind_Word cfa;
  31   int cnt;
  32   int size;
  33 };
  34
  35 #ifdef SHARED
  36 static _Unwind_Reason_Code (*unwind_backtrace) (_Unwind_Trace_Fn, void *);
  37 static _Unwind_Ptr (*unwind_getip) (struct _Unwind_Context *);
  38 static _Unwind_Word (*unwind_getcfa) (struct _Unwind_Context *);
  39 static void *libgcc_handle;
  40
  41
  42 /* Dummy version in case libgcc_s does not contain the real code.  */
  43 static _Unwind_Word
  44 dummy_getcfa (struct _Unwind_Context *ctx __attribute__ ((unused)))
  45 {
  46   return 0;
  47 }
  48
  49
  50 static void
  51 init (void)
  52 {
  53   libgcc_handle = __libc_dlopen ("libgcc_s.so.1");
  54
  55   if (libgcc_handle == NULL)
  56     return;
  57
  58   unwind_backtrace = __libc_dlsym (libgcc_handle, "_Unwind_Backtrace");
  59   unwind_getip = __libc_dlsym (libgcc_handle, "_Unwind_GetIP");
  60   if (unwind_getip == NULL)
  61     unwind_backtrace = NULL;
  62   unwind_getcfa = (__libc_dlsym (libgcc_handle, "_Unwind_GetCFA")
  63                    ?: dummy_getcfa);
  64 }
  65 #else
  66 # define unwind_backtrace _Unwind_Backtrace
  67 # define unwind_getip _Unwind_GetIP
  68 # define unwind_getcfa _Unwind_GetCFA
  69 #endif
  70
  71 static _Unwind_Reason_Code
  72 backtrace_helper (struct _Unwind_Context *ctx, void *a)
  73 {
  74   struct trace_arg *arg = a;
  75
  76   /* We are first called with address in the __backtrace function.
  77      Skip it.  */
  78   if (arg->cnt != -1)
  79     {
  80       arg->array[arg->cnt] = (void *) unwind_getip (ctx);
  81
  82       /* Check whether we make any progress.  */
  83       _Unwind_Word cfa = unwind_getcfa (ctx);
  84
  85       if (arg->cnt > 0 && arg->array[arg->cnt - 1] == arg->array[arg->cnt]
  86           && cfa == arg->cfa)
  87         return _URC_END_OF_STACK;
  88       arg->cfa = cfa;
  89     }
  90   if (++arg->cnt == arg->size)
  91     return _URC_END_OF_STACK;
  92   return _URC_NO_REASON;
  93 }
  94
  95 int
  96 __backtrace (array, size)
  97      void **array;
  98      int size;
  99 {
 100   struct trace_arg arg = { .array = array, .cfa = 0, .size = size, .cnt = -1 };
 101 #ifdef SHARED
 102   __libc_once_define (static, once);
 103
 104   __libc_once (once, init);
 105   if (unwind_backtrace == NULL)
 106     return 0;
 107 #endif
 108
 109   if (size >= 1)
 110     unwind_backtrace (backtrace_helper, &arg);
 111
 112   /* _Unwind_Backtrace on IA-64 seems to put NULL address above
 113      _start.  Fix it up here.  */
 114   if (arg.cnt > 1 && arg.array[arg.cnt - 1] == NULL)
 115     --arg.cnt;
 116   return arg.cnt != -1 ? arg.cnt : 0;
 117 }
 118 weak_alias (__backtrace, backtrace)
 119 libc_hidden_def (__backtrace)
 120
 121
 122 #ifdef SHARED
 123 /* Free all resources if necessary.  */
 124 libc_freeres_fn (free_mem)
 125 {
 126   unwind_backtrace = NULL;
 127   if (libgcc_handle != NULL)
 128     {
 129       __libc_dlclose (libgcc_handle);
 130       libgcc_handle = NULL;
 131     }
 132 }
 133 #endif