]>
Commit | Line | Data |
---|---|---|
2ef2b01e A |
1 | //------------------------------------------------------------------------------ |
2 | // | |
d6ebcab7 | 3 | // Copyright (c) 2008 - 2009, Apple Inc. All rights reserved.<BR> |
2ef2b01e | 4 | // |
d6ebcab7 | 5 | // This program and the accompanying materials |
2ef2b01e A |
6 | // are licensed and made available under the terms and conditions of the BSD License |
7 | // which accompanies this distribution. The full text of the license may be found at | |
8 | // http://opensource.org/licenses/bsd-license.php | |
9 | // | |
10 | // THE PROGRAM IS DISTRIBUTED UNDER THE BSD LICENSE ON AN "AS IS" BASIS, | |
11 | // WITHOUT WARRANTIES OR REPRESENTATIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED. | |
12 | // | |
13 | //------------------------------------------------------------------------------ | |
14 | ||
15 | ||
16 | ||
17 | EXPORT __aeabi_uldivmod | |
18 | ||
19 | AREA Uldivmod, CODE, READONLY | |
20 | ||
21 | ; | |
22 | ;UINT64 | |
23 | ;EFIAPI | |
24 | ;__aeabi_uldivmod ( | |
25 | ; IN UINT64 Dividend | |
26 | ; IN UINT64 Divisor | |
27 | ; ) | |
28 | ; | |
29 | __aeabi_uldivmod | |
30 | stmdb sp!, {r4, r5, r6, lr} | |
31 | mov r4, r1 | |
32 | mov r5, r0 | |
33 | mov r6, #0 ; 0x0 | |
34 | orrs ip, r3, r2, lsr #31 | |
35 | bne __aeabi_uldivmod_label1 | |
36 | tst r2, r2 | |
37 | beq _ll_div0 | |
38 | movs ip, r2, lsr #15 | |
39 | addeq r6, r6, #16 ; 0x10 | |
40 | mov ip, r2, lsl r6 | |
41 | movs lr, ip, lsr #23 | |
42 | moveq ip, ip, lsl #8 | |
43 | addeq r6, r6, #8 ; 0x8 | |
44 | movs lr, ip, lsr #27 | |
45 | moveq ip, ip, lsl #4 | |
46 | addeq r6, r6, #4 ; 0x4 | |
47 | movs lr, ip, lsr #29 | |
48 | moveq ip, ip, lsl #2 | |
49 | addeq r6, r6, #2 ; 0x2 | |
50 | movs lr, ip, lsr #30 | |
51 | moveq ip, ip, lsl #1 | |
52 | addeq r6, r6, #1 ; 0x1 | |
53 | b _ll_udiv_small | |
54 | __aeabi_uldivmod_label1 | |
55 | tst r3, #-2147483648 ; 0x80000000 | |
56 | bne __aeabi_uldivmod_label2 | |
57 | movs ip, r3, lsr #15 | |
58 | addeq r6, r6, #16 ; 0x10 | |
59 | mov ip, r3, lsl r6 | |
60 | movs lr, ip, lsr #23 | |
61 | moveq ip, ip, lsl #8 | |
62 | addeq r6, r6, #8 ; 0x8 | |
63 | movs lr, ip, lsr #27 | |
64 | moveq ip, ip, lsl #4 | |
65 | addeq r6, r6, #4 ; 0x4 | |
66 | movs lr, ip, lsr #29 | |
67 | moveq ip, ip, lsl #2 | |
68 | addeq r6, r6, #2 ; 0x2 | |
69 | movs lr, ip, lsr #30 | |
70 | addeq r6, r6, #1 ; 0x1 | |
71 | rsb r3, r6, #32 ; 0x20 | |
72 | moveq ip, ip, lsl #1 | |
73 | orr ip, ip, r2, lsr r3 | |
74 | mov lr, r2, lsl r6 | |
75 | b _ll_udiv_big | |
76 | __aeabi_uldivmod_label2 | |
77 | mov ip, r3 | |
78 | mov lr, r2 | |
79 | b _ll_udiv_ginormous | |
80 | ||
81 | _ll_udiv_small | |
82 | cmp r4, ip, lsl #1 | |
83 | mov r3, #0 ; 0x0 | |
84 | subcs r4, r4, ip, lsl #1 | |
85 | addcs r3, r3, #2 ; 0x2 | |
86 | cmp r4, ip | |
87 | subcs r4, r4, ip | |
88 | adcs r3, r3, #0 ; 0x0 | |
89 | add r2, r6, #32 ; 0x20 | |
90 | cmp r2, #32 ; 0x20 | |
91 | rsb ip, ip, #0 ; 0x0 | |
92 | bcc _ll_udiv_small_label1 | |
93 | orrs r0, r4, r5, lsr #30 | |
94 | moveq r4, r5 | |
95 | moveq r5, #0 ; 0x0 | |
96 | subeq r2, r2, #32 ; 0x20 | |
97 | _ll_udiv_small_label1 | |
98 | mov r1, #0 ; 0x0 | |
99 | cmp r2, #16 ; 0x10 | |
100 | bcc _ll_udiv_small_label2 | |
101 | movs r0, r4, lsr #14 | |
102 | moveq r4, r4, lsl #16 | |
103 | addeq r1, r1, #16 ; 0x10 | |
104 | _ll_udiv_small_label2 | |
105 | sub lr, r2, r1 | |
106 | cmp lr, #8 ; 0x8 | |
107 | bcc _ll_udiv_small_label3 | |
108 | movs r0, r4, lsr #22 | |
109 | moveq r4, r4, lsl #8 | |
110 | addeq r1, r1, #8 ; 0x8 | |
111 | _ll_udiv_small_label3 | |
112 | rsb r0, r1, #32 ; 0x20 | |
113 | sub r2, r2, r1 | |
114 | orr r4, r4, r5, lsr r0 | |
115 | mov r5, r5, lsl r1 | |
116 | cmp r2, #1 ; 0x1 | |
117 | bcc _ll_udiv_small_label5 | |
118 | sub r2, r2, #1 ; 0x1 | |
119 | and r0, r2, #7 ; 0x7 | |
120 | eor r0, r0, #7 ; 0x7 | |
121 | adds r0, r0, r0, lsl #1 | |
122 | add pc, pc, r0, lsl #2 | |
123 | nop ; (mov r0,r0) | |
124 | _ll_udiv_small_label4 | |
125 | adcs r5, r5, r5 | |
126 | adcs r4, ip, r4, lsl #1 | |
127 | rsbcc r4, ip, r4 | |
128 | adcs r5, r5, r5 | |
129 | adcs r4, ip, r4, lsl #1 | |
130 | rsbcc r4, ip, r4 | |
131 | adcs r5, r5, r5 | |
132 | adcs r4, ip, r4, lsl #1 | |
133 | rsbcc r4, ip, r4 | |
134 | adcs r5, r5, r5 | |
135 | adcs r4, ip, r4, lsl #1 | |
136 | rsbcc r4, ip, r4 | |
137 | adcs r5, r5, r5 | |
138 | adcs r4, ip, r4, lsl #1 | |
139 | rsbcc r4, ip, r4 | |
140 | adcs r5, r5, r5 | |
141 | adcs r4, ip, r4, lsl #1 | |
142 | rsbcc r4, ip, r4 | |
143 | adcs r5, r5, r5 | |
144 | adcs r4, ip, r4, lsl #1 | |
145 | rsbcc r4, ip, r4 | |
146 | adcs r5, r5, r5 | |
147 | adcs r4, ip, r4, lsl #1 | |
148 | sub r2, r2, #8 ; 0x8 | |
149 | tst r2, r2 | |
150 | rsbcc r4, ip, r4 | |
151 | bpl _ll_udiv_small_label4 | |
152 | _ll_udiv_small_label5 | |
153 | mov r2, r4, lsr r6 | |
154 | bic r4, r4, r2, lsl r6 | |
155 | adcs r0, r5, r5 | |
156 | adc r1, r4, r4 | |
157 | add r1, r1, r3, lsl r6 | |
158 | mov r3, #0 ; 0x0 | |
159 | ldmia sp!, {r4, r5, r6, pc} | |
160 | ||
161 | _ll_udiv_big | |
162 | subs r0, r5, lr | |
163 | mov r3, #0 ; 0x0 | |
164 | sbcs r1, r4, ip | |
165 | movcs r5, r0 | |
166 | movcs r4, r1 | |
167 | adcs r3, r3, #0 ; 0x0 | |
168 | subs r0, r5, lr | |
169 | sbcs r1, r4, ip | |
170 | movcs r5, r0 | |
171 | movcs r4, r1 | |
172 | adcs r3, r3, #0 ; 0x0 | |
173 | subs r0, r5, lr | |
174 | sbcs r1, r4, ip | |
175 | movcs r5, r0 | |
176 | movcs r4, r1 | |
177 | adcs r3, r3, #0 ; 0x0 | |
178 | mov r1, #0 ; 0x0 | |
179 | rsbs lr, lr, #0 ; 0x0 | |
180 | rsc ip, ip, #0 ; 0x0 | |
181 | cmp r6, #16 ; 0x10 | |
182 | bcc _ll_udiv_big_label1 | |
183 | movs r0, r4, lsr #14 | |
184 | moveq r4, r4, lsl #16 | |
185 | addeq r1, r1, #16 ; 0x10 | |
186 | _ll_udiv_big_label1 | |
187 | sub r2, r6, r1 | |
188 | cmp r2, #8 ; 0x8 | |
189 | bcc _ll_udiv_big_label2 | |
190 | movs r0, r4, lsr #22 | |
191 | moveq r4, r4, lsl #8 | |
192 | addeq r1, r1, #8 ; 0x8 | |
193 | _ll_udiv_big_label2 | |
194 | rsb r0, r1, #32 ; 0x20 | |
195 | sub r2, r6, r1 | |
196 | orr r4, r4, r5, lsr r0 | |
197 | mov r5, r5, lsl r1 | |
198 | cmp r2, #1 ; 0x1 | |
199 | bcc _ll_udiv_big_label4 | |
200 | sub r2, r2, #1 ; 0x1 | |
201 | and r0, r2, #3 ; 0x3 | |
202 | rsb r0, r0, #3 ; 0x3 | |
203 | adds r0, r0, r0, lsl #1 | |
204 | add pc, pc, r0, lsl #3 | |
205 | nop ; (mov r0,r0) | |
206 | _ll_udiv_big_label3 | |
207 | adcs r5, r5, r5 | |
208 | adcs r4, r4, r4 | |
209 | adcs r0, lr, r5 | |
210 | adcs r1, ip, r4 | |
211 | movcs r5, r0 | |
212 | movcs r4, r1 | |
213 | adcs r5, r5, r5 | |
214 | adcs r4, r4, r4 | |
215 | adcs r0, lr, r5 | |
216 | adcs r1, ip, r4 | |
217 | movcs r5, r0 | |
218 | movcs r4, r1 | |
219 | adcs r5, r5, r5 | |
220 | adcs r4, r4, r4 | |
221 | adcs r0, lr, r5 | |
222 | adcs r1, ip, r4 | |
223 | movcs r5, r0 | |
224 | movcs r4, r1 | |
225 | sub r2, r2, #4 ; 0x4 | |
226 | adcs r5, r5, r5 | |
227 | adcs r4, r4, r4 | |
228 | adcs r0, lr, r5 | |
229 | adcs r1, ip, r4 | |
230 | tst r2, r2 | |
231 | movcs r5, r0 | |
232 | movcs r4, r1 | |
233 | bpl _ll_udiv_big_label3 | |
234 | _ll_udiv_big_label4 | |
235 | mov r1, #0 ; 0x0 | |
236 | mov r2, r5, lsr r6 | |
237 | bic r5, r5, r2, lsl r6 | |
238 | adcs r0, r5, r5 | |
239 | adc r1, r1, #0 ; 0x0 | |
240 | movs lr, r3, lsl r6 | |
241 | mov r3, r4, lsr r6 | |
242 | bic r4, r4, r3, lsl r6 | |
243 | adc r1, r1, #0 ; 0x0 | |
244 | adds r0, r0, lr | |
245 | orr r2, r2, r4, ror r6 | |
246 | adc r1, r1, #0 ; 0x0 | |
247 | ldmia sp!, {r4, r5, r6, pc} | |
248 | ||
249 | _ll_udiv_ginormous | |
250 | subs r2, r5, lr | |
251 | mov r1, #0 ; 0x0 | |
252 | sbcs r3, r4, ip | |
253 | adc r0, r1, r1 | |
254 | movcc r2, r5 | |
255 | movcc r3, r4 | |
256 | ldmia sp!, {r4, r5, r6, pc} | |
257 | ||
258 | _ll_div0 | |
259 | ldmia sp!, {r4, r5, r6, lr} | |
260 | mov r0, #0 ; 0x0 | |
261 | mov r1, #0 ; 0x0 | |
262 | b __aeabi_ldiv0 | |
263 | ||
264 | __aeabi_ldiv0 | |
265 | BX r14 | |
266 | ||
267 | END | |
268 |