1bb535300SJeff Roberson /* 2bb535300SJeff Roberson * Copyright (c) 1995 John Birrell <jb@cimlogic.com.au>. 3bb535300SJeff Roberson * All rights reserved. 4bb535300SJeff Roberson * 5bb535300SJeff Roberson * Redistribution and use in source and binary forms, with or without 6bb535300SJeff Roberson * modification, are permitted provided that the following conditions 7bb535300SJeff Roberson * are met: 8bb535300SJeff Roberson * 1. Redistributions of source code must retain the above copyright 9bb535300SJeff Roberson * notice, this list of conditions and the following disclaimer. 10bb535300SJeff Roberson * 2. Redistributions in binary form must reproduce the above copyright 11bb535300SJeff Roberson * notice, this list of conditions and the following disclaimer in the 12bb535300SJeff Roberson * documentation and/or other materials provided with the distribution. 13bb535300SJeff Roberson * 3. All advertising materials mentioning features or use of this software 14bb535300SJeff Roberson * must display the following acknowledgement: 15bb535300SJeff Roberson * This product includes software developed by John Birrell. 16bb535300SJeff Roberson * 4. Neither the name of the author nor the names of any co-contributors 17bb535300SJeff Roberson * may be used to endorse or promote products derived from this software 18bb535300SJeff Roberson * without specific prior written permission. 19bb535300SJeff Roberson * 20bb535300SJeff Roberson * THIS SOFTWARE IS PROVIDED BY JOHN BIRRELL AND CONTRIBUTORS ``AS IS'' AND 21bb535300SJeff Roberson * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 22bb535300SJeff Roberson * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 23bb535300SJeff Roberson * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 24bb535300SJeff Roberson * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 25bb535300SJeff Roberson * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 26bb535300SJeff Roberson * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 27bb535300SJeff Roberson * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 28bb535300SJeff Roberson * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 29bb535300SJeff Roberson * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 30bb535300SJeff Roberson * SUCH DAMAGE. 31bb535300SJeff Roberson * 32bb535300SJeff Roberson * $FreeBSD$ 33bb535300SJeff Roberson */ 34bb535300SJeff Roberson #include <signal.h> 35bb535300SJeff Roberson #include <errno.h> 36bb535300SJeff Roberson #include <stdlib.h> 37bb535300SJeff Roberson #include <pthread.h> 38bb535300SJeff Roberson #include "thr_private.h" 39bb535300SJeff Roberson 40bb535300SJeff Roberson __weak_reference(_pthread_cleanup_push, pthread_cleanup_push); 41bb535300SJeff Roberson __weak_reference(_pthread_cleanup_pop, pthread_cleanup_pop); 42bb535300SJeff Roberson 43bb535300SJeff Roberson void 44bb535300SJeff Roberson _pthread_cleanup_push(void (*routine) (void *), void *routine_arg) 45bb535300SJeff Roberson { 46bb535300SJeff Roberson struct pthread *curthread = _get_curthread(); 47bb535300SJeff Roberson struct pthread_cleanup *new; 48bb535300SJeff Roberson 49bb535300SJeff Roberson if ((new = (struct pthread_cleanup *) malloc(sizeof(struct pthread_cleanup))) != NULL) { 50bb535300SJeff Roberson new->routine = routine; 51bb535300SJeff Roberson new->routine_arg = routine_arg; 52bb535300SJeff Roberson new->next = curthread->cleanup; 53bb535300SJeff Roberson 54bb535300SJeff Roberson curthread->cleanup = new; 55bb535300SJeff Roberson } 56bb535300SJeff Roberson } 57bb535300SJeff Roberson 58bb535300SJeff Roberson void 59bb535300SJeff Roberson _pthread_cleanup_pop(int execute) 60bb535300SJeff Roberson { 61bb535300SJeff Roberson struct pthread *curthread = _get_curthread(); 62bb535300SJeff Roberson struct pthread_cleanup *old; 63bb535300SJeff Roberson 64bb535300SJeff Roberson if ((old = curthread->cleanup) != NULL) { 65bb535300SJeff Roberson curthread->cleanup = old->next; 66bb535300SJeff Roberson if (execute) { 67bb535300SJeff Roberson old->routine(old->routine_arg); 68bb535300SJeff Roberson } 69bb535300SJeff Roberson free(old); 70bb535300SJeff Roberson } 71bb535300SJeff Roberson } 72bb535300SJeff Roberson 73