nptl/pt-longjmp.c

   1 /* Copyright (C) 2002 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3    Contributed by Ulrich Drepper <drepper@redhat.com>, 2002.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, write to the Free
  17    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  18    02111-1307 USA.  */
  19
  20 #include <setjmp.h>
  21 #include <stdlib.h>
  22 #include "pthreadP.h"
  23
  24
  25 void
  26 __pthread_cleanup_upto (__jmp_buf target, char *targetframe)
  27 {
  28   struct pthread *self = THREAD_SELF;
  29   struct _pthread_cleanup_buffer *cbuf;
  30
  31   for (cbuf = THREAD_GETMEM (self, cleanup);
  32        cbuf != NULL && _JMPBUF_UNWINDS (target, cbuf);
  33        cbuf = cbuf->__prev)
  34     {
  35 #if _STACK_GROWS_DOWN
  36       if ((char *) cbuf <= targetframe)
  37         {
  38           cbuf = NULL;
  39           break;
  40         }
  41 #elif _STACK_GROWS_UP
  42       if ((char *) cbuf >= targetframe)
  43         {
  44           cbuf = NULL;
  45           break;
  46         }
  47 #else
  48 # error "Define either _STACK_GROWS_DOWN or _STACK_GROWS_UP"
  49 #endif
  50
  51       /* Call the cleanup code.  */
  52       cbuf->__routine (cbuf->__arg);
  53     }
  54
  55   THREAD_SETMEM (self, cleanup, cbuf);
  56 }
  57
  58
  59
  60 void
  61 longjmp (jmp_buf env, int val)
  62 {
  63   __libc_longjmp (env, val);
  64 }
  65 weak_alias (longjmp, siglongjmp)