/* Copyright (C) 1999-2018 Free Software Foundation, Inc.

   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or

   modify it under the terms of the GNU Lesser General Public

   License as published by the Free Software Foundation; either

   version 2.1 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

   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public

   License along with the GNU C Library; if not, see

   <http://www.gnu.org/licenses/>.  */

/* 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 <sysdep.h>

#define _ERRNO_H	1

#include <bits/errno.h>

#include <tcb-offsets.h>

/* int clone(int (*fn)(void *arg), void *child_stack, int flags, void *arg,

	     pid_t *ptid, void *tls, pid_t *ctid); */

	.text

ENTRY(__clone)

	/* sanity check arguments.  */

	tst	r4, r4

	bt/s	0f

	 tst	r5, r5

	bf	1f

0:

	bra	.Lsyscall_error

	 mov	#-EINVAL,r0

1:

	/* insert the args onto the new stack */

	mov.l	r7, @-r5

	/* save the function pointer as the 0th element */

	mov.l	r4, @-r5

	/* do the system call */

	mov	r6, r4

	mov.l	@r15, r6

	mov.l	@(8,r15), r7

	mov.l	@(4,r15), r0

	mov	#+SYS_ify(clone), r3

	trapa	#0x15

	mov     r0, r1

	mov	#-12, r2

	shad	r2, r1

	not	r1, r1			// r1=0 means r0 = -1 to -4095

	tst	r1, r1			// i.e. error in linux

	bf	.Lclone_end

.Lsyscall_error:

	SYSCALL_ERROR_HANDLER

.Lclone_end:

	tst	r0, r0

	bt	2f

.Lpseudo_end:

	rts

	 nop

2:

	/* terminate the stack frame */

	mov	#0, r14

	/* thread starts */

	mov.l	@r15, r1

	jsr	@r1

	 mov.l	@(4,r15), r4

	/* we are done, passing the return value through r0  */

	mov     r0, r4

	mov	#+SYS_ify(exit), r3

	trapa	#0x15

	.align	2

.LG:

	.long	_GLOBAL_OFFSET_TABLE_

.L3:

	.long	PLTJMP(C_SYMBOL_NAME(_exit))

PSEUDO_END (__clone)

libc_hidden_def (__clone)

weak_alias (__clone, clone)