| blob | 973401f801826421c4fd01641722348edabbf653 |
2 for the sparclite processor.
4 These routines are all from the SPARClite User's Guide, slightly edited
5 to match the desired calling convention, and also to optimize them. */
7 #ifdef L_udivsi3
8 .text
9 .align 4
10 .global .udiv
11 .proc 04
12 .udiv:
13 wr %g0,%g0,%y ! Not a delayed write for sparclite
14 tst %g0
15 divscc %o0,%o1,%g1
16 divscc %g1,%o1,%g1
17 divscc %g1,%o1,%g1
18 divscc %g1,%o1,%g1
19 divscc %g1,%o1,%g1
20 divscc %g1,%o1,%g1
21 divscc %g1,%o1,%g1
22 divscc %g1,%o1,%g1
23 divscc %g1,%o1,%g1
24 divscc %g1,%o1,%g1
25 divscc %g1,%o1,%g1
26 divscc %g1,%o1,%g1
27 divscc %g1,%o1,%g1
28 divscc %g1,%o1,%g1
29 divscc %g1,%o1,%g1
30 divscc %g1,%o1,%g1
31 divscc %g1,%o1,%g1
32 divscc %g1,%o1,%g1
33 divscc %g1,%o1,%g1
34 divscc %g1,%o1,%g1
35 divscc %g1,%o1,%g1
36 divscc %g1,%o1,%g1
37 divscc %g1,%o1,%g1
38 divscc %g1,%o1,%g1
39 divscc %g1,%o1,%g1
40 divscc %g1,%o1,%g1
41 divscc %g1,%o1,%g1
42 divscc %g1,%o1,%g1
43 divscc %g1,%o1,%g1
44 divscc %g1,%o1,%g1
45 divscc %g1,%o1,%g1
46 retl
47 divscc %g1,%o1,%o0
48 #endif
50 #ifdef L_umodsi3
51 .text
52 .align 4
53 .global .urem
54 .proc 04
55 .urem:
56 wr %g0,%g0,%y ! Not a delayed write for sparclite
57 tst %g0
58 divscc %o0,%o1,%g1
59 divscc %g1,%o1,%g1
60 divscc %g1,%o1,%g1
61 divscc %g1,%o1,%g1
62 divscc %g1,%o1,%g1
63 divscc %g1,%o1,%g1
64 divscc %g1,%o1,%g1
65 divscc %g1,%o1,%g1
66 divscc %g1,%o1,%g1
67 divscc %g1,%o1,%g1
68 divscc %g1,%o1,%g1
69 divscc %g1,%o1,%g1
70 divscc %g1,%o1,%g1
71 divscc %g1,%o1,%g1
72 divscc %g1,%o1,%g1
73 divscc %g1,%o1,%g1
74 divscc %g1,%o1,%g1
75 divscc %g1,%o1,%g1
76 divscc %g1,%o1,%g1
77 divscc %g1,%o1,%g1
78 divscc %g1,%o1,%g1
79 divscc %g1,%o1,%g1
80 divscc %g1,%o1,%g1
81 divscc %g1,%o1,%g1
82 divscc %g1,%o1,%g1
83 divscc %g1,%o1,%g1
84 divscc %g1,%o1,%g1
85 divscc %g1,%o1,%g1
86 divscc %g1,%o1,%g1
87 divscc %g1,%o1,%g1
88 divscc %g1,%o1,%g1
89 divscc %g1,%o1,%g1
90 bl 1f
91 rd %y,%o0
92 retl
93 nop
94 1: retl
95 add %o0,%o1,%o0
96 #endif
98 #ifdef L_divsi3
99 .text
100 .align 4
101 .global .div
102 .proc 04
103 ! ??? This routine could be made faster if was optimized, and if it was
104 ! rewritten to only calculate the quotient.
105 .div:
106 wr %g0,%g0,%y ! Not a delayed write for sparclite
107 mov %o1,%o4
108 tst %o1
109 bl,a 1f
110 sub %g0,%o4,%o4
111 1: tst %o0
112 bl,a 2f
113 mov -1,%y
114 2: divscc %o0,%o4,%g1
115 divscc %g1,%o4,%g1
116 divscc %g1,%o4,%g1
117 divscc %g1,%o4,%g1
118 divscc %g1,%o4,%g1
119 divscc %g1,%o4,%g1
120 divscc %g1,%o4,%g1
121 divscc %g1,%o4,%g1
122 divscc %g1,%o4,%g1
123 divscc %g1,%o4,%g1
124 divscc %g1,%o4,%g1
125 divscc %g1,%o4,%g1
126 divscc %g1,%o4,%g1
127 divscc %g1,%o4,%g1
128 divscc %g1,%o4,%g1
129 divscc %g1,%o4,%g1
130 divscc %g1,%o4,%g1
131 divscc %g1,%o4,%g1
132 divscc %g1,%o4,%g1
133 divscc %g1,%o4,%g1
134 divscc %g1,%o4,%g1
135 divscc %g1,%o4,%g1
136 divscc %g1,%o4,%g1
137 divscc %g1,%o4,%g1
138 divscc %g1,%o4,%g1
139 divscc %g1,%o4,%g1
140 divscc %g1,%o4,%g1
141 divscc %g1,%o4,%g1
142 divscc %g1,%o4,%g1
143 divscc %g1,%o4,%g1
144 divscc %g1,%o4,%g1
145 divscc %g1,%o4,%g1
146 be 6f
147 mov %y,%o3
148 bg 4f
149 addcc %o3,%o4,%g0
150 be,a 6f
151 mov %g0,%o3
152 tst %o0
153 bl 5f
154 tst %g1
155 ba 5f
156 add %o3,%o4,%o3
157 4: subcc %o3,%o4,%g0
158 be,a 6f
159 mov %g0,%o3
160 tst %o0
161 bge 5f
162 tst %g1
163 sub %o3,%o4,%o3
164 5: bl,a 6f
165 add %g1,1,%g1
166 6: tst %o1
167 bl,a 7f
168 sub %g0,%g1,%g1
169 7: retl
170 mov %g1,%o0 ! Quotient is in %g1.
171 #endif
173 #ifdef L_modsi3
174 .text
175 .align 4
176 .global .rem
177 .proc 04
178 ! ??? This routine could be made faster if was optimized, and if it was
179 ! rewritten to only calculate the remainder.
180 .rem:
181 wr %g0,%g0,%y ! Not a delayed write for sparclite
182 mov %o1,%o4
183 tst %o1
184 bl,a 1f
185 sub %g0,%o4,%o4
186 1: tst %o0
187 bl,a 2f
188 mov -1,%y
189 2: divscc %o0,%o4,%g1
190 divscc %g1,%o4,%g1
191 divscc %g1,%o4,%g1
192 divscc %g1,%o4,%g1
193 divscc %g1,%o4,%g1
194 divscc %g1,%o4,%g1
195 divscc %g1,%o4,%g1
196 divscc %g1,%o4,%g1
197 divscc %g1,%o4,%g1
198 divscc %g1,%o4,%g1
199 divscc %g1,%o4,%g1
200 divscc %g1,%o4,%g1
201 divscc %g1,%o4,%g1
202 divscc %g1,%o4,%g1
203 divscc %g1,%o4,%g1
204 divscc %g1,%o4,%g1
205 divscc %g1,%o4,%g1
206 divscc %g1,%o4,%g1
207 divscc %g1,%o4,%g1
208 divscc %g1,%o4,%g1
209 divscc %g1,%o4,%g1
210 divscc %g1,%o4,%g1
211 divscc %g1,%o4,%g1
212 divscc %g1,%o4,%g1
213 divscc %g1,%o4,%g1
214 divscc %g1,%o4,%g1
215 divscc %g1,%o4,%g1
216 divscc %g1,%o4,%g1
217 divscc %g1,%o4,%g1
218 divscc %g1,%o4,%g1
219 divscc %g1,%o4,%g1
220 divscc %g1,%o4,%g1
221 be 6f
222 mov %y,%o3
223 bg 4f
224 addcc %o3,%o4,%g0
225 be,a 6f
226 mov %g0,%o3
227 tst %o0
228 bl 5f
229 tst %g1
230 ba 5f
231 add %o3,%o4,%o3
232 4: subcc %o3,%o4,%g0
233 be,a 6f
234 mov %g0,%o3
235 tst %o0
236 bge 5f
237 tst %g1
238 sub %o3,%o4,%o3
239 5: bl,a 6f
240 add %g1,1,%g1
241 6: tst %o1
242 bl,a 7f
243 sub %g0,%g1,%g1
244 7: retl
245 mov %o3,%o0 ! Remainder is in %o3.
246 #endif