/* * Copyright (c) 1999 Apple Computer, Inc. All rights reserved. * * @APPLE_LICENSE_HEADER_START@ * * The contents of this file constitute Original Code as defined in and * are subject to the Apple Public Source License Version 1.1 (the * "License"). You may not use this file except in compliance with the * License. Please obtain a copy of the License at * http://www.apple.com/publicsource and read it before using this file. * * This Original Code and all software distributed under the License are * distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the * License for the specific language governing rights and limitations * under the License. * * @APPLE_LICENSE_HEADER_END@ */ /* * Mach Operating System * Copyright (c) 1989 Carnegie-Mellon University * All rights reserved. The CMU software License Agreement specifies * the terms and conditions for use and redistribution. */ /* * HISTORY * 22-July-93 Blaine Garst * fixed kernel cache set up of cproc info * * 05-April-90 Morris Meyer (mmeyer) at NeXT * Fixed bug in cproc_fork_child() where the first cproc would * try doing a msg_rpc() with an invalid reply port. * */ /* * cprocs.c - by Eric Cooper * * Implementation of cprocs (lightweight processes) * and primitive synchronization operations. */ #include <stdlib.h> #include "pthread_internals.h" #include "cthreads.h" #include "cthread_internals.h" #include <mach/message.h> /* * C Threads imports: */ extern void stack_init(); extern void alloc_stack(), _dealloc_stack(); /* * Mach imports: */ extern mach_port_t mach_thread_self(); extern boolean_t swtch_pri(); private int cprocs_started = FALSE; #ifdef CTHREADS_DEBUG private void print_cproc(p) cproc_t p; { char *s; switch (p->state) { case CPROC_RUNNING: s = ""; break; case CPROC_SPINNING: s = "+"; break; case CPROC_BLOCKED: s = "*"; break; default: ASSERT(SHOULDNT_HAPPEN); } printf(" %x(%s)%s", p->id, cthread_name(p->incarnation), s); } private void print_cproc_queue(name, queue) const char * name; cthread_queue_t queue; { printf("[%s] %s:", cthread_name(cthread_self()), name); cthread_queue_map(queue, cproc_t, print_cproc); printf("\n"); } #endif CTHREADS_DEBUG private int cproc_lock = 0; /* unlocked */ private cproc_t cprocs = NO_CPROC; /* linked list of cprocs */ #ifdef CTHREADS_DEBUG private void print_all_cprocs() { cproc_t p; printf("[%s] cprocs:", cthread_name(cthread_self())); for (p = cprocs; p != NO_CPROC; p = p->link) print_cproc(p); printf("\n"); } #endif CTHREADS_DEBUG /* * Routines for supporting fork() of multi-threaded programs. */ void _cproc_fork_child() /* * Called in the child after a fork(). Resets cproc data structures to * coincide with the reality that we now have a single cproc and cthread. */ { pthread_t pself; pself = pthread_self(); pself->reply_port = MACH_PORT_NULL; } /* * Support for a per-thread UNIX errno. */ #undef errno extern int errno; void cthread_set_errno_self(error) int error; { pthread_t t; t = pthread_self(); if (t && (t->sig == _PTHREAD_SIG)) { t->err_no = error; } errno = error; }