summaryrefslogtreecommitdiff
path: root/vere/ext/gmp/gen/aarch64-linux/mpn/lshift.s
blob: 8d395930a724cda9d11c9202476e880ad5ae8dc6 (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



































































	.text
	.align	3
	.globl	__gmpn_lshift 
	.type	__gmpn_lshift,@function
__gmpn_lshift:
	add	x16, x0, x2, lsl #3
	add	x1, x1, x2, lsl #3
	sub	x8, xzr, x3
	lsr	x18, x2, #2
	tbz	x2, #0, .Lbx0

.Lbx1:	ldr	x4, [x1,#-8]
	tbnz	x2, #1, .Lb11

.Lb01:	lsr	x0, x4, x8
	lsl	x2, x4, x3
	cbnz	x18, .Lgt1
	str	x2, [x16,#-8]
	ret
.Lgt1:	ldp	x4, x5, [x1,#-24]
	sub	x1, x1, #8
	add	x16, x16, #16
	b	.Llo2

.Lb11:	lsr	x0, x4, x8
	lsl	x2, x4, x3
	ldp	x6, x7, [x1,#-24]!
	b	.Llo3

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

.Lb10:	lsr	x0, x5, x8
	lsl	x13, x5, x3
	lsr	x10, x4, x8
	lsl	x2, x4, x3
	cbnz	x18, .Lgt2
	orr	x10, x10, x13
	stp	x2, x10, [x16,#-16]
	ret
.Lgt2:	ldp	x4, x5, [x1,#-32]
	orr	x10, x10, x13
	str	x10, [x16,#-8]
	sub	x1, x1, #16
	add	x16, x16, #8
	b	.Llo2

.Lb00:	lsr	x0, x5, x8
	lsl	x13, x5, x3
	lsr	x10, x4, x8
	lsl	x2, x4, x3
	ldp	x6, x7, [x1,#-32]!
	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	x10, x11, [x16,#-16]
	lsl	x2, x6, x3
.Llo2:	lsr	x10, x4, x8
	lsl	x13, x5, x3
	lsr	x12, x5, x8
	ldp	x6, x7, [x1,#-32]!
	orr	x10, x10, x13
	orr	x11, x12, x2
	stp	x10, x11, [x16,#-32]!
	lsl	x2, x4, x3
.Llo0:	sub	x18, x18, #1
.Llo3:	lsr	x10, x6, x8
	lsl	x13, x7, x3
	lsr	x12, x7, x8
	cbnz	x18, .Ltop

.Lend:	orr	x10, x10, x13
	orr	x11, x12, x2
	lsl	x2, x6, x3
	stp	x10, x11, [x16,#-16]
	str	x2, [x16,#-24]
	ret
	.size	__gmpn_lshift,.-__gmpn_lshift