thr_seterrno.c revision 13546
113546Sjulian/*
213546Sjulian * Copyright (c) 1995 John Birrell <jb@cimlogic.com.au>.
313546Sjulian * All rights reserved.
413546Sjulian *
513546Sjulian * Redistribution and use in source and binary forms, with or without
613546Sjulian * modification, are permitted provided that the following conditions
713546Sjulian * are met:
813546Sjulian * 1. Redistributions of source code must retain the above copyright
913546Sjulian *    notice, this list of conditions and the following disclaimer.
1013546Sjulian * 2. Redistributions in binary form must reproduce the above copyright
1113546Sjulian *    notice, this list of conditions and the following disclaimer in the
1213546Sjulian *    documentation and/or other materials provided with the distribution.
1313546Sjulian * 3. All advertising materials mentioning features or use of this software
1413546Sjulian *    must display the following acknowledgement:
1513546Sjulian *	This product includes software developed by John Birrell.
1613546Sjulian * 4. Neither the name of the author nor the names of any co-contributors
1713546Sjulian *    may be used to endorse or promote products derived from this software
1813546Sjulian *    without specific prior written permission.
1913546Sjulian *
2013546Sjulian * THIS SOFTWARE IS PROVIDED BY JOHN BIRRELL AND CONTRIBUTORS ``AS IS'' AND
2113546Sjulian * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
2213546Sjulian * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
2313546Sjulian * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
2413546Sjulian * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
2513546Sjulian * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
2613546Sjulian * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
2713546Sjulian * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
2813546Sjulian * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
2913546Sjulian * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
3013546Sjulian * SUCH DAMAGE.
3113546Sjulian *
3213546Sjulian */
3313546Sjulian#ifdef _THREAD_SAFE
3413546Sjulian#include <pthread.h>
3513546Sjulian#include "pthread_private.h"
3613546Sjulian
3713546Sjulian/*
3813546Sjulian * This function needs to reference the global error variable which is
3913546Sjulian * normally hidden from the user.
4013546Sjulian */
4113546Sjulian#ifdef errno
4213546Sjulian#undef errno;
4313546Sjulian#endif
4413546Sjulianextern int      errno;
4513546Sjulian
4613546Sjulianvoid
4713546Sjulian_thread_seterrno(pthread_t thread, int error)
4813546Sjulian{
4913546Sjulian	/* Check for the initial thread: */
5013546Sjulian	if (thread == _thread_initial) {
5113546Sjulian		/* The initial thread always uses the global error variable: */
5213546Sjulian		errno = error;
5313546Sjulian	} else {
5413546Sjulian		/*
5513546Sjulian		 * Threads other than the initial thread always use the error
5613546Sjulian		 * field in the thread structureL
5713546Sjulian		 */
5813546Sjulian		thread->error = error;
5913546Sjulian	}
6013546Sjulian}
6113546Sjulian#endif
62