| /* Linuxthreads - a simple clone()-based implementation of Posix */ |
| /* threads for Linux. */ |
| /* Copyright (C) 1998 Xavier Leroy (Xavier.Leroy@inria.fr) */ |
| /* */ |
| /* This program is free software; you can redistribute it and/or */ |
| /* modify it under the terms of the GNU Library General Public License */ |
| /* as published by the Free Software Foundation; either version 2 */ |
| /* of the License, or (at your option) any later version. */ |
| /* */ |
| /* This program is distributed in the hope that it will be useful, */ |
| /* but WITHOUT ANY WARRANTY; without even the implied warranty of */ |
| /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ |
| /* GNU Library General Public License for more details. */ |
| |
| /* Redefine siglongjmp and longjmp so that they interact correctly |
| with cleanup handlers */ |
| |
| #include <setjmp.h> |
| #include "pthread.h" |
| #include "internals.h" |
| |
| /* These functions are not declared anywhere since they shouldn't be |
| used at another place but here. */ |
| extern void __libc_siglongjmp (sigjmp_buf env, int val) |
| __attribute__ ((noreturn)); |
| extern void __libc_longjmp (jmp_buf env, int val) |
| __attribute__ ((noreturn)); |
| |
| |
| static void pthread_cleanup_upto(jmp_buf target) |
| { |
| pthread_descr self = thread_self(); |
| struct _pthread_cleanup_buffer * c; |
| char *currentframe = CURRENT_STACK_FRAME; |
| |
| for (c = THREAD_GETMEM(self, p_cleanup); |
| c != NULL && _JMPBUF_UNWINDS(target, c); |
| c = c->__prev) |
| { |
| #if _STACK_GROWS_DOWN |
| if ((char *) c <= currentframe) |
| { |
| c = NULL; |
| break; |
| } |
| #elif _STACK_GROWS_UP |
| if ((char *) c >= currentframe) |
| { |
| c = NULL; |
| break; |
| } |
| #else |
| # error "Define either _STACK_GROWS_DOWN or _STACK_GROWS_UP" |
| #endif |
| c->__routine(c->__arg); |
| } |
| THREAD_SETMEM(self, p_cleanup, c); |
| if (THREAD_GETMEM(self, p_in_sighandler) |
| && _JMPBUF_UNWINDS(target, THREAD_GETMEM(self, p_in_sighandler))) |
| THREAD_SETMEM(self, p_in_sighandler, NULL); |
| } |
| |
| void siglongjmp(sigjmp_buf env, int val) |
| { |
| pthread_cleanup_upto(env.__buf); |
| __libc_siglongjmp(env, val); |
| } |
| |
| void longjmp(jmp_buf env, int val) |
| { |
| pthread_cleanup_upto(env); |
| __libc_longjmp(env, val); |
| } |