1/*	$NetBSD: __clone.S,v 1.3 2008/04/28 20:22:58 martin Exp $	*/
2
3/*-
4 * Copyright (c) 2001 The NetBSD Foundation, Inc.
5 * All rights reserved.
6 *
7 * This code is derived from software contributed to The NetBSD Foundation
8 * by Matt Thomas <matt@3am-software.com>
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 * POSSIBILITY OF SUCH DAMAGE.
30 */
31
32#include <sys/errno.h>
33
34#include "SYS.h"
35
36#ifdef SYSLIBC_SCCS
37RCSID("$NetBSD$")
38#endif
39
40#ifdef WEAK_ALIAS
41WEAK_ALIAS(clone, __clone)
42#endif
43
44/*
45 * int __clone(int (*fn)(void *), void *stack, int flags, void *arg);
46 */
47ENTRY(__clone, 0)
48
49	/*
50	 * Sanity checks: func and stack may not be NULL.
51	 */
52	movl	4(%ap),%r2	/* check and save function */
53	beql	9f
54	tstl	8(%ap)		/* check stack */
55	beql	9f
56
57	/*
58	 * The system call expects (flags, stack).
59	 */
60	movl	12(%ap),4(%ap)	/* XXX this doesn't work for
61				   callg with a RO arglist */
62	movl	$2,(%ap)
63	SYSTRAP(__clone)	/* only %r0/%r1 munged */
64
65	blbc	%r1,8f		/* %r1<0>:   0=parent  1=child */
66
67	/* Call the clone's entry point. */
68	pushl	16(%ap)
69	calls	$1,(%r2)
70
71	/* Pass return value to _exit(). */
72	pushl	%r0
73	calls	$1,_C_LABEL(_exit)
74
75	/* NOTREACHED */
76
778:	ret
78
799:	movl	$EINVAL,%r0
80	jmp	CERROR+2
81END(__clone)
82