summaryrefslogtreecommitdiffstats
path: root/ArmPkg/Library/CompilerIntrinsicsLib/Arm/uldiv.asm
blob: e143052a712f2a678654ce66088b506c67d8fd8b (plain)
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
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
//------------------------------------------------------------------------------
//
// Copyright (c) 2008 - 2009, Apple Inc. All rights reserved.<BR>
// Copyright (c) 2018, Pete Batard. All rights reserved.<BR>
//
// SPDX-License-Identifier: BSD-2-Clause-Patent
//
//------------------------------------------------------------------------------


    EXPORT  __aeabi_uldivmod
    EXPORT  __rt_udiv64

    AREA  s___aeabi_uldivmod, CODE, READONLY, ARM

    ARM

;
;UINT64
;EFIAPI
;__rt_udiv64 (
;  IN  UINT64   Divisor
;  IN  UINT64   Dividend
;  )
;
__rt_udiv64
  ; Swap r0-r1 and r2-r3
  mov     r12, r0
  mov     r0, r2
  mov     r2, r12
  mov     r12, r1
  mov     r1, r3
  mov     r3, r12
  b       __aeabi_uldivmod

;
;UINT64
;EFIAPI
;__aeabi_uldivmod (
;  IN  UINT64   Dividend
;  IN  UINT64   Divisor
;  )
;
__aeabi_uldivmod
  stmdb   sp!, {r4, r5, r6, lr}
  mov     r4, r1
  mov     r5, r0
  mov     r6, #0  ; 0x0
  orrs    ip, r3, r2, lsr #31
  bne     __aeabi_uldivmod_label1
  tst     r2, r2
  beq     _ll_div0
  movs    ip, r2, lsr #15
  addeq   r6, r6, #16     ; 0x10
  mov     ip, r2, lsl r6
  movs    lr, ip, lsr #23
  moveq   ip, ip, lsl #8
  addeq   r6, r6, #8      ; 0x8
  movs    lr, ip, lsr #27
  moveq   ip, ip, lsl #4
  addeq   r6, r6, #4      ; 0x4
  movs    lr, ip, lsr #29
  moveq   ip, ip, lsl #2
  addeq   r6, r6, #2      ; 0x2
  movs    lr, ip, lsr #30
  moveq   ip, ip, lsl #1
  addeq   r6, r6, #1      ; 0x1
  b       _ll_udiv_small
__aeabi_uldivmod_label1
  tst     r3, #-2147483648        ; 0x80000000
  bne     __aeabi_uldivmod_label2
  movs    ip, r3, lsr #15
  addeq   r6, r6, #16     ; 0x10
  mov     ip, r3, lsl r6
  movs    lr, ip, lsr #23
  moveq   ip, ip, lsl #8
  addeq   r6, r6, #8      ; 0x8
  movs    lr, ip, lsr #27
  moveq   ip, ip, lsl #4
  addeq   r6, r6, #4      ; 0x4
  movs    lr, ip, lsr #29
  moveq   ip, ip, lsl #2
  addeq   r6, r6, #2      ; 0x2
  movs    lr, ip, lsr #30
  addeq   r6, r6, #1      ; 0x1
  rsb     r3, r6, #32     ; 0x20
  moveq   ip, ip, lsl #1
  orr     ip, ip, r2, lsr r3
  mov     lr, r2, lsl r6
  b       _ll_udiv_big
__aeabi_uldivmod_label2
  mov     ip, r3
  mov     lr, r2
  b       _ll_udiv_ginormous

_ll_udiv_small
  cmp     r4, ip, lsl #1
  mov     r3, #0  ; 0x0
  subcs   r4, r4, ip, lsl #1
  addcs   r3, r3, #2      ; 0x2
  cmp     r4, ip
  subcs   r4, r4, ip
  adcs    r3, r3, #0      ; 0x0
  add     r2, r6, #32     ; 0x20
  cmp     r2, #32 ; 0x20
  rsb     ip, ip, #0      ; 0x0
  bcc     _ll_udiv_small_label1
  orrs    r0, r4, r5, lsr #30
  moveq   r4, r5
  moveq   r5, #0  ; 0x0
  subeq   r2, r2, #32     ; 0x20
_ll_udiv_small_label1
  mov     r1, #0  ; 0x0
  cmp     r2, #16 ; 0x10
  bcc     _ll_udiv_small_label2
  movs    r0, r4, lsr #14
  moveq   r4, r4, lsl #16
  addeq   r1, r1, #16     ; 0x10
_ll_udiv_small_label2
  sub     lr, r2, r1
  cmp     lr, #8  ; 0x8
  bcc     _ll_udiv_small_label3
  movs    r0, r4, lsr #22
  moveq   r4, r4, lsl #8
  addeq   r1, r1, #8      ; 0x8
_ll_udiv_small_label3
  rsb     r0, r1, #32     ; 0x20
  sub     r2, r2, r1
  orr     r4, r4, r5, lsr r0
  mov     r5, r5, lsl r1
  cmp     r2, #1  ; 0x1
  bcc     _ll_udiv_small_label5
  sub     r2, r2, #1      ; 0x1
  and     r0, r2, #7      ; 0x7
  eor     r0, r0, #7      ; 0x7
  adds    r0, r0, r0, lsl #1
  add     pc, pc, r0, lsl #2
  nop                     ; (mov r0,r0)
_ll_udiv_small_label4
  adcs    r5, r5, r5
  adcs    r4, ip, r4, lsl #1
  rsbcc   r4, ip, r4
  adcs    r5, r5, r5
  adcs    r4, ip, r4, lsl #1
  rsbcc   r4, ip, r4
  adcs    r5, r5, r5
  adcs    r4, ip, r4, lsl #1
  rsbcc   r4, ip, r4
  adcs    r5, r5, r5
  adcs    r4, ip, r4, lsl #1
  rsbcc   r4, ip, r4
  adcs    r5, r5, r5
  adcs    r4, ip, r4, lsl #1
  rsbcc   r4, ip, r4
  adcs    r5, r5, r5
  adcs    r4, ip, r4, lsl #1
  rsbcc   r4, ip, r4
  adcs    r5, r5, r5
  adcs    r4, ip, r4, lsl #1
  rsbcc   r4, ip, r4
  adcs    r5, r5, r5
  adcs    r4, ip, r4, lsl #1
  sub     r2, r2, #8      ; 0x8
  tst     r2, r2
  rsbcc   r4, ip, r4
  bpl     _ll_udiv_small_label4
_ll_udiv_small_label5
  mov     r2, r4, lsr r6
  bic     r4, r4, r2, lsl r6
  adcs    r0, r5, r5
  adc     r1, r4, r4
  add     r1, r1, r3, lsl r6
  mov     r3, #0  ; 0x0
  ldmia   sp!, {r4, r5, r6, pc}

_ll_udiv_big
  subs    r0, r5, lr
  mov     r3, #0  ; 0x0
  sbcs    r1, r4, ip
  movcs   r5, r0
  movcs   r4, r1
  adcs    r3, r3, #0      ; 0x0
  subs    r0, r5, lr
  sbcs    r1, r4, ip
  movcs   r5, r0
  movcs   r4, r1
  adcs    r3, r3, #0      ; 0x0
  subs    r0, r5, lr
  sbcs    r1, r4, ip
  movcs   r5, r0
  movcs   r4, r1
  adcs    r3, r3, #0      ; 0x0
  mov     r1, #0  ; 0x0
  rsbs    lr, lr, #0      ; 0x0
  rsc     ip, ip, #0      ; 0x0
  cmp     r6, #16 ; 0x10
  bcc     _ll_udiv_big_label1
  movs    r0, r4, lsr #14
  moveq   r4, r4, lsl #16
  addeq   r1, r1, #16     ; 0x10
_ll_udiv_big_label1
  sub     r2, r6, r1
  cmp     r2, #8  ; 0x8
  bcc     _ll_udiv_big_label2
  movs    r0, r4, lsr #22
  moveq   r4, r4, lsl #8
  addeq   r1, r1, #8      ; 0x8
_ll_udiv_big_label2
  rsb     r0, r1, #32     ; 0x20
  sub     r2, r6, r1
  orr     r4, r4, r5, lsr r0
  mov     r5, r5, lsl r1
  cmp     r2, #1  ; 0x1
  bcc     _ll_udiv_big_label4
  sub     r2, r2, #1      ; 0x1
  and     r0, r2, #3      ; 0x3
  rsb     r0, r0, #3      ; 0x3
  adds    r0, r0, r0, lsl #1
  add     pc, pc, r0, lsl #3
  nop                     ; (mov r0,r0)
_ll_udiv_big_label3
  adcs    r5, r5, r5
  adcs    r4, r4, r4
  adcs    r0, lr, r5
  adcs    r1, ip, r4
  movcs   r5, r0
  movcs   r4, r1
  adcs    r5, r5, r5
  adcs    r4, r4, r4
  adcs    r0, lr, r5
  adcs    r1, ip, r4
  movcs   r5, r0
  movcs   r4, r1
  adcs    r5, r5, r5
  adcs    r4, r4, r4
  adcs    r0, lr, r5
  adcs    r1, ip, r4
  movcs   r5, r0
  movcs   r4, r1
  sub     r2, r2, #4      ; 0x4
  adcs    r5, r5, r5
  adcs    r4, r4, r4
  adcs    r0, lr, r5
  adcs    r1, ip, r4
  tst     r2, r2
  movcs   r5, r0
  movcs   r4, r1
  bpl     _ll_udiv_big_label3
_ll_udiv_big_label4
  mov     r1, #0  ; 0x0
  mov     r2, r5, lsr r6
  bic     r5, r5, r2, lsl r6
  adcs    r0, r5, r5
  adc     r1, r1, #0      ; 0x0
  movs    lr, r3, lsl r6
  mov     r3, r4, lsr r6
  bic     r4, r4, r3, lsl r6
  adc     r1, r1, #0      ; 0x0
  adds    r0, r0, lr
  orr     r2, r2, r4, ror r6
  adc     r1, r1, #0      ; 0x0
  ldmia   sp!, {r4, r5, r6, pc}

_ll_udiv_ginormous
  subs    r2, r5, lr
  mov     r1, #0  ; 0x0
  sbcs    r3, r4, ip
  adc     r0, r1, r1
  movcc   r2, r5
  movcc   r3, r4
  ldmia   sp!, {r4, r5, r6, pc}

_ll_div0
  ldmia   sp!, {r4, r5, r6, lr}
  mov     r0, #0  ; 0x0
  mov     r1, #0  ; 0x0
  b       __aeabi_ldiv0

__aeabi_ldiv0
  bx        r14

  END