/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include "lint.h"
#include "thr_uberdata.h"
#include "libc.h"

#include <alloca.h>
#include <unistd.h>
#include <thread.h>
#include <pthread.h>
#include <stdio.h>
#include <errno.h>
#include <door.h>
#include <signal.h>
#include <ucred.h>
#include <strings.h>
#include <ucontext.h>
#include <sys/ucred.h>
#include <atomic.h>

static door_server_func_t door_create_server;

/*
 * Global state -- the non-statics are accessed from the __door_return()
 * syscall wrapper.
 */
static mutex_t		door_state_lock = DEFAULTMUTEX;
door_server_func_t	*door_server_func = door_create_server;
pid_t			door_create_pid = 0;
static pid_t		door_create_first_pid = 0;
static pid_t		door_create_unref_pid = 0;

/*
 * The raw system call interfaces
 */
extern int __door_create(void (*)(void *, char *, size_t, door_desc_t *,
    uint_t), void *, uint_t);
extern int __door_return(caddr_t, size_t, door_return_desc_t *, caddr_t,
    size_t);
extern int __door_ucred(ucred_t *);
extern int __door_unref(void);
extern int __door_unbind(void);

/*
 * Key for per-door data for doors created with door_xcreate.
 */
static pthread_key_t privdoor_key = PTHREAD_ONCE_KEY_NP;

/*
 * Each door_xcreate'd door has a struct privdoor_data allocated for it,
 * and each of the initial pool of service threads for the door
 * has TSD for the privdoor_key set to point to this structure.
 * When a thread in door_return decides it is time to perform a
 * thread depletion callback we can retrieve this door information
 * via a TSD lookup on the privdoor key.
 */
struct privdoor_data {
	int pd_dfd;
	door_id_t pd_uniqid;
	volatile uint32_t pd_refcnt;
	door_xcreate_server_func_t *pd_crf;
	void *pd_crcookie;
	door_xcreate_thrsetup_func_t *pd_setupf;
};

static int door_xcreate_n(door_info_t *, struct privdoor_data *, int);

/*
 * door_create_cmn holds the privdoor data before kicking off server
 * thread creation, all of which must succeed; if they don't then
 * they return leaving the refcnt unchanged overall, and door_create_cmn
 * releases its hold after revoking the door and we're done.  Otherwise
 * all n threads created add one each to the refcnt, and door_create_cmn
 * drops its hold.  If and when a server thread exits the key destructor
 * function will be called, and we use that to decrement the reference
 * count.  We also decrement the reference count on door_unbind().
 * If ever we get the reference count to 0 then we will free that data.
 */
static void
privdoor_data_hold(struct privdoor_data *pdd)
{
	atomic_inc_32(&pdd->pd_refcnt);
}

static void
privdoor_data_rele(struct privdoor_data *pdd)
{
	if (atomic_dec_32_nv(&pdd->pd_refcnt) == 0)
		free(pdd);
}

void
privdoor_destructor(void *data)
{
	privdoor_data_rele((struct privdoor_data *)data);
}

/*
 * We park the ourselves in the kernel to serve as the "caller" for
 * unreferenced upcalls for this process.  If the call returns with
 * EINTR (e.g., someone did a forkall), we repeat as long as we're still
 * in the parent.  If the child creates an unref door it will create
 * a new thread.
 */
static void *
door_unref_func(void *arg)
{
	pid_t mypid = (pid_t)(uintptr_t)arg;

	sigset_t fillset;

	/* mask signals before diving into the kernel */
	(void) sigfillset(&fillset);
	(void) thr_sigsetmask(SIG_SETMASK, &fillset, NULL);

	while (getpid() == mypid && __door_unref() && errno == EINTR)
		continue;

	return (NULL);
}

static int
door_create_cmn(door_server_procedure_t *f, void *cookie, uint_t flags,
    door_xcreate_server_func_t *crf, door_xcreate_thrsetup_func_t *setupf,
    void *crcookie, int nthread)
{
	int d;

	int is_private = (flags & DOOR_PRIVATE);
	int is_unref = (flags & (DOOR_UNREF | DOOR_UNREF_MULTI));
	int do_create_first = 0;
	int do_create_unref = 0;

	ulwp_t *self = curthread;

	pid_t mypid;

	if (self->ul_vfork) {
		errno = ENOTSUP;
		return (-1);
	}

	if (crf)
		flags |= DOOR_PRIVCREATE;

	/*
	 * Doors are associated with the processes which created them.  In
	 * the face of forkall(), this gets quite complicated.  To simplify
	 * it somewhat, we include the call to __door_create() in a critical
	 * section, and figure out what additional actions to take while
	 * still in the critical section.
	 */
	enter_critical(self);
	if ((d = __door_create(f, cookie, flags)) < 0) {
		exit_critical(self);
		return (-1);	/* errno is set */
	}
	mypid = getpid();
	if (mypid != door_create_pid ||
	    (!is_private && mypid != door_create_first_pid) ||
	    (is_unref && mypid != door_create_unref_pid)) {

		lmutex_lock(&door_state_lock);
		door_create_pid = mypid;

		if (!is_private && mypid != door_create_first_pid) {
			do_create_first = 1;
			door_create_first_pid = mypid;
		}
		if (is_unref && mypid != door_create_unref_pid) {
			do_create_unref = 1;
			door_create_unref_pid = mypid;
		}
		lmutex_unlock(&door_state_lock);
	}
	exit_critical(self);

	if (do_create_unref) {
		/*
		 * Create an unref thread the first time we create an
		 * unref door for this process.  Create it as a daemon
		 * thread, so that it doesn't interfere with normal exit
		 * processing.
		 */
		(void) thr_create(NULL, 0, door_unref_func,
		    (void *)(uintptr_t)mypid, THR_DAEMON, NULL);
	}

	if (is_private) {
		door_info_t di;

		/*
		 * Create the first thread(s) for this private door.
		 */
		if (__door_info(d, &di) < 0)
			return (-1);	/* errno is set */

		/*
		 * This key must be available for lookup for all private
		 * door threads, whether associated with a door created via
		 * door_create or door_xcreate.
		 */
		(void) pthread_key_create_once_np(&privdoor_key,
		    privdoor_destructor);

		if (crf == NULL) {
			(*door_server_func)(&di);
		} else {
			struct privdoor_data *pdd = malloc(sizeof (*pdd));

			if (pdd == NULL) {
				(void) door_revoke(d);
				errno = ENOMEM;
				return (-1);
			}

			pdd->pd_dfd = d;
			pdd->pd_uniqid = di.di_uniquifier;
			pdd->pd_refcnt = 1; /* prevent free during xcreate_n */
			pdd->pd_crf = crf;
			pdd->pd_crcookie = crcookie;
			pdd->pd_setupf = setupf;

			if (!door_xcreate_n(&di, pdd, nthread)) {
				int errnocp = errno;

				(void) door_revoke(d);
				privdoor_data_rele(pdd);
				errno = errnocp;
				return (-1);
			} else {
				privdoor_data_rele(pdd);
			}
		}
	} else if (do_create_first) {
		/* First non-private door created in the process */
		(*door_server_func)(NULL);
	}

	return (d);
}

int
door_create(door_server_procedure_t *f, void *cookie, uint_t flags)
{
	if (flags & (DOOR_NO_DEPLETION_CB | DOOR_PRIVCREATE)) {
		errno = EINVAL;
		return (-1);
	}

	return (door_create_cmn(f, cookie, flags, NULL, NULL, NULL, 1));
}

int
door_xcreate(door_server_procedure_t *f, void *cookie, uint_t flags,
    door_xcreate_server_func_t *crf, door_xcreate_thrsetup_func_t *setupf,
    void *crcookie, int nthread)
{
	if (flags & DOOR_PRIVCREATE || nthread < 1 || crf == NULL) {
		errno = EINVAL;
		return (-1);
	}

	return (door_create_cmn(f, cookie, flags | DOOR_PRIVATE,
	    crf, setupf, crcookie, nthread));
}

int
door_ucred(ucred_t **uc)
{
	ucred_t *ucp = *uc;

	if (ucp == NULL) {
		ucp = _ucred_alloc();
		if (ucp == NULL)
			return (-1);
	}

	if (__door_ucred(ucp) != 0) {
		if (*uc == NULL)
			ucred_free(ucp);
		return (-1);
	}

	*uc = ucp;

	return (0);
}

int
door_cred(door_cred_t *dc)
{
	/*
	 * Ucred size is small and alloca is fast
	 * and cannot fail.
	 */
	ucred_t *ucp = alloca(ucred_size());
	int ret;

	if ((ret = __door_ucred(ucp)) == 0) {
		dc->dc_euid = ucred_geteuid(ucp);
		dc->dc_ruid = ucred_getruid(ucp);
		dc->dc_egid = ucred_getegid(ucp);
		dc->dc_rgid = ucred_getrgid(ucp);
		dc->dc_pid = ucred_getpid(ucp);
	}
	return (ret);
}

int
door_unbind(void)
{
	struct privdoor_data *pdd;
	int rv = __door_unbind();

	/*
	 * If we were indeed bound to the door then check to see whether
	 * we are part of a door_xcreate'd door by checking for our TSD.
	 * If so, then clear the TSD for this key to avoid destructor
	 * callback on future thread exit, and release the private door data.
	 */
	if (rv == 0 && (pdd = pthread_getspecific(privdoor_key)) != NULL) {
		(void) pthread_setspecific(privdoor_key, NULL);
		privdoor_data_rele(pdd);
	}

	return (rv);
}

int
door_return(char *data_ptr, size_t data_size,
    door_desc_t *desc_ptr, uint_t num_desc)
{
	caddr_t sp;
	size_t ssize;
	size_t reserve;
	ulwp_t *self = curthread;

	{
		stack_t s;
		if (thr_stksegment(&s) != 0) {
			errno = EINVAL;
			return (-1);
		}
		sp = s.ss_sp;
		ssize = s.ss_size;
	}

	if (!self->ul_door_noreserve) {
		/*
		 * When we return from the kernel, we must have enough stack
		 * available to handle the request.  Since the creator of
		 * the thread has control over its stack size, and larger
		 * stacks generally indicate bigger request queues, we
		 * use the heuristic of reserving 1/32nd of the stack size
		 * (up to the default stack size), with a minimum of 1/8th
		 * of MINSTACK.  Currently, this translates to:
		 *
		 *			_ILP32		_LP64
		 *	min resv	 512 bytes	1024 bytes
		 *	max resv	 32k bytes	 64k bytes
		 *
		 * This reservation can be disabled by setting
		 *	_THREAD_DOOR_NORESERVE=1
		 * in the environment, but shouldn't be.
		 */

#define	STACK_FRACTION		32
#define	MINSTACK_FRACTION	8

		if (ssize < (MINSTACK * (STACK_FRACTION/MINSTACK_FRACTION)))
			reserve = MINSTACK / MINSTACK_FRACTION;
		else if (ssize < DEFAULTSTACK)
			reserve = ssize / STACK_FRACTION;
		else
			reserve = DEFAULTSTACK / STACK_FRACTION;

#undef STACK_FRACTION
#undef MINSTACK_FRACTION

		if (ssize > reserve)
			ssize -= reserve;
		else
			ssize = 0;
	}

	/*
	 * Historically, the __door_return() syscall wrapper subtracted
	 * some "slop" from the stack pointer before trapping into the
	 * kernel.  We now do this here, so that ssize can be adjusted
	 * correctly.  Eventually, this should be removed, since it is
	 * unnecessary.  (note that TNF on x86 currently relies upon this
	 * idiocy)
	 */
#if defined(__sparc)
	reserve = SA(MINFRAME);
#elif defined(__x86)
	reserve = SA(512);
#else
#error need to define stack base reserve
#endif

#ifdef _STACK_GROWS_DOWNWARD
	sp -= reserve;
#else
#error stack does not grow downwards, routine needs update
#endif

	if (ssize > reserve)
		ssize -= reserve;
	else
		ssize = 0;

	/*
	 * Normally, the above will leave plenty of space in sp for a
	 * request.  Just in case some bozo overrides thr_stksegment() to
	 * return an uncommonly small stack size, we turn off stack size
	 * checking if there is less than 1k remaining.
	 */
#define	MIN_DOOR_STACK	1024
	if (ssize < MIN_DOOR_STACK)
		ssize = 0;

#undef MIN_DOOR_STACK

	/*
	 * We have to wrap the desc_* arguments for the syscall.  If there are
	 * no descriptors being returned, we can skip the wrapping.
	 */
	if (num_desc != 0) {
		door_return_desc_t d;

		d.desc_ptr = desc_ptr;
		d.desc_num = num_desc;
		return (__door_return(data_ptr, data_size, &d, sp, ssize));
	}
	return (__door_return(data_ptr, data_size, NULL, sp, ssize));
}

/*
 * To start and synchronize a number of door service threads at once
 * we use a struct door_xsync_shared shared by all threads, and
 * a struct door_xsync for each thread.  While each thread
 * has its own startup state, all such state are protected by the same
 * shared lock.  This could cause a little contention but it is a one-off
 * cost at door creation.
 */
enum door_xsync_state {
	DOOR_XSYNC_CREATEWAIT = 0x1c8c8c80,	/* awaits creation handshake */
	DOOR_XSYNC_ABORT,		/* aborting door_xcreate */
	DOOR_XSYNC_ABORTED,		/* thread heeded abort request */
	DOOR_XSYNC_MAXCONCUR,		/* create func decided no more */
	DOOR_XSYNC_CREATEFAIL,		/* thr_create/pthread_create failure */
	DOOR_XSYNC_SETSPEC_FAIL,	/* setspecific failed */
	DOOR_XSYNC_BINDFAIL,		/* door_bind failed */
	DOOR_XSYNC_BOUND,		/* door_bind succeeded */
	DOOR_XSYNC_ENTER_SERVICE	/* Go on to door_return */
};

/* These stats are incremented non-atomically - indicative only */
uint64_t door_xcreate_n_stats[DOOR_XSYNC_ENTER_SERVICE -
    DOOR_XSYNC_CREATEWAIT + 1];

struct door_xsync_shared {
	pthread_mutex_t lock;
	pthread_cond_t cv_m2s;
	pthread_cond_t cv_s2m;
	struct privdoor_data *pdd;
	volatile uint32_t waiting;
};

struct door_xsync {
	volatile enum door_xsync_state state;
	struct door_xsync_shared *sharedp;
};

/*
 * Thread start function that xcreated private doors must use in
 * thr_create or pthread_create.  They must also use the argument we
 * provide.  We:
 *
 *	o call a thread setup function if supplied, or apply sensible defaults
 *	o bind the newly-created thread to the door it will service
 *	o synchronize with door_xcreate to indicate that we have successfully
 *	  bound to the door;  door_xcreate will not return until all
 *	  requested threads have at least bound
 *	o enter service with door_return quoting magic sentinel args
 */
void *
door_xcreate_startf(void *arg)
{
	struct door_xsync *xsp = (struct door_xsync *)arg;
	struct door_xsync_shared *xssp = xsp->sharedp;
	struct privdoor_data *pdd = xssp->pdd;
	enum door_xsync_state next_state;

	privdoor_data_hold(pdd);
	if (pthread_setspecific(privdoor_key, (const void *)pdd) != 0) {
		next_state = DOOR_XSYNC_SETSPEC_FAIL;
		privdoor_data_rele(pdd);
		goto handshake;
	}

	if (pdd->pd_setupf != NULL) {
		(pdd->pd_setupf)(pdd->pd_crcookie);
	} else {
		(void) pthread_setcancelstate(PTHREAD_CANCEL_DISABLE, NULL);
		(void) pthread_setcanceltype(PTHREAD_CANCEL_DEFERRED, NULL);
	}

	if (door_bind(pdd->pd_dfd) == 0)
		next_state = DOOR_XSYNC_BOUND;
	else
		next_state = DOOR_XSYNC_BINDFAIL;

handshake:
	(void) pthread_mutex_lock(&xssp->lock);

	ASSERT(xsp->state == DOOR_XSYNC_CREATEWAIT ||
	    xsp->state == DOOR_XSYNC_ABORT);

	if (xsp->state == DOOR_XSYNC_ABORT)
		next_state = DOOR_XSYNC_ABORTED;

	xsp->state = next_state;

	if (--xssp->waiting == 0)
		(void) pthread_cond_signal(&xssp->cv_s2m);

	if (next_state != DOOR_XSYNC_BOUND) {
		(void) pthread_mutex_unlock(&xssp->lock);
		return (NULL);	/* thread exits, key destructor called */
	}

	while (xsp->state == DOOR_XSYNC_BOUND)
		(void) pthread_cond_wait(&xssp->cv_m2s, &xssp->lock);

	next_state = xsp->state;
	ASSERT(next_state == DOOR_XSYNC_ENTER_SERVICE ||
	    next_state == DOOR_XSYNC_ABORT);

	if (--xssp->waiting == 0)
		(void) pthread_cond_signal(&xssp->cv_s2m);

	(void) pthread_mutex_unlock(&xssp->lock); /* xssp/xsp can be freed */

	if (next_state == DOOR_XSYNC_ABORT)
		return (NULL);	/* thread exits, key destructor called */

	(void) door_return(NULL, 0, NULL, 0);
	return (NULL);
}

static int
door_xcreate_n(door_info_t *dip, struct privdoor_data *pdd, int n)
{
	struct door_xsync_shared *xssp;
	struct door_xsync *xsp;
	int i, failidx = -1;
	int isdepcb = 0;
	int failerrno;
	int bound = 0;
#ifdef _STACK_GROWS_DOWNWARD
	int stkdir = -1;
#else
	int stkdir = 1;
#endif
	int rv = 0;

	/*
	 * If we're called during door creation then we have the
	 * privdoor_data.  If we're called as part of a depletion callback
	 * then the current thread has the privdoor_data as TSD.
	 */
	if (pdd == NULL) {
		isdepcb = 1;
		if ((pdd = pthread_getspecific(privdoor_key)) == NULL)
			thr_panic("door_xcreate_n - no privdoor_data "
			    "on existing server thread");
	}

	/*
	 * Allocate on our stack.  We'll pass pointers to this to the
	 * newly-created threads, therefore this function must not return until
	 * we have synced with server threads that are created.
	 * We do not limit the number of threads so begin by checking
	 * that we have space on the stack for this.
	 */
	{
		size_t sz = sizeof (*xssp) + n * sizeof (*xsp) + 32;
		char dummy;

		if (!stack_inbounds(&dummy + stkdir * sz)) {
			errno = E2BIG;
			return (0);
		}
	}

	if ((xssp = alloca(sizeof (*xssp))) == NULL ||
	    (xsp = alloca(n * sizeof (*xsp))) == NULL) {
		errno = E2BIG;
		return (0);
	}

	(void) pthread_mutex_init(&xssp->lock, NULL);
	(void) pthread_cond_init(&xssp->cv_m2s, NULL);
	(void) pthread_cond_init(&xssp->cv_s2m, NULL);
	xssp->pdd = pdd;
	xssp->waiting = 0;

	(void) pthread_mutex_lock(&xssp->lock);

	for (i = 0; failidx == -1 && i < n; i++) {
		xsp[i].sharedp = xssp;
		membar_producer();	/* xssp and xsp[i] for new thread */

		switch ((pdd->pd_crf)(dip, door_xcreate_startf,
		    (void *)&xsp[i], pdd->pd_crcookie)) {
		case 1:
			/*
			 * Thread successfully created.  Set mailbox
			 * state and increment the number we have to
			 * sync with.
			 */
			xsp[i].state = DOOR_XSYNC_CREATEWAIT;
			xssp->waiting++;
			break;
		case 0:
			/*
			 * Elected to create no further threads.  OK for
			 * a depletion callback, but not during door_xcreate.
			 */
			xsp[i].state = DOOR_XSYNC_MAXCONCUR;
			if (!isdepcb) {
				failidx = i;
				failerrno = EINVAL;
			}
			break;
		case -1:
			/*
			 * Thread creation was attempted but failed.
			 */
			xsp[i].state = DOOR_XSYNC_CREATEFAIL;
			failidx = i;
			failerrno = EPIPE;
			break;
		default:
			/*
			 * The application-supplied function did not return
			 * -1/0/1 - best we can do is panic because anything
			 * else is harder to debug.
			 */
			thr_panic("door server create function illegal return");
			/*NOTREACHED*/
		}
	}

	/*
	 * On initial creation all must succeed; if not then abort
	 */
	if (!isdepcb && failidx != -1) {
		for (i = 0; i < failidx; i++)
			if (xsp[i].state == DOOR_XSYNC_CREATEWAIT)
				xsp[i].state = DOOR_XSYNC_ABORT;
	}

	/*
	 * Wait for thread startup handshake to complete for all threads
	 */
	while (xssp->waiting)
		(void) pthread_cond_wait(&xssp->cv_s2m, &xssp->lock);

	/*
	 * If we are aborting for a failed thread create in door_xcreate
	 * then we're done.
	 */
	if (!isdepcb && failidx != -1) {
		rv = 0;
		goto out;	/* lock held, failerrno is set */
	}

	/*
	 * Did we all succeed in binding?
	 */
	for (i = 0; i < n; i++) {
		int statidx = xsp[i].state - DOOR_XSYNC_CREATEWAIT;

		door_xcreate_n_stats[statidx]++;
		if (xsp[i].state == DOOR_XSYNC_BOUND)
			bound++;
	}

	if (bound == n) {
		rv = 1;
	} else {
		failerrno = EBADF;
		rv = 0;
	}

	/*
	 * During door_xcreate all must succeed in binding - if not then
	 * we command even those that did bind to abort.  Threads that
	 * did not get as far as binding have already exited.
	 */
	for (i = 0; i < n; i++) {
		if (xsp[i].state == DOOR_XSYNC_BOUND) {
			xsp[i].state = (rv == 1 || isdepcb) ?
			    DOOR_XSYNC_ENTER_SERVICE : DOOR_XSYNC_ABORT;
			xssp->waiting++;
		}
	}

	(void) pthread_cond_broadcast(&xssp->cv_m2s);

	while (xssp->waiting)
		(void) pthread_cond_wait(&xssp->cv_s2m, &xssp->lock);

out:
	(void) pthread_mutex_unlock(&xssp->lock);
	(void) pthread_mutex_destroy(&xssp->lock);
	(void) pthread_cond_destroy(&xssp->cv_m2s);
	(void) pthread_cond_destroy(&xssp->cv_s2m);

	if (rv == 0)
		errno = failerrno;

	return (rv);
}

/*
 * Call the server creation function to give it the opportunity to
 * create more threads.  Called during a door invocation when we
 * return from door_return(NULL,0, NULL, 0) and notice that we're
 * running on the last available thread.
 */
void
door_depletion_cb(door_info_t *dip)
{
	if (dip == NULL) {
		/*
		 * Non-private doors always use door_server_func.
		 */
		(*door_server_func)(NULL);
		return;
	}

	if (dip->di_attributes & DOOR_NO_DEPLETION_CB) {
		/*
		 * Private, door_xcreate'd door specified no callbacks.
		 */
		return;
	} else if (!(dip->di_attributes & DOOR_PRIVCREATE)) {
		/*
		 * Private door with standard/legacy creation semantics.
		 */
		dip->di_attributes |= DOOR_DEPLETION_CB;
		(*door_server_func)(dip);
		return;
	} else {
		/*
		 * Private, door_xcreate'd door.
		 */
		dip->di_attributes |= DOOR_DEPLETION_CB;
		(void) door_xcreate_n(dip, NULL, 1);
	}
}

/*
 * Install a new server creation function.  The appointed function
 * will receieve depletion callbacks for non-private doors and private
 * doors created with door_create(..., DOOR_PRIVATE).
 */
door_server_func_t *
door_server_create(door_server_func_t *create_func)
{
	door_server_func_t *prev;

	lmutex_lock(&door_state_lock);
	prev = door_server_func;
	door_server_func = create_func;
	lmutex_unlock(&door_state_lock);

	return (prev);
}

/*
 * Thread start function for door_create_server() below.
 * Create door server threads with cancellation(7) disabled.
 */
static void *
door_create_func(void *arg)
{
	(void) pthread_setcancelstate(PTHREAD_CANCEL_DISABLE, NULL);
	(void) door_return(NULL, 0, NULL, 0);

	return (arg);
}

/*
 * The default door_server_func_t.
 */
static void
door_create_server(door_info_t *dip __unused)
{
	(void) thr_create(NULL, 0, door_create_func, NULL, THR_DETACHED, NULL);
	yield();	/* Gives server thread a chance to run */
}