contrib/gcc-3.4/gcc/unwind-sjlj.c

   1 /* SJLJ exception handling and frame unwind runtime interface routines.
   2    Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003
   3    Free Software Foundation, Inc.
   4
   5    This file is part of GCC.
   6
   7    GCC is free software; you can redistribute it and/or modify it
   8    under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2, or (at your option)
  10    any later version.
  11
  12    In addition to the permissions in the GNU General Public License, the
  13    Free Software Foundation gives you unlimited permission to link the
  14    compiled version of this file into combinations with other programs,
  15    and to distribute those combinations without any restriction coming
  16    from the use of this file.  (The General Public License restrictions
  17    do apply in other respects; for example, they cover modification of
  18    the file, and distribution when not linked into a combined
  19    executable.)
  20
  21    GCC is distributed in the hope that it will be useful, but WITHOUT
  22    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  23    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
  24    License for more details.
  25
  26    You should have received a copy of the GNU General Public License
  27    along with GCC; see the file COPYING.  If not, write to the Free
  28    Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  29    02111-1307, USA.  */
  30
  31 #include "tconfig.h"
  32 #include "tsystem.h"
  33 #include "coretypes.h"
  34 #include "tm.h"
  35 #include "unwind.h"
  36 #include "gthr.h"
  37
  38 #ifdef __USING_SJLJ_EXCEPTIONS__
  39
  40 #ifdef DONT_USE_BUILTIN_SETJMP
  41 #ifndef inhibit_libc
  42 #include <setjmp.h>
  43 #else
  44 typedef void *jmp_buf[JMP_BUF_SIZE];
  45 extern void longjmp(jmp_buf, int) __attribute__((noreturn));
  46 #endif
  47 #else
  48 #define setjmp __builtin_setjmp
  49 #define longjmp __builtin_longjmp
  50 #endif
  51
  52 /* This structure is allocated on the stack of the target function.
  53    This must match the definition created in except.c:init_eh.  */
  54 struct SjLj_Function_Context
  55 {
  56   /* This is the chain through all registered contexts.  It is
  57      filled in by _Unwind_SjLj_Register.  */
  58   struct SjLj_Function_Context *prev;
  59
  60   /* This is assigned in by the target function before every call
  61      to the index of the call site in the lsda.  It is assigned by
  62      the personality routine to the landing pad index.  */
  63   int call_site;
  64
  65   /* This is how data is returned from the personality routine to
  66      the target function's handler.  */
  67   _Unwind_Word data[4];
  68
  69   /* These are filled in once by the target function before any
  70      exceptions are expected to be handled.  */
  71   _Unwind_Personality_Fn personality;
  72   void *lsda;
  73
  74 #ifdef DONT_USE_BUILTIN_SETJMP
  75   /* We don't know what sort of alignment requirements the system
  76      jmp_buf has.  We over estimated in except.c, and now we have
  77      to match that here just in case the system *didn't* have more
  78      restrictive requirements.  */
  79   jmp_buf jbuf __attribute__((aligned));
  80 #else
  81   void *jbuf[];
  82 #endif
  83 };
  84
  85 struct _Unwind_Context
  86 {
  87   struct SjLj_Function_Context *fc;
  88 };
  89
  90 typedef struct
  91 {
  92   _Unwind_Personality_Fn personality;
  93 } _Unwind_FrameState;
  94
  95 \f
  96 /* Manage the chain of registered function contexts.  */
  97
  98 /* Single threaded fallback chain.  */
  99 static struct SjLj_Function_Context *fc_static;
 100
 101 #if __GTHREADS
 102 static __gthread_key_t fc_key;
 103 static int use_fc_key = -1;
 104
 105 static void
 106 fc_key_init (void)
 107 {
 108   use_fc_key = __gthread_key_create (&fc_key, 0) == 0;
 109 }
 110
 111 static void
 112 fc_key_init_once (void)
 113 {
 114   static __gthread_once_t once = __GTHREAD_ONCE_INIT;
 115   if (__gthread_once (&once, fc_key_init) != 0 || use_fc_key < 0)
 116     use_fc_key = 0;
 117 }
 118 #endif
 119
 120 void
 121 _Unwind_SjLj_Register (struct SjLj_Function_Context *fc)
 122 {
 123 #if __GTHREADS
 124   if (use_fc_key < 0)
 125     fc_key_init_once ();
 126
 127   if (use_fc_key)
 128     {
 129       fc->prev = __gthread_getspecific (fc_key);
 130       __gthread_setspecific (fc_key, fc);
 131     }
 132   else
 133 #endif
 134     {
 135       fc->prev = fc_static;
 136       fc_static = fc;
 137     }
 138 }
 139
 140 static inline struct SjLj_Function_Context *
 141 _Unwind_SjLj_GetContext (void)
 142 {
 143 #if __GTHREADS
 144   if (use_fc_key < 0)
 145     fc_key_init_once ();
 146
 147   if (use_fc_key)
 148     return __gthread_getspecific (fc_key);
 149 #endif
 150   return fc_static;
 151 }
 152
 153 static inline void
 154 _Unwind_SjLj_SetContext (struct SjLj_Function_Context *fc)
 155 {
 156 #if __GTHREADS
 157   if (use_fc_key < 0)
 158     fc_key_init_once ();
 159
 160   if (use_fc_key)
 161     __gthread_setspecific (fc_key, fc);
 162   else
 163 #endif
 164     fc_static = fc;
 165 }
 166
 167 void
 168 _Unwind_SjLj_Unregister (struct SjLj_Function_Context *fc)
 169 {
 170   _Unwind_SjLj_SetContext (fc->prev);
 171 }
 172
 173 \f
 174 /* Get/set the return data value at INDEX in CONTEXT.  */
 175
 176 _Unwind_Word
 177 _Unwind_GetGR (struct _Unwind_Context *context, int index)
 178 {
 179   return context->fc->data[index];
 180 }
 181
 182 /* Get the value of the CFA as saved in CONTEXT.  */
 183
 184 _Unwind_Word
 185 _Unwind_GetCFA (struct _Unwind_Context *context __attribute__((unused)))
 186 {
 187   /* ??? Ideally __builtin_setjmp places the CFA in the jmpbuf.  */
 188   return (_Unwind_Word) 0;
 189 }
 190
 191 void
 192 _Unwind_SetGR (struct _Unwind_Context *context, int index, _Unwind_Word val)
 193 {
 194   context->fc->data[index] = val;
 195 }
 196
 197 /* Get the call-site index as saved in CONTEXT.  */
 198
 199 _Unwind_Ptr
 200 _Unwind_GetIP (struct _Unwind_Context *context)
 201 {
 202   return context->fc->call_site + 1;
 203 }
 204
 205 /* Set the return landing pad index in CONTEXT.  */
 206
 207 void
 208 _Unwind_SetIP (struct _Unwind_Context *context, _Unwind_Ptr val)
 209 {
 210   context->fc->call_site = val - 1;
 211 }
 212
 213 void *
 214 _Unwind_GetLanguageSpecificData (struct _Unwind_Context *context)
 215 {
 216   return context->fc->lsda;
 217 }
 218
 219 _Unwind_Ptr
 220 _Unwind_GetRegionStart (struct _Unwind_Context *context __attribute__((unused)) )
 221 {
 222   return 0;
 223 }
 224
 225 void *
 226 _Unwind_FindEnclosingFunction (void *pc __attribute__((unused)))
 227 {
 228   return NULL;
 229 }
 230
 231 #ifndef __ia64__
 232 _Unwind_Ptr
 233 _Unwind_GetDataRelBase (struct _Unwind_Context *context __attribute__((unused)) )
 234 {
 235   return 0;
 236 }
 237
 238 _Unwind_Ptr
 239 _Unwind_GetTextRelBase (struct _Unwind_Context *context __attribute__((unused)) )
 240 {
 241   return 0;
 242 }
 243 #endif
 244 \f
 245 static inline _Unwind_Reason_Code
 246 uw_frame_state_for (struct _Unwind_Context *context, _Unwind_FrameState *fs)
 247 {
 248   if (context->fc == NULL)
 249     {
 250       fs->personality = NULL;
 251       return _URC_END_OF_STACK;
 252     }
 253   else
 254     {
 255       fs->personality = context->fc->personality;
 256       return _URC_NO_REASON;
 257     }
 258 }
 259
 260 static inline void
 261 uw_update_context (struct _Unwind_Context *context,
 262                    _Unwind_FrameState *fs __attribute__((unused)) )
 263 {
 264   context->fc = context->fc->prev;
 265 }
 266
 267 static inline void
 268 uw_init_context (struct _Unwind_Context *context)
 269 {
 270   context->fc = _Unwind_SjLj_GetContext ();
 271 }
 272
 273 /* ??? There appear to be bugs in integrate.c wrt __builtin_longjmp and
 274    virtual-stack-vars.  An inline version of this segfaults on SPARC.  */
 275 #define uw_install_context(CURRENT, TARGET)             \
 276   do                                                    \
 277     {                                                   \
 278       _Unwind_SjLj_SetContext ((TARGET)->fc);           \
 279       longjmp ((TARGET)->fc->jbuf, 1);                  \
 280     }                                                   \
 281   while (0)
 282
 283
 284 static inline _Unwind_Ptr
 285 uw_identify_context (struct _Unwind_Context *context)
 286 {
 287   return (_Unwind_Ptr) context->fc;
 288 }
 289
 290
 291 /* Play games with unwind symbols so that we can have call frame
 292    and sjlj symbols in the same shared library.  Not that you can
 293    use them simultaneously...  */
 294 #define _Unwind_RaiseException          _Unwind_SjLj_RaiseException
 295 #define _Unwind_ForcedUnwind            _Unwind_SjLj_ForcedUnwind
 296 #define _Unwind_Resume                  _Unwind_SjLj_Resume
 297 #define _Unwind_Resume_or_Rethrow       _Unwind_SjLj_Resume_or_Rethrow
 298
 299 #include "unwind.inc"
 300
 301 #endif /* USING_SJLJ_EXCEPTIONS */