1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
/* 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,
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 <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
|
