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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
/* Copy memory to memory until the specified number of bytes
has been copied. Overlap is handled correctly.
For SPARC V9.
Copyright (C) 2017-2023 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
<https://www.gnu.org/licenses/>. */
#include <sysdep.h>
#ifndef XCC
# define XCC xcc
.register %g2, #scratch
#endif
ENTRY(memmove)
mov %o0, %g2 /* Save pointer to destination */
cmp %o1, %o0 /* if from address is >= to use forward copy */
bgeu,a %XCC, 2f /* else use backward if ... */
cmp %o2, 17 /* delay slot, for small counts copy bytes */
sub %o0, %o1, %o4 /* get difference of two addresses */
cmp %o2, %o4 /* compare size and difference of addresses */
bgu %XCC, .Lovbc /* if size is bigger, have to do overlapped copy */
cmp %o2, 17 /* delay slot, for small counts copy bytes */
/*
* normal, copy forwards
*/
2: ble %XCC, .Ldbytecp
andcc %o1, 3, %o5 /* is src word aligned */
bz,pn %icc, .Laldst
cmp %o5, 2 /* is src half-word aligned */
be,pn %icc, .Ls2alg
cmp %o5, 3 /* src is byte aligned */
ldub [%o1], %o3 /* move 1 or 3 bytes to align it */
inc 1, %o1
stb %o3, [%o0] /* move a byte to align src */
inc 1, %o0
bne,pn %icc, .Ls2alg
dec %o2
b .Lald /* now go align dest */
andcc %o0, 3, %o5
.Ls2alg:
lduh [%o1], %o3 /* know src is 2 byte aligned */
inc 2, %o1
srl %o3, 8, %o4
stb %o4, [%o0] /* have to do bytes, */
stb %o3, [%o0 + 1] /* don't know dst alingment */
inc 2, %o0
dec 2, %o2
.Laldst:
andcc %o0, 3, %o5 /* align the destination address */
.Lald: bz,pn %icc, .Lw4cp
cmp %o5, 2
bz,pn %icc, .Lw2cp
cmp %o5, 3
.Lw3cp:
lduw [%o1], %o4
inc 4, %o1
srl %o4, 24, %o5
stb %o5, [%o0]
bne,pt %icc, .Lw1cp
inc %o0
dec 1, %o2
andn %o2, 3, %o3 /* i3 is aligned word count */
dec 4, %o3 /* avoid reading beyond tail of src */
sub %o1, %o0, %o1 /* i1 gets the difference */
1: sll %o4, 8, %g1 /* save residual bytes */
lduw [%o1+%o0], %o4
deccc 4, %o3
srl %o4, 24, %o5 /* merge with residual */
or %o5, %g1, %g1
st %g1, [%o0]
bnz,pt %XCC, 1b
inc 4, %o0
sub %o1, 3, %o1 /* used one byte of last word read */
and %o2, 3, %o2
b 7f
inc 4, %o2
.Lw1cp:
srl %o4, 8, %o5
sth %o5, [%o0]
inc 2, %o0
dec 3, %o2
andn %o2, 3, %o3
dec 4, %o3 /* avoid reading beyond tail of src */
sub %o1, %o0, %o1 /* i1 gets the difference */
2: sll %o4, 24, %g1 /* save residual bytes */
lduw [%o1+%o0], %o4
deccc 4, %o3
srl %o4, 8, %o5 /* merge with residual */
or %o5, %g1, %g1
st %g1, [%o0]
bnz,pt %XCC, 2b
inc 4, %o0
sub %o1, 1, %o1 /* used three bytes of last word read */
and %o2, 3, %o2
b 7f
inc 4, %o2
.Lw2cp:
lduw [%o1], %o4
inc 4, %o1
srl %o4, 16, %o5
sth %o5, [%o0]
inc 2, %o0
dec 2, %o2
andn %o2, 3, %o3 /* i3 is aligned word count */
dec 4, %o3 /* avoid reading beyond tail of src */
sub %o1, %o0, %o1 /* i1 gets the difference */
3: sll %o4, 16, %g1 /* save residual bytes */
lduw [%o1+%o0], %o4
deccc 4, %o3
srl %o4, 16, %o5 /* merge with residual */
or %o5, %g1, %g1
st %g1, [%o0]
bnz,pt %XCC, 3b
inc 4, %o0
sub %o1, 2, %o1 /* used two bytes of last word read */
and %o2, 3, %o2
b 7f
inc 4, %o2
.Lw4cp:
andn %o2, 3, %o3 /* i3 is aligned word count */
sub %o1, %o0, %o1 /* i1 gets the difference */
1: lduw [%o1+%o0], %o4 /* read from address */
deccc 4, %o3 /* decrement count */
st %o4, [%o0] /* write at destination address */
bg,pt %XCC, 1b
inc 4, %o0 /* increment to address */
b 7f
and %o2, 3, %o2 /* number of leftover bytes, if any */
/*
* differenced byte copy, works with any alignment
*/
.Ldbytecp:
b 7f
sub %o1, %o0, %o1 /* i1 gets the difference */
4: stb %o4, [%o0] /* write to address */
inc %o0 /* inc to address */
7: deccc %o2 /* decrement count */
bge,a %XCC, 4b /* loop till done */
ldub [%o1+%o0], %o4 /* read from address */
retl
mov %g2, %o0 /* return pointer to destination */
/*
* an overlapped copy that must be done "backwards"
*/
.Lovbc:
add %o1, %o2, %o1 /* get to end of source space */
add %o0, %o2, %o0 /* get to end of destination space */
sub %o1, %o0, %o1 /* i1 gets the difference */
5: dec %o0 /* decrement to address */
ldub [%o1+%o0], %o3 /* read a byte */
deccc %o2 /* decrement count */
bg,pt %XCC, 5b /* loop until done */
stb %o3, [%o0] /* write byte */
retl
mov %g2, %o0 /* return pointer to destination */
END(memmove)
libc_hidden_builtin_def (memmove)
|
