summaryrefslogtreecommitdiff
path: root/vere/ext/gmp/gen/aarch64-macos/mpn/rshift.s
blob: a27751987ba3270cf2882394be54107a147e06a9 (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



































































	.text
	.align	3
	.globl	___gmpn_rshift 
	
___gmpn_rshift:
	mov	x16, x0
	sub	x8, xzr, x3
	lsr	x17, x2, #2
	tbz	x2, #0, Lbx0

Lbx1:	ldr	x5, [x1]
	tbnz	x2, #1, Lb11

Lb01:	lsl	x0, x5, x8
	lsr	x2, x5, x3
	cbnz	x17, Lgt1
	str	x2, [x16]
	ret
Lgt1:	ldp	x4, x5, [x1,#8]
	sub	x1, x1, #8
	sub	x16, x16, #32
	b	Llo2

Lb11:	lsl	x0, x5, x8
	lsr	x2, x5, x3
	ldp	x6, x7, [x1,#8]!
	sub	x16, x16, #16
	b	Llo3

Lbx0:	ldp	x4, x5, [x1]
	tbz	x2, #1, Lb00

Lb10:	lsl	x0, x4, x8
	lsr	x13, x4, x3
	lsl	x10, x5, x8
	lsr	x2, x5, x3
	cbnz	x17, Lgt2
	orr	x10, x10, x13
	stp	x10, x2, [x16]
	ret
Lgt2:	ldp	x4, x5, [x1,#16]
	orr	x10, x10, x13
	str	x10, [x16],#-24
	b	Llo2

Lb00:	lsl	x0, x4, x8
	lsr	x13, x4, x3
	lsl	x10, x5, x8
	lsr	x2, x5, x3
	ldp	x6, x7, [x1,#16]!
	orr	x10, x10, x13
	str	x10, [x16],#-8
	b	Llo0

	.align	4
Ltop:	ldp	x4, x5, [x1,#16]
	orr	x10, x10, x13
	orr	x11, x12, x2
	stp	x11, x10, [x16,#16]
	lsr	x2, x7, x3
Llo2:	lsl	x10, x5, x8
	lsl	x12, x4, x8
	lsr	x13, x4, x3
	ldp	x6, x7, [x1,#32]!
	orr	x10, x10, x13
	orr	x11, x12, x2
	stp	x11, x10, [x16,#32]!
	lsr	x2, x5, x3
Llo0:	sub	x17, x17, #1
Llo3:	lsl	x10, x7, x8
	lsl	x12, x6, x8
	lsr	x13, x6, x3
	cbnz	x17, Ltop

Lend:	orr	x10, x10, x13
	orr	x11, x12, x2
	lsr	x2, x7, x3
	stp	x11, x10, [x16,#16]
	str	x2, [x16,#32]
	ret