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
85
86
87
88
89
90
91
92
93
94
95
96
97
|
;
; Port of uClibc for TMS320C6000 DSP architecture
; Copyright (C) 2004 Texas Instruments Incorporated
; Author of TMS320C6000 port: Aurelien Jacquiot
;
; This program 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.
;
; This program 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 this program; if not, see <http://www.gnu.org/licenses/>.
;
#define __ASSEMBLY__
; int _clone(int (*fn)(void *arg), void *child_stack, int flags, void *arg);
#include <asm/errno.h>
#include <sys/syscall.h>
.global __clone
.global clone
.global __errno_location
;Currently supports only
;int clone(int (*fn)(void *arg), void *child_stack, int flags, void *arg)
;
;Requires update for supporting
; int clone(int (*fn)(void *arg), void *child_stack, int flags, void *arg,
; int *parent_tidptr, struct user_desc *newtls, int *child_pidptr)
__clone:
; index 1 points to the forth argument and is to be moved to B6
LDW .D2T2 *+B15[1],B5
NOP 4
OR .D2X B4,A4,B2 ; sanity check arguments, no NULL function or stack pointers
|| MV .S2 B4,B9
|| MV .D1 A4,A9 ; backup fn and child_stack pointers
[!B2] B .S2 __syscall_error
||[!B2] MVK .S1 EINVAL,A4
NOP 4
MV .D1 A6,A4 ; get flags as arg0, arg1 is the new stack
|| AND .D2 ~7,B4,B4
; do the system call
|| MVK .S2 __NR_clone,B0
|| MV .L2 B5,B6
0:
#ifndef _TMS320C6400_PLUS
MVC .S2 CSR,B2
CLR .S2 B2,0,0,B1
MVC .S2 B1,CSR
MVC .S2 IFR,B1
SET .S2 B1,6,6,B1
MVC .S2 B1,ISR
MVC .S2 B2,CSR
NOP
#else
SWE
#endif
MV .D2 B9,B4 ; restore child stack
|| CMPEQ .L1 0,A4,A2
|| CMPLT .L2X A4,0,B2
[B2] B .S2 __syscall_error ; if syscall < 0, it is an error
NOP 5
[A2] B .S2X A9 ; branch to function
|| [A2] MV .D1X B6,A4 ; set arg (B6 is preserved by syscall)
[!A2] B .S2 B3 ; otherwise (syscall result > 0) returns directly
[A2] ADDKPC .S2 __return_thread,B3, 4
__return_thread:
b .s2 HIDDEN_JUMPTARGET(_exit)
nop 5
__syscall_error:
NEG .S1 A4,A4
STW .D2T1 A4,*B15--[2]
STW .D2T2 B3,*+B15[1]
CALLP .S2 __errno_location,B3
LDW .D2T2 *+B15[1],B3
LDW .D2T1 *++B15[2],A5
NOP 3
BNOP .S2 B3,3
STW .D1T1 A5,*A4
MVK .L1 -1,A4
.set clone, __clone
|
