[apple/xnu.git] / osfmk / i386 / bsd_i386.c

/*
 * Copyright (c) 2000-2002 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@
 */
#ifdef	MACH_BSD
#include <cpus.h>
#include <mach_rt.h>
#include <mach_debug.h>
#include <mach_ldebug.h>

#include <mach/kern_return.h>
#include <mach/thread_status.h>
#include <mach/vm_param.h>

#include <kern/counters.h>
#include <kern/cpu_data.h>
#include <kern/mach_param.h>
#include <kern/task.h>
#include <kern/thread.h>
#include <kern/thread_swap.h>
#include <kern/sched_prim.h>
#include <kern/misc_protos.h>
#include <kern/assert.h>
#include <kern/spl.h>
#include <ipc/ipc_port.h>
#include <vm/vm_kern.h>
#include <vm/pmap.h>

#include <i386/thread.h>
#include <i386/eflags.h>
#include <i386/proc_reg.h>
#include <i386/seg.h>
#include <i386/tss.h>
#include <i386/user_ldt.h>
#include <i386/fpu.h>
#include <i386/iopb_entries.h>
#include <i386/machdep_call.h>

#include <sys/syscall.h>
#include <sys/ktrace.h>
struct proc;

kern_return_t
thread_userstack(
    thread_t,
    int,
    thread_state_t,
    unsigned int,
    vm_offset_t *,
	int *
);

kern_return_t
thread_entrypoint(
    thread_t,
    int,
    thread_state_t,
    unsigned int,
    vm_offset_t *
); 

struct i386_saved_state *
get_user_regs(
        thread_act_t);

void
act_thread_dup(
    thread_act_t,
    thread_act_t
);

unsigned int get_msr_exportmask(void);

unsigned int get_msr_nbits(void);

unsigned int get_msr_rbits(void);

/*
 * thread_userstack:
 *
 * Return the user stack pointer from the machine
 * dependent thread state info.
 */
kern_return_t
thread_userstack(
    thread_t            thread,
    int                 flavor,
    thread_state_t      tstate,
    unsigned int        count,
    vm_offset_t         *user_stack,
	int					*customstack
)
{
        struct i386_saved_state *state;
	i386_thread_state_t *state25;
	vm_offset_t	uesp;

        if (customstack)
			*customstack = 0;

        switch (flavor) {
	case i386_THREAD_STATE:	/* FIXME */
                state25 = (i386_thread_state_t *) tstate;
		if (state25->esp)
			*user_stack = state25->esp;
		if (customstack && state25->esp)
			*customstack = 1;
		else
			*customstack = 0;
		break;

        case i386_NEW_THREAD_STATE:
                if (count < i386_NEW_THREAD_STATE_COUNT)
                        return (KERN_INVALID_ARGUMENT);
		else {
                	state = (struct i386_saved_state *) tstate;
			uesp = state->uesp;
    		}

                /* If a valid user stack is specified, use it. */
		if (uesp)
			*user_stack = uesp;
		if (customstack && uesp)
			*customstack = 1;
		else
			*customstack = 0;
                break;
        default :
                return (KERN_INVALID_ARGUMENT);
        }
                
        return (KERN_SUCCESS);
}    

kern_return_t
thread_entrypoint(
    thread_t            thread,
    int                 flavor,
    thread_state_t      tstate,
    unsigned int        count,
    vm_offset_t         *entry_point
)
{ 
    struct i386_saved_state	*state;
    i386_thread_state_t *state25;

    /*
     * Set a default.
     */
    if (*entry_point == 0)
	*entry_point = VM_MIN_ADDRESS;
		
    switch (flavor) {
    case i386_THREAD_STATE:
	state25 = (i386_thread_state_t *) tstate;
	*entry_point = state25->eip ? state25->eip: VM_MIN_ADDRESS;
	break;

    case i386_NEW_THREAD_STATE:
	if (count < i386_THREAD_STATE_COUNT)
	    return (KERN_INVALID_ARGUMENT);
	else {
		state = (struct i386_saved_state *) tstate;

		/*
	 	* If a valid entry point is specified, use it.
	 	*/
		*entry_point = state->eip ? state->eip: VM_MIN_ADDRESS;
	}
	break;
    }

    return (KERN_SUCCESS);
}   

struct i386_saved_state *
get_user_regs(thread_act_t th)
{
	if (th->mact.pcb)
		return(USER_REGS(th));
	else {
		printf("[get_user_regs: thread does not have pcb]");
		return NULL;
	}
}

/*
 * Duplicate parent state in child
 * for U**X fork.
 */
void
act_thread_dup(
    thread_act_t		parent,
    thread_act_t		child
)
{
	struct i386_saved_state	*parent_state, *child_state;
	struct i386_machine_state	*ims;
	struct i386_float_state		floatregs;

#ifdef	XXX
	/* Save the FPU state */
	if ((pcb_t)(per_proc_info[cpu_number()].fpu_pcb) == parent->mact.pcb) {
		fp_state_save(parent);
	}
#endif

	if (child->mact.pcb == NULL 
	|| parent->mact.pcb == NULL)  {
		panic("[thread_dup, child (%x) or parent (%x) is NULL!]",
			child->mact.pcb, parent->mact.pcb);
		return;
	}

	/* Copy over the i386_saved_state registers */
	child->mact.pcb->iss = parent->mact.pcb->iss;

	/* Check to see if parent is using floating point
	 * and if so, copy the registers to the child
	 * FIXME - make sure this works.
	 */

	if (parent->mact.pcb->ims.ifps)  {
		if (fpu_get_state(parent, &floatregs) == KERN_SUCCESS)
			fpu_set_state(child, &floatregs);
	}
	
	/* FIXME - should a user specified LDT, TSS and V86 info
	 * be duplicated as well?? - probably not.
	 */
}

/* 
 * FIXME - thread_set_child
 */

void thread_set_child(thread_act_t child, int pid);
void
thread_set_child(thread_act_t child, int pid)
{
	child->mact.pcb->iss.eax = pid;
	child->mact.pcb->iss.edx = 1;
	child->mact.pcb->iss.efl &= ~EFL_CF;
}
void thread_set_parent(thread_act_t parent, int pid);
void
thread_set_parent(thread_act_t parent, int pid)
{
	parent->mact.pcb->iss.eax = pid;
	parent->mact.pcb->iss.edx = 0;
	parent->mact.pcb->iss.efl &= ~EFL_CF;
}


/*
 * Move pages from one kernel virtual address to another.
 * Both addresses are assumed to reside in the Sysmap,
 * and size must be a multiple of the page size.
 */
void
pagemove(
	register caddr_t from,
	register caddr_t to,
	int size)
{
	pmap_movepage((unsigned long)from, (unsigned long)to, (vm_size_t)size);
}

/*
 * System Call handling code
 */

#define	ERESTART	-1		/* restart syscall */
#define	EJUSTRETURN	-2		/* don't modify regs, just return */

struct sysent {		/* system call table */
	unsigned short		sy_narg;		/* number of args */
	char			sy_parallel;	/* can execute in parallel */
        char			sy_funnel;	/* funnel type */
	unsigned long		(*sy_call)(void *, void *, int *);	/* implementing function */
};

#define NO_FUNNEL 0
#define KERNEL_FUNNEL 1
#define NETWORK_FUNNEL 2

extern funnel_t * kernel_flock;
extern funnel_t * network_flock;

extern struct sysent sysent[];

int set_bsduthreadargs (thread_act_t, struct i386_saved_state *, void *);

void * get_bsduthreadarg(thread_act_t);

void unix_syscall(struct i386_saved_state *);

void
unix_syscall_return(int error)
{
    thread_act_t		thread;
	volatile int *rval;
	struct i386_saved_state *regs;
	struct proc *p;
	struct proc *current_proc();
	unsigned short code;
	vm_offset_t params;
	struct sysent *callp;
	extern int nsysent;

    thread = current_act();
    rval = (int *)get_bsduthreadrval(thread);
	p = current_proc();

	regs = USER_REGS(thread);

	/* reconstruct code for tracing before blasting eax */
	code = regs->eax;
	params = (vm_offset_t) ((caddr_t)regs->uesp + sizeof (int));
	callp = (code >= nsysent) ? &sysent[63] : &sysent[code];
	if (callp == sysent) {
	  code = fuword(params);
	}

	if (error == ERESTART) {
		regs->eip -= 7;
	}
	else if (error != EJUSTRETURN) {
		if (error) {
		    regs->eax = error;
		    regs->efl |= EFL_CF;	/* carry bit */
		} else { /* (not error) */
		    regs->eax = rval[0];
		    regs->edx = rval[1];
		    regs->efl &= ~EFL_CF;
		} 
	}

	ktrsysret(p, code, error, rval[0], callp->sy_funnel);

	KERNEL_DEBUG_CONSTANT(BSDDBG_CODE(DBG_BSD_EXCP_SC, code) | DBG_FUNC_END,
		error, rval[0], rval[1], 0, 0);

	if (callp->sy_funnel != NO_FUNNEL) {
    		assert(thread_funnel_get() == THR_FUNNEL_NULL);
    		(void) thread_funnel_set(current_thread()->funnel_lock, FALSE);
	}

    thread_exception_return();
    /* NOTREACHED */
}


void
unix_syscall(struct i386_saved_state *regs)
{
    thread_act_t		thread;
    void	*vt; 
    unsigned short	code;
    struct sysent		*callp;
	int	nargs, error;
	volatile int *rval;
	int funnel_type;
    vm_offset_t		params;
    extern int nsysent;
	struct proc *p;
	struct proc *current_proc();

    thread = current_act();
    p = current_proc();
    rval = (int *)get_bsduthreadrval(thread);

    //printf("[scall : eax %x]",  regs->eax);
    code = regs->eax;
    params = (vm_offset_t) ((caddr_t)regs->uesp + sizeof (int));
    callp = (code >= nsysent) ? &sysent[63] : &sysent[code];
    if (callp == sysent) {
	code = fuword(params);
	params += sizeof (int);
	callp = (code >= nsysent) ? &sysent[63] : &sysent[code];
    }
    
    vt = get_bsduthreadarg(thread);

    if ((nargs = (callp->sy_narg * sizeof (int))) &&
	    (error = copyin((char *) params, (char *)vt , nargs)) != 0) {
	regs->eax = error;
	regs->efl |= EFL_CF;
	thread_exception_return();
	/* NOTREACHED */
    }
    
    rval[0] = 0;
    rval[1] = regs->edx;

	funnel_type = callp->sy_funnel;
	if(funnel_type == KERNEL_FUNNEL)
		(void) thread_funnel_set(kernel_flock, TRUE);
	else if (funnel_type == NETWORK_FUNNEL)
		(void) thread_funnel_set(network_flock, TRUE);
	
   set_bsduthreadargs(thread, regs, NULL);

    if (callp->sy_narg > 8)
	panic("unix_syscall max arg count exceeded (%d)", callp->sy_narg);

	ktrsyscall(p, code, callp->sy_narg, vt, funnel_type);

	{ 
	  int *ip = (int *)vt;
	  KERNEL_DEBUG_CONSTANT(BSDDBG_CODE(DBG_BSD_EXCP_SC, code) | DBG_FUNC_START,
	      *ip, *(ip+1), *(ip+2), *(ip+3), 0);
	}

    error = (*(callp->sy_call))(p, (void *) vt, rval);
	
#if 0
	/* May be needed with vfork changes */
	regs = USER_REGS(thread);
#endif
	if (error == ERESTART) {
		regs->eip -= 7;
	}
	else if (error != EJUSTRETURN) {
		if (error) {
		    regs->eax = error;
		    regs->efl |= EFL_CF;	/* carry bit */
		} else { /* (not error) */
		    regs->eax = rval[0];
		    regs->edx = rval[1];
		    regs->efl &= ~EFL_CF;
		} 
	}

	ktrsysret(p, code, error, rval[0], funnel_type);

	KERNEL_DEBUG_CONSTANT(BSDDBG_CODE(DBG_BSD_EXCP_SC, code) | DBG_FUNC_END,
		error, rval[0], rval[1], 0, 0);

	if(funnel_type != NO_FUNNEL)
    		(void) thread_funnel_set(current_thread()->funnel_lock, FALSE);

    thread_exception_return();
    /* NOTREACHED */
}


void
machdep_syscall( struct i386_saved_state *regs)
{
    int				trapno, nargs;
    machdep_call_t		*entry;
    thread_t			thread;
	struct proc *p;
	struct proc *current_proc();
    
    trapno = regs->eax;
    if (trapno < 0 || trapno >= machdep_call_count) {
	regs->eax = (unsigned int)kern_invalid();

	thread_exception_return();
	/* NOTREACHED */
    }
    
    entry = &machdep_call_table[trapno];
    nargs = entry->nargs;

    if (nargs > 0) {
	int			args[nargs];

	if (copyin((char *) regs->uesp + sizeof (int),
		    (char *) args,
		    nargs * sizeof (int))) {

	    regs->eax = KERN_INVALID_ADDRESS;

	    thread_exception_return();
	    /* NOTREACHED */
	}

	asm volatile("
	    1:
	    mov (%2),%%eax;
	    pushl %%eax;
	    sub $4,%2;
	    dec %1;
	    jne 1b;
	    mov %3,%%eax;
	    call *%%eax;
	    mov %%eax,%0"
	    
	    : "=r" (regs->eax)
	    : "r" (nargs),
		"r" (&args[nargs - 1]),
		"g" (entry->routine)
	    : "ax", "cx", "dx", "sp");
    }
    else
	regs->eax = (unsigned int)(*entry->routine)();

	if (current_thread()->funnel_lock)
    		(void) thread_funnel_set(current_thread()->funnel_lock, FALSE);

    thread_exception_return();
    /* NOTREACHED */
}


kern_return_t
thread_set_cthread_self(int self)
{
   current_act()->mact.pcb->cthread_self = (unsigned int)self;
   
   return (KERN_SUCCESS);
}

kern_return_t
thread_get_cthread_self(void)
{
    return ((kern_return_t)current_act()->mact.pcb->cthread_self);
}

void
mach25_syscall(struct i386_saved_state *regs)
{
	printf("*** Atttempt to execute a Mach 2.5 system call at EIP=%x EAX=%x(%d)\n",
			regs->eip, regs->eax, -regs->eax);
	panic("FIXME!");
}

#endif	/* MACH_BSD */

#undef current_thread
thread_t
current_thread(void)
{
  return(current_thread_fast());
}
Commit	Line	Data
1c79356b	1	/*
9bccf70c	2	* Copyright (c) 2000-2002 Apple Computer, Inc. All rights reserved.
1c79356b A	3	*
	4	* @APPLE_LICENSE_HEADER_START@
	5	*
de355530 A	6	* The contents of this file constitute Original Code as defined in and
	7	* are subject to the Apple Public Source License Version 1.1 (the
	8	* "License"). You may not use this file except in compliance with the
	9	* License. Please obtain a copy of the License at
	10	* http://www.apple.com/publicsource and read it before using this file.
1c79356b	11	*
de355530 A	12	* This Original Code and all software distributed under the License are
de355530 A	13	* distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER
1c79356b A	14	* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
1c79356b A	15	* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
de355530 A	16	* FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the
	17	* License for the specific language governing rights and limitations
	18	* under the License.
1c79356b A	19	*
	20	* @APPLE_LICENSE_HEADER_END@
	21	*/
	22	#ifdef MACH_BSD
	23	#include <cpus.h>
	24	#include <mach_rt.h>
	25	#include <mach_debug.h>
	26	#include <mach_ldebug.h>
	27
	28	#include <mach/kern_return.h>
	29	#include <mach/thread_status.h>
	30	#include <mach/vm_param.h>
1c79356b A	31
	32	#include <kern/counters.h>
	33	#include <kern/cpu_data.h>
	34	#include <kern/mach_param.h>
	35	#include <kern/task.h>
	36	#include <kern/thread.h>
	37	#include <kern/thread_swap.h>
	38	#include <kern/sched_prim.h>
	39	#include <kern/misc_protos.h>
	40	#include <kern/assert.h>
	41	#include <kern/spl.h>
	42	#include <ipc/ipc_port.h>
	43	#include <vm/vm_kern.h>
	44	#include <vm/pmap.h>
	45
	46	#include <i386/thread.h>
	47	#include <i386/eflags.h>
	48	#include <i386/proc_reg.h>
	49	#include <i386/seg.h>
	50	#include <i386/tss.h>
	51	#include <i386/user_ldt.h>
	52	#include <i386/fpu.h>
	53	#include <i386/iopb_entries.h>
	54	#include <i386/machdep_call.h>
	55
9bccf70c A	56	#include <sys/syscall.h>
	57	#include <sys/ktrace.h>
	58	struct proc;
1c79356b A	59
	60	kern_return_t
	61	thread_userstack(
	62	thread_t,
	63	int,
	64	thread_state_t,
	65	unsigned int,
0b4e3aa0 A	66	vm_offset_t *,
0b4e3aa0 A	67	int *
1c79356b A	68	);
	69
	70	kern_return_t
	71	thread_entrypoint(
	72	thread_t,
	73	int,
	74	thread_state_t,
	75	unsigned int,
	76	vm_offset_t *
	77	);
	78
	79	struct i386_saved_state *
	80	get_user_regs(
	81	thread_act_t);
	82
	83	void
	84	act_thread_dup(
	85	thread_act_t,
	86	thread_act_t
	87	);
	88
	89	unsigned int get_msr_exportmask(void);
	90
	91	unsigned int get_msr_nbits(void);
	92
	93	unsigned int get_msr_rbits(void);
	94
	95	/*
	96	* thread_userstack:
	97	*
	98	* Return the user stack pointer from the machine
	99	* dependent thread state info.
	100	*/
	101	kern_return_t
	102	thread_userstack(
	103	thread_t thread,
	104	int flavor,
	105	thread_state_t tstate,
	106	unsigned int count,
0b4e3aa0 A	107	vm_offset_t *user_stack,
0b4e3aa0 A	108	int *customstack
1c79356b A	109	)
	110	{
	111	struct i386_saved_state *state;
	112	i386_thread_state_t *state25;
	113	vm_offset_t uesp;
	114
0b4e3aa0 A	115	if (customstack)
0b4e3aa0 A	116	*customstack = 0;
9bccf70c	117
1c79356b A	118	switch (flavor) {
	119	case i386_THREAD_STATE: /* FIXME */
	120	state25 = (i386_thread_state_t *) tstate;
9bccf70c A	121	if (state25->esp)
	122	*user_stack = state25->esp;
	123	if (customstack && state25->esp)
	124	*customstack = 1;
	125	else
	126	*customstack = 0;
1c79356b A	127	break;
	128
	129	case i386_NEW_THREAD_STATE:
	130	if (count < i386_NEW_THREAD_STATE_COUNT)
	131	return (KERN_INVALID_ARGUMENT);
	132	else {
	133	state = (struct i386_saved_state *) tstate;
	134	uesp = state->uesp;
	135	}
	136
9bccf70c A	137	/* If a valid user stack is specified, use it. */
	138	if (uesp)
	139	*user_stack = uesp;
	140	if (customstack && uesp)
	141	*customstack = 1;
	142	else
	143	*customstack = 0;
1c79356b A	144	break;
	145	default :
	146	return (KERN_INVALID_ARGUMENT);
	147	}
	148
	149	return (KERN_SUCCESS);
	150	}
	151
	152	kern_return_t
	153	thread_entrypoint(
	154	thread_t thread,
	155	int flavor,
	156	thread_state_t tstate,
	157	unsigned int count,
	158	vm_offset_t *entry_point
	159	)
	160	{
	161	struct i386_saved_state *state;
	162	i386_thread_state_t *state25;
	163
	164	/*
	165	* Set a default.
	166	*/
	167	if (*entry_point == 0)
	168	*entry_point = VM_MIN_ADDRESS;
	169
	170	switch (flavor) {
	171	case i386_THREAD_STATE:
	172	state25 = (i386_thread_state_t *) tstate;
	173	*entry_point = state25->eip ? state25->eip: VM_MIN_ADDRESS;
	174	break;
	175
	176	case i386_NEW_THREAD_STATE:
	177	if (count < i386_THREAD_STATE_COUNT)
	178	return (KERN_INVALID_ARGUMENT);
	179	else {
	180	state = (struct i386_saved_state *) tstate;
	181
	182	/*
	183	* If a valid entry point is specified, use it.
	184	*/
	185	*entry_point = state->eip ? state->eip: VM_MIN_ADDRESS;
	186	}
	187	break;
	188	}
	189
	190	return (KERN_SUCCESS);
	191	}
	192
	193	struct i386_saved_state *
	194	get_user_regs(thread_act_t th)
	195	{
	196	if (th->mact.pcb)
	197	return(USER_REGS(th));
	198	else {
	199	printf("[get_user_regs: thread does not have pcb]");
	200	return NULL;
	201	}
	202	}
	203
	204	/*
	205	* Duplicate parent state in child
	206	* for U**X fork.
	207	*/
208	void
209	act_thread_dup(
210	thread_act_t parent,
211	thread_act_t child
212	)
213	{
214	struct i386_saved_state parent_state, child_state;
215	struct i386_machine_state *ims;
216	struct i386_float_state floatregs;
217
218	#ifdef XXX
219	/* Save the FPU state */
220	if ((pcb_t)(per_proc_info[cpu_number()].fpu_pcb) == parent->mact.pcb) {
221	fp_state_save(parent);
222	}
223	#endif
224
225	if (child->mact.pcb == NULL
226	\|\| parent->mact.pcb == NULL) {
227	panic("[thread_dup, child (%x) or parent (%x) is NULL!]",
228	child->mact.pcb, parent->mact.pcb);
229	return;
230	}
231
232	/* Copy over the i386_saved_state registers */
233	child->mact.pcb->iss = parent->mact.pcb->iss;
234
235	/* Check to see if parent is using floating point
236	* and if so, copy the registers to the child
237	* FIXME - make sure this works.
238	*/
239
240	if (parent->mact.pcb->ims.ifps) {
241	if (fpu_get_state(parent, &floatregs) == KERN_SUCCESS)
242	fpu_set_state(child, &floatregs);
243	}
244
245	/* FIXME - should a user specified LDT, TSS and V86 info
246	* be duplicated as well?? - probably not.
247	*/
248	}
249
250	/*
251	* FIXME - thread_set_child
252	*/
253
254	void thread_set_child(thread_act_t child, int pid);
255	void
256	thread_set_child(thread_act_t child, int pid)
257	{
258	child->mact.pcb->iss.eax = pid;
259	child->mact.pcb->iss.edx = 1;
260	child->mact.pcb->iss.efl &= ~EFL_CF;
261	}
0b4e3aa0 A	262	void thread_set_parent(thread_act_t parent, int pid);
	263	void
	264	thread_set_parent(thread_act_t parent, int pid)
	265	{
	266	parent->mact.pcb->iss.eax = pid;
	267	parent->mact.pcb->iss.edx = 0;
	268	parent->mact.pcb->iss.efl &= ~EFL_CF;
	269	}
1c79356b A	270
	271
	272
	273	/*
	274	* Move pages from one kernel virtual address to another.
	275	* Both addresses are assumed to reside in the Sysmap,
	276	* and size must be a multiple of the page size.
	277	*/
	278	void
	279	pagemove(
	280	register caddr_t from,
	281	register caddr_t to,
	282	int size)
	283	{
	284	pmap_movepage((unsigned long)from, (unsigned long)to, (vm_size_t)size);
	285	}
	286
	287	/*
	288	* System Call handling code
	289	*/
	290
	291	#define ERESTART -1 /* restart syscall */
	292	#define EJUSTRETURN -2 /* don't modify regs, just return */
	293
	294	struct sysent { /* system call table */
	295	unsigned short sy_narg; /* number of args */
	296	char sy_parallel; /* can execute in parallel */
	297	char sy_funnel; /* funnel type */
	298	unsigned long (sy_call)(void , void , int ); /* implementing function */
	299	};
	300
9bccf70c	301	#define NO_FUNNEL 0
1c79356b A	302	#define KERNEL_FUNNEL 1
	303	#define NETWORK_FUNNEL 2
	304
	305	extern funnel_t * kernel_flock;
	306	extern funnel_t * network_flock;
	307
	308	extern struct sysent sysent[];
	309
1c79356b A	310	int set_bsduthreadargs (thread_act_t, struct i386_saved_state , void );
	311
	312	void * get_bsduthreadarg(thread_act_t);
	313
	314	void unix_syscall(struct i386_saved_state *);
	315
	316	void
	317	unix_syscall_return(int error)
	318	{
0b4e3aa0 A	319	thread_act_t thread;
	320	volatile int *rval;
	321	struct i386_saved_state *regs;
9bccf70c A	322	struct proc *p;
	323	struct proc *current_proc();
	324	unsigned short code;
	325	vm_offset_t params;
	326	struct sysent *callp;
	327	extern int nsysent;
0b4e3aa0 A	328
	329	thread = current_act();
	330	rval = (int *)get_bsduthreadrval(thread);
9bccf70c	331	p = current_proc();
0b4e3aa0 A	332
	333	regs = USER_REGS(thread);
	334
9bccf70c A	335	/* reconstruct code for tracing before blasting eax */
	336	code = regs->eax;
	337	params = (vm_offset_t) ((caddr_t)regs->uesp + sizeof (int));
	338	callp = (code >= nsysent) ? &sysent[63] : &sysent[code];
	339	if (callp == sysent) {
	340	code = fuword(params);
	341	}
	342
0b4e3aa0 A	343	if (error == ERESTART) {
	344	regs->eip -= 7;
	345	}
	346	else if (error != EJUSTRETURN) {
	347	if (error) {
	348	regs->eax = error;
	349	regs->efl \|= EFL_CF; /* carry bit */
	350	} else { /* (not error) */
	351	regs->eax = rval[0];
	352	regs->edx = rval[1];
	353	regs->efl &= ~EFL_CF;
	354	}
	355	}
	356
9bccf70c A	357	ktrsysret(p, code, error, rval[0], callp->sy_funnel);
	358
	359	KERNEL_DEBUG_CONSTANT(BSDDBG_CODE(DBG_BSD_EXCP_SC, code) \| DBG_FUNC_END,
	360	error, rval[0], rval[1], 0, 0);
	361
	362	if (callp->sy_funnel != NO_FUNNEL) {
	363	assert(thread_funnel_get() == THR_FUNNEL_NULL);
	364	(void) thread_funnel_set(current_thread()->funnel_lock, FALSE);
	365	}
0b4e3aa0 A	366
	367	thread_exception_return();
	368	/* NOTREACHED */
1c79356b A	369	}
	370
	371
	372	void
	373	unix_syscall(struct i386_saved_state *regs)
	374	{
	375	thread_act_t thread;
9bccf70c	376	void *vt;
1c79356b A	377	unsigned short code;
	378	struct sysent *callp;
	379	int nargs, error;
0b4e3aa0	380	volatile int *rval;
9bccf70c	381	int funnel_type;
1c79356b A	382	vm_offset_t params;
1c79356b A	383	extern int nsysent;
9bccf70c A	384	struct proc *p;
9bccf70c A	385	struct proc *current_proc();
1c79356b A	386
1c79356b A	387	thread = current_act();
0b4e3aa0	388	p = current_proc();
1c79356b A	389	rval = (int *)get_bsduthreadrval(thread);
	390
	391	//printf("[scall : eax %x]", regs->eax);
	392	code = regs->eax;
	393	params = (vm_offset_t) ((caddr_t)regs->uesp + sizeof (int));
	394	callp = (code >= nsysent) ? &sysent[63] : &sysent[code];
	395	if (callp == sysent) {
	396	code = fuword(params);
	397	params += sizeof (int);
	398	callp = (code >= nsysent) ? &sysent[63] : &sysent[code];
	399	}
	400
	401	vt = get_bsduthreadarg(thread);
	402
	403	if ((nargs = (callp->sy_narg * sizeof (int))) &&
	404	(error = copyin((char ) params, (char )vt , nargs)) != 0) {
	405	regs->eax = error;
	406	regs->efl \|= EFL_CF;
	407	thread_exception_return();
	408	/* NOTREACHED */
	409	}
	410
	411	rval[0] = 0;
	412	rval[1] = regs->edx;
	413
9bccf70c A	414	funnel_type = callp->sy_funnel;
	415	if(funnel_type == KERNEL_FUNNEL)
	416	(void) thread_funnel_set(kernel_flock, TRUE);
	417	else if (funnel_type == NETWORK_FUNNEL)
	418	(void) thread_funnel_set(network_flock, TRUE);
	419
1c79356b A	420	set_bsduthreadargs(thread, regs, NULL);
	421
	422	if (callp->sy_narg > 8)
	423	panic("unix_syscall max arg count exceeded (%d)", callp->sy_narg);
	424
9bccf70c A	425	ktrsyscall(p, code, callp->sy_narg, vt, funnel_type);
	426
	427	{
	428	int ip = (int )vt;
	429	KERNEL_DEBUG_CONSTANT(BSDDBG_CODE(DBG_BSD_EXCP_SC, code) \| DBG_FUNC_START,
	430	ip, (ip+1), (ip+2), (ip+3), 0);
	431	}
1c79356b A	432
	433	error = ((callp->sy_call))(p, (void ) vt, rval);
	434
0b4e3aa0 A	435	#if 0
	436	/* May be needed with vfork changes */
	437	regs = USER_REGS(thread);
	438	#endif
1c79356b A	439	if (error == ERESTART) {
	440	regs->eip -= 7;
	441	}
	442	else if (error != EJUSTRETURN) {
	443	if (error) {
	444	regs->eax = error;
	445	regs->efl \|= EFL_CF; /* carry bit */
	446	} else { /* (not error) */
	447	regs->eax = rval[0];
	448	regs->edx = rval[1];
	449	regs->efl &= ~EFL_CF;
	450	}
	451	}
	452
9bccf70c A	453	ktrsysret(p, code, error, rval[0], funnel_type);
	454
	455	KERNEL_DEBUG_CONSTANT(BSDDBG_CODE(DBG_BSD_EXCP_SC, code) \| DBG_FUNC_END,
	456	error, rval[0], rval[1], 0, 0);
	457
	458	if(funnel_type != NO_FUNNEL)
	459	(void) thread_funnel_set(current_thread()->funnel_lock, FALSE);
1c79356b A	460
	461	thread_exception_return();
	462	/* NOTREACHED */
	463	}
	464
	465
	466	void
	467	machdep_syscall( struct i386_saved_state *regs)
	468	{
	469	int trapno, nargs;
	470	machdep_call_t *entry;
	471	thread_t thread;
9bccf70c A	472	struct proc *p;
9bccf70c A	473	struct proc *current_proc();
1c79356b A	474
	475	trapno = regs->eax;
	476	if (trapno < 0 \|\| trapno >= machdep_call_count) {
	477	regs->eax = (unsigned int)kern_invalid();
	478
	479	thread_exception_return();
	480	/* NOTREACHED */
	481	}
	482
	483	entry = &machdep_call_table[trapno];
	484	nargs = entry->nargs;
	485
	486	if (nargs > 0) {
	487	int args[nargs];
	488
	489	if (copyin((char *) regs->uesp + sizeof (int),
	490	(char *) args,
	491	nargs * sizeof (int))) {
	492
	493	regs->eax = KERN_INVALID_ADDRESS;
	494
	495	thread_exception_return();
	496	/* NOTREACHED */
	497	}
	498
	499	asm volatile("
	500	1:
	501	mov (%2),%%eax;
	502	pushl %%eax;
	503	sub $4,%2;
	504	dec %1;
	505	jne 1b;
	506	mov %3,%%eax;
	507	call *%%eax;
	508	mov %%eax,%0"
	509
	510	: "=r" (regs->eax)
	511	: "r" (nargs),
	512	"r" (&args[nargs - 1]),
	513	"g" (entry->routine)
	514	: "ax", "cx", "dx", "sp");
	515	}
	516	else
	517	regs->eax = (unsigned int)(*entry->routine)();
	518
9bccf70c A	519	if (current_thread()->funnel_lock)
9bccf70c A	520	(void) thread_funnel_set(current_thread()->funnel_lock, FALSE);
1c79356b A	521
	522	thread_exception_return();
	523	/* NOTREACHED */
	524	}
	525
	526
	527	kern_return_t
	528	thread_set_cthread_self(int self)
	529	{
	530	current_act()->mact.pcb->cthread_self = (unsigned int)self;
	531
	532	return (KERN_SUCCESS);
	533	}
	534
	535	kern_return_t
	536	thread_get_cthread_self(void)
	537	{
	538	return ((kern_return_t)current_act()->mact.pcb->cthread_self);
	539	}
	540
	541	void
	542	mach25_syscall(struct i386_saved_state *regs)
	543	{
	544	printf("*** Atttempt to execute a Mach 2.5 system call at EIP=%x EAX=%x(%d)\n",
	545	regs->eip, regs->eax, -regs->eax);
	546	panic("FIXME!");
	547	}
	548
	549	#endif /* MACH_BSD */
	550
	551	#undef current_thread
9bccf70c	552	thread_t
1c79356b A	553	current_thread(void)
	554	{
	555	return(current_thread_fast());
	556	}