1 files changed, 87 insertions, 0 deletions
diff --git a/libc/sysdeps/linux/vax/clone.S b/libc/sysdeps/linux/vax/clone.S
new file mode 100644
index 000000000..0e9331e64
--- /dev/null
+++ b/libc/sysdeps/linux/vax/clone.S
@@ -0,0 +1,87 @@
+/* Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
+
+   The GNU C Library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public License as
+   published by the Free Software Foundation; either version 2 of the
+   License, or (at your option) any later version.
+
+   The GNU C Library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public
+   License along with the GNU C Library; see the file COPYING.LIB.  If not,
+   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */
+
+/* clone() is even more special than fork() as it mucks with stacks
+   and invokes a function in the right context after its all over.  */
+
+#include <features.h>
+#include <bits/errno.h>
+#include <sys/syscall.h>
+
+#warning "This file contains a hardcoded constant for SYS_clone"
+
+.section	.rodata
+		.align 2
+.LC0:		.long 120	/* SYS_clone */
+.align 4
+.text
+.type	clone,@function
+.globl	clone;
+clone:
+	.word 0x0040
+	/* subl2	$8, %sp	*/
+	movl	4(%ap), %r1
+	movl	8(%ap), %r0
+	mcoml	$21, %r6
+
+	/* Sanity check args.  */
+	tstl	%r1
+	jeql	CLONE_ERROR_LABEL
+	tstl	%r0
+	jeql	CLONE_ERROR_LABEL
+
+	/* Need to setup the child stack the same as the parent.  */
+	subl2	$24, %r0
+	movl	16(%ap), 20(%r0)
+	movl	%r1, 16(%r0)
+	movl	%r0, %r1
+	addl2	$16, %r1
+	movl	%r1, 12(%r0)
+
+	/* Do the system call.  */
+	pushl	%ap
+	pushl	%r0
+        pushl	12(%ap)
+	pushl	$0x2
+	movl	%sp, %ap
+        chmk	.LC0	/* %r0 .LC0 -4(%fp) -8(%fp) */
+	addl2	$12, %sp
+	movl	(%sp)+, %ap
+	movl	%r0, %r6
+	jneq	CLONE_ERROR_LABEL
+
+	movl	$0, %fp
+	pushl	4(%ap)
+	movl	(%r1), %r0
+	calls	$1, (%r0)
+	pushl	%r0
+	calls	$1, HIDDEN_JUMPTARGET(_exit)
+
+CLONE_ERROR_LABEL:
+	cmpl	%r6, $-126	/* -ENOKEY?!?! Fuck, this must be wrong! FIXME */
+	jlequ	CLONE_RETURN_LABEL
+	calls	$0, __errno_location
+	mnegl	%r6, (%r0)
+	mcoml	$0, %r6
+	movl	%r6, %r0
+	ret
+
+CLONE_RETURN_LABEL:
+	ret
+
+.size clone,.-clone
+