| blob | 932dace6f19f514f92db6e51b8cfdba250dbd173 |
1 --- src.orig/arisparc.d Thu Dec 6 00:06:32 2007
2 +++ src/arisparc.d Mon Feb 2 15:35:22 2009
3 @@ -100,11 +100,11 @@
5 # extern struct { uint32 lo; uint32 hi; } mulu32_ (uint32 arg1, uint32 arg2);
6 # 2^32*hi+lo := arg1*arg2.
7 -C(mulu32_:) # Input in %o0,%o1, Output in %o0,%g1
8 +C(mulu32_:) # Input in %o0,%o1, Output in %o0,%g3
9 #ifdef sparcv8
10 umul %o0,%o1,%o0
11 retl
12 - _ rd %y,%g1
13 + _ rd %y,%g3
14 #else
15 mov %o1,%y
16 sra %o0,31,%o3 # Wartetakt, nötig z.B. für SUN SPARCstation IPC
17 @@ -143,7 +143,7 @@
18 mulscc %o2,%o0,%o2
19 mulscc %o2,%g0,%o2
20 and %o3,%o1,%o3 # %o3 = (0 falls %o0>=0, %o1 falls %o0<0)
21 - add %o2,%o3,%g1 # hi
22 + add %o2,%o3,%g3 # hi
23 retl
24 _ rd %y,%o0 # lo
25 #endif
26 @@ -216,7 +216,7 @@
28 # extern struct { uint32 q; uint32 r; } divu_6432_3232_ (uint32 xhi, uint32 xlo, uint32 y);
29 # x = 2^32*xhi+xlo = q*y+r schreiben. Sei bekannt, dass 0 <= x < 2^32*y .
30 -C(divu_6432_3232_:) # Input in %o0,%o1,%o2, Output in %o0,%g1
31 +C(divu_6432_3232_:) # Input in %o0,%o1,%o2, Output in %o0,%g3
32 #if defined(sparcv8)
33 # Problem: Is udiv worth using (gmp-2.0.2 doesn't use it) ??
34 wr %o0,%g0,%y
35 @@ -224,9 +224,9 @@
36 nop # wait 2 | processors such as Ross Hypersparc,
37 nop # wait 3 | but not for most of the others.
38 udiv %o1,%o2,%o0 # x durch y dividieren, %o0 := q
39 - umul %o0,%o2,%g1 # %g1 := (q*y) mod 2^32
40 + umul %o0,%o2,%g3 # %g3 := (q*y) mod 2^32
41 retl
42 - _ sub %o1,%g1,%g1 # %g1 := (xlo-q*y) mod 2^32 = r
43 + _ sub %o1,%g3,%g3 # %g3 := (xlo-q*y) mod 2^32 = r
44 #else
45 # %o0 = xhi, %o1 = xlo, %o2 = y
46 # Divisions-Einzelschritte:
47 @@ -305,20 +305,20 @@
48 _ subcc %o0,%o2,%o3
49 subcc %o3,%o2,%o0 # muss der Quotient nochmals erhöht werden?
50 bcs Ll03
51 - _ mov %o3,%g1
52 + _ mov %o3,%g3
53 # Quotient 2 mal erhöhen, Rest %o0
54 - mov %o0,%g1
55 + mov %o0,%g3
56 retl
57 _ add %o1,2,%o0
58 Ll02: # kein Additions-Überlauf.
59 # Wegen y>=2^31 muss der Quotient noch höchstens 1 mal erhöht werden:
60 bcs Ll04 # %o0 < %o2 -> Rest %o0 und Quotient %o1 OK
61 - _ mov %o3,%g1
62 + _ mov %o3,%g3
63 Ll03: # Quotient %o1 erhöhen, Rest = %o0-%o2 = %o3
64 retl
65 _ add %o1,1,%o0
66 Ll04: # Quotient %o1 und Rest %o0 OK
67 - mov %o0,%g1
68 + mov %o0,%g3
69 retl
70 _ mov %o1,%o0
71 # Parallelschiene zu La01..La32:
72 @@ -366,20 +366,20 @@
73 _ subcc %o3,%o2,%o0
74 subcc %o0,%o2,%o3 # muss der Quotient nochmals erhöht werden?
75 bcs Ll06
76 - _ mov %o0,%g1
77 + _ mov %o0,%g3
78 # Quotient 2 mal erhöhen, Rest %o3
79 - mov %o3,%g1
80 + mov %o3,%g3
81 retl
82 _ add %o1,2,%o0
83 Ll05: # kein Additions-Überlauf.
84 # Wegen y>=2^31 muss der Quotient noch höchstens 1 mal erhöht werden:
85 bcs Ll07 # %o3 < %o2 -> Rest %o3 und Quotient %o1 OK
86 - _ mov %o0,%g1
87 + _ mov %o0,%g3
88 Ll06: # Quotient %o1 erhöhen, Rest = %o3-%o2 = %o0
89 retl
90 _ add %o1,1,%o0
91 Ll07: # Quotient %o1 und Rest %o3 OK
92 - mov %o3,%g1
93 + mov %o3,%g3
94 retl
95 _ mov %o1,%o0
96 Lsmalldiv: # Division durch y < 2^31
97 @@ -416,7 +416,7 @@
98 Lc29: SB0(); SA0(Ld30) # Bit 2 des Quotienten bestimmen
99 Lc30: SB0(); SA0(Ld31) # Bit 1 des Quotienten bestimmen
100 Lc31: SB0(); SA0(Ld32) # Bit 0 des Quotienten bestimmen
101 -Lc32: mov %o0,%g1 # Rest aus %o0 in %g1 abspeichern
102 +Lc32: mov %o0,%g3 # Rest aus %o0 in %g3 abspeichern
103 retl
104 _ xor %o1,-1,%o0 # Quotient nach %o0
105 # Parallelschiene zu Lc01..Lc32:
106 @@ -451,7 +451,7 @@
107 Ld29: SB1(); SA1(Lc30)
108 Ld30: SB1(); SA1(Lc31)
109 Ld31: SB1(); SA1(Lc32)
110 -Ld32: mov %o3,%g1 # Rest aus %o3 in %g1 abspeichern
111 +Ld32: mov %o3,%g3 # Rest aus %o3 in %g3 abspeichern
112 retl
113 _ xor %o1,-1,%o0 # Quotient nach %o0
114 Levendiv: # Division durch gerades y.
115 @@ -493,7 +493,7 @@
116 Le30: SB0(); SA0(Lf31) # Bit 1 des Quotienten bestimmen
117 Le31: SB0(); SA0(Lf32) # Bit 0 des Quotienten bestimmen
118 Le32: SB0() # Bit 0 des Restes bestimmen
119 - mov %o0,%g1 # Rest aus %o0 in %g1 abspeichern
120 + mov %o0,%g3 # Rest aus %o0 in %g3 abspeichern
121 retl
122 _ xor %o1,-1,%o0 # Quotient nach %o0
123 # Parallelschiene zu Le01..Le32:
124 @@ -529,7 +529,7 @@
125 Lf30: SB1(); SA1(Le31)
126 Lf31: SB1(); SA1(Le32)
127 Lf32: SB1()
128 - mov %o3,%g1 # Rest aus %o0 in %g1 abspeichern
129 + mov %o3,%g3 # Rest aus %o0 in %g3 abspeichern
130 retl
131 _ xor %o1,-1,%o0 # Quotient nach %o0
132 #endif
133 @@ -1205,18 +1205,18 @@
134 #endif
136 # extern uintD add_loop_down (uintD* sourceptr1, uintD* sourceptr2, uintD* destptr, uintC count);
137 -C(add_loop_down:) # Input in %o0,%o1,%o2,%o3, verändert %g1, Output in %o0
138 +C(add_loop_down:) # Input in %o0,%o1,%o2,%o3, verändert %g3, Output in %o0
139 #if STANDARD_LOOPS
140 andcc %o3,%o3,%g0
141 be Ll49
142 - _ mov %g0,%g1 # Carry := 0
143 + _ mov %g0,%g3 # Carry := 0
144 sub %o0,4,%o0
145 Ll48: ld [%o0],%o4 # source1-digit
146 sub %o1,4,%o1
147 ld [%o1],%o5 # source2-digit
148 - subcc %g0,%g1,%g0 # carry
149 + subcc %g0,%g3,%g0 # carry
150 addxcc %o4,%o5,%o4 # addieren
151 - addx %g0,%g0,%g1 # neuer Carry
152 + addx %g0,%g0,%g3 # neuer Carry
153 sub %o2,4,%o2
154 st %o4,[%o2] # Digit ablegen
155 subcc %o3,1,%o3
156 @@ -1223,12 +1223,12 @@
157 bne Ll48
158 _ sub %o0,4,%o0
159 Ll49: retl
160 - _ mov %g1,%o0
161 + _ mov %g3,%o0
162 #endif
163 #if COUNTER_LOOPS
164 andcc %o3,%o3,%g0
165 be Ll49
166 - _ mov %g0,%g1 # Carry := 0
167 + _ mov %g0,%g3 # Carry := 0
168 sub %o0,4,%o0
169 sub %o1,4,%o1
170 sll %o3,2,%o3 # %o3 = 4*count
171 @@ -1237,14 +1237,14 @@
172 sub %o2,%o3,%o2 # %o2 = &destptr[-count]
173 Ll48: ld [%o0+%o3],%o4 # source1-digit
174 ld [%o1+%o3],%o5 # source2-digit
175 - subcc %g0,%g1,%g0 # carry
176 + subcc %g0,%g3,%g0 # carry
177 addxcc %o4,%o5,%o4 # addieren
178 - addx %g0,%g0,%g1 # neuer Carry
179 + addx %g0,%g0,%g3 # neuer Carry
180 subcc %o3,4,%o3
181 bne Ll48
182 _ st %o4,[%o2+%o3] # Digit ablegen
183 Ll49: retl
184 - _ mov %g1,%o0
185 + _ mov %g3,%o0
186 #endif
187 #if UNROLLED_LOOPS
188 and %o3,7,%o4 # count mod 8
189 @@ -1257,7 +1257,7 @@
190 sub %o5,%o4,%o5
191 jmp %o5 # Sprung nach _add_loop_down+4*(12+4*8-4*(count mod 8))
192 _ subcc %g0,%g0,%g0 # carry löschen
193 -Ll48: subcc %g0,%g1,%g0 # carry
194 +Ll48: subcc %g0,%g3,%g0 # carry
195 ld [%o0+28],%o4 # source1-digit
196 ld [%o1+28],%o5 # source2-digit
197 addxcc %o5,%o4,%o5 # addieren
198 @@ -1290,7 +1290,7 @@
199 ld [%o1],%o5 # source2-digit
200 addxcc %o5,%o4,%o5 # addieren
201 st %o5,[%o2] # Digit ablegen
202 - addx %g0,%g0,%g1 # neuer Carry
203 + addx %g0,%g0,%g3 # neuer Carry
204 sub %o0,32,%o0
205 sub %o1,32,%o1
206 subcc %o3,8,%o3 # noch mindestens 8 Digits abzuarbeiten?
207 @@ -1297,7 +1297,7 @@
208 bcc Ll48
209 _ sub %o2,32,%o2
210 retl
211 - _ mov %g1,%o0
212 + _ mov %g3,%o0
213 #endif
215 # extern uintD addto_loop_down (uintD* sourceptr, uintD* destptr, uintC count);
216 @@ -1431,18 +1431,18 @@
217 #endif
219 # extern uintD sub_loop_down (uintD* sourceptr1, uintD* sourceptr2, uintD* destptr, uintC count);
220 -C(sub_loop_down:) # Input in %o0,%o1,%o2,%o3, verändert %g1, Output in %o0
221 +C(sub_loop_down:) # Input in %o0,%o1,%o2,%o3, verändert %g3, Output in %o0
222 #if STANDARD_LOOPS
223 andcc %o3,%o3,%g0
224 be Ll56
225 - _ mov %g0,%g1 # Carry := 0
226 + _ mov %g0,%g3 # Carry := 0
227 sub %o0,4,%o0
228 Ll55: ld [%o0],%o4 # source1-digit
229 sub %o1,4,%o1
230 ld [%o1],%o5 # source2-digit
231 - subcc %g0,%g1,%g0 # carry
232 + subcc %g0,%g3,%g0 # carry
233 subxcc %o4,%o5,%o4 # subtrahieren
234 - addx %g0,%g0,%g1 # neuer Carry
235 + addx %g0,%g0,%g3 # neuer Carry
236 sub %o2,4,%o2
237 st %o4,[%o2] # Digit ablegen
238 subcc %o3,1,%o3
239 @@ -1449,12 +1449,12 @@
240 bne Ll55
241 _ sub %o0,4,%o0
242 Ll56: retl
243 - _ mov %g1,%o0
244 + _ mov %g3,%o0
245 #endif
246 #if COUNTER_LOOPS
247 andcc %o3,%o3,%g0
248 be Ll56
249 - _ mov %g0,%g1 # Carry := 0
250 + _ mov %g0,%g3 # Carry := 0
251 sub %o0,4,%o0
252 sub %o1,4,%o1
253 sll %o3,2,%o3 # %o3 = 4*count
254 @@ -1463,14 +1463,14 @@
255 sub %o2,%o3,%o2 # %o2 = &destptr[-count]
256 Ll55: ld [%o0+%o3],%o4 # source1-digit
257 ld [%o1+%o3],%o5 # source2-digit
258 - subcc %g0,%g1,%g0 # carry
259 + subcc %g0,%g3,%g0 # carry
260 subxcc %o4,%o5,%o4 # subtrahieren
261 - addx %g0,%g0,%g1 # neuer Carry
262 + addx %g0,%g0,%g3 # neuer Carry
263 subcc %o3,4,%o3
264 bne Ll55
265 _ st %o4,[%o2+%o3] # Digit ablegen
266 Ll56: retl
267 - _ mov %g1,%o0
268 + _ mov %g3,%o0
269 #endif
270 #if UNROLLED_LOOPS
271 and %o3,7,%o4 # count mod 8
272 @@ -1483,7 +1483,7 @@
273 sub %o5,%o4,%o5
274 jmp %o5 # Sprung nach _sub_loop_down+4*(12+4*8-4*(count mod 8))
275 _ subcc %g0,%g0,%g0 # carry löschen
276 -Ll55: subcc %g0,%g1,%g0 # carry
277 +Ll55: subcc %g0,%g3,%g0 # carry
278 ld [%o0+28],%o4 # source1-digit
279 ld [%o1+28],%o5 # source2-digit
280 subxcc %o4,%o5,%o4 # subtrahieren
281 @@ -1516,7 +1516,7 @@
282 ld [%o1],%o5 # source2-digit
283 subxcc %o4,%o5,%o4 # subtrahieren
284 st %o4,[%o2] # Digit ablegen
285 - addx %g0,%g0,%g1 # neuer Carry
286 + addx %g0,%g0,%g3 # neuer Carry
287 sub %o0,32,%o0
288 sub %o1,32,%o1
289 subcc %o3,8,%o3 # noch mindestens 8 Digits abzuarbeiten?
290 @@ -1523,22 +1523,22 @@
291 bcc Ll55
292 _ sub %o2,32,%o2
293 retl
294 - _ mov %g1,%o0
295 + _ mov %g3,%o0
296 #endif
298 # extern uintD subx_loop_down (uintD* sourceptr1, uintD* sourceptr2, uintD* destptr, uintC count, uintD carry);
299 -C(subx_loop_down:) # Input in %o0,%o1,%o2,%o3,%o4, verändert %g1, Output in %o0
300 +C(subx_loop_down:) # Input in %o0,%o1,%o2,%o3,%o4, verändert %g3, Output in %o0
301 #if STANDARD_LOOPS
302 andcc %o3,%o3,%g0
303 be Ll58
304 - _ mov %o4,%g1 # Carry
305 + _ mov %o4,%g3 # Carry
306 sub %o0,4,%o0
307 Ll57: ld [%o0],%o4 # source1-digit
308 sub %o1,4,%o1
309 ld [%o1],%o5 # source2-digit
310 - subcc %g0,%g1,%g0 # carry
311 + subcc %g0,%g3,%g0 # carry
312 subxcc %o4,%o5,%o4 # subtrahieren
313 - addx %g0,%g0,%g1 # neuer Carry
314 + addx %g0,%g0,%g3 # neuer Carry
315 sub %o2,4,%o2
316 st %o4,[%o2] # Digit ablegen
317 subcc %o3,1,%o3
318 @@ -1545,12 +1545,12 @@
319 bne Ll57
320 _ sub %o0,4,%o0
321 Ll58: retl
322 - _ mov %g1,%o0
323 + _ mov %g3,%o0
324 #endif
325 #if COUNTER_LOOPS
326 andcc %o3,%o3,%g0
327 be Ll58
328 - _ mov %o4,%g1 # Carry
329 + _ mov %o4,%g3 # Carry
330 sub %o0,4,%o0
331 sub %o1,4,%o1
332 sll %o3,2,%o3 # %o3 = 4*count
333 @@ -1559,27 +1559,27 @@
334 sub %o2,%o3,%o2 # %o2 = &destptr[-count]
335 Ll57: ld [%o0+%o3],%o4 # source1-digit
336 ld [%o1+%o3],%o5 # source2-digit
337 - subcc %g0,%g1,%g0 # carry
338 + subcc %g0,%g3,%g0 # carry
339 subxcc %o4,%o5,%o4 # subtrahieren
340 - addx %g0,%g0,%g1 # neuer Carry
341 + addx %g0,%g0,%g3 # neuer Carry
342 subcc %o3,4,%o3
343 bne Ll57
344 _ st %o4,[%o2+%o3] # Digit ablegen
345 Ll58: retl
346 - _ mov %g1,%o0
347 + _ mov %g3,%o0
348 #endif
349 #if UNROLLED_LOOPS
350 and %o3,7,%o5 # count mod 8
351 - sll %o5,2,%g1
352 - sub %o0,%g1,%o0 # %o0 = &sourceptr1[-(count mod 8)]
353 - sub %o1,%g1,%o1 # %o1 = &sourceptr2[-(count mod 8)]
354 - sub %o2,%g1,%o2 # %o2 = &destptr[-(count mod 8)]
355 + sll %o5,2,%g3
356 + sub %o0,%g3,%o0 # %o0 = &sourceptr1[-(count mod 8)]
357 + sub %o1,%g3,%o1 # %o1 = &sourceptr2[-(count mod 8)]
358 + sub %o2,%g3,%o2 # %o2 = &destptr[-(count mod 8)]
359 sll %o5,4,%o5
360 - set _subx_loop_down+176,%g1
361 - sub %g1,%o5,%g1
362 - jmp %g1 # Sprung nach _subx_loop_down+4*(12+4*8-4*(count mod 8))
363 + set _subx_loop_down+176,%g3
364 + sub %g3,%o5,%g3
365 + jmp %g3 # Sprung nach _subx_loop_down+4*(12+4*8-4*(count mod 8))
366 _ subcc %g0,%o4,%g0 # carry initialisieren
367 -Ll57: subcc %g0,%g1,%g0 # carry
368 +Ll57: subcc %g0,%g3,%g0 # carry
369 ld [%o0+28],%o4 # source1-digit
370 ld [%o1+28],%o5 # source2-digit
371 subxcc %o4,%o5,%o4 # subtrahieren
372 @@ -1612,7 +1612,7 @@
373 ld [%o1],%o5 # source2-digit
374 subxcc %o4,%o5,%o4 # subtrahieren
375 st %o4,[%o2] # Digit ablegen
376 - addx %g0,%g0,%g1 # neuer Carry
377 + addx %g0,%g0,%g3 # neuer Carry
378 sub %o0,32,%o0
379 sub %o1,32,%o1
380 subcc %o3,8,%o3 # noch mindestens 8 Digits abzuarbeiten?
381 @@ -1619,7 +1619,7 @@
382 bcc Ll57
383 _ sub %o2,32,%o2
384 retl
385 - _ mov %g1,%o0
386 + _ mov %g3,%o0
387 #endif
389 # extern uintD subfrom_loop_down (uintD* sourceptr, uintD* destptr, uintC count);
390 @@ -1831,10 +1831,10 @@
391 _ mov %o3,%o0
393 # extern uintD shiftleft_loop_down (uintD* ptr, uintC count, uintC i, uintD carry);
394 -C(shiftleft_loop_down:) # Input in %o0,%o1,%o2,%o3, verändert %g1, Output in %o0
395 +C(shiftleft_loop_down:) # Input in %o0,%o1,%o2,%o3, verändert %g3, Output in %o0
396 andcc %o1,%o1,%g0
397 be Ll72
398 - _ sub %g0,%o2,%g1 # 32-i (mod 32)
399 + _ sub %g0,%o2,%g3 # 32-i (mod 32)
400 sub %o0,4,%o0
401 Ll71: ld [%o0],%o4 # Digit
402 subcc %o1,1,%o1
403 @@ -1841,7 +1841,7 @@
404 sll %o4,%o2,%o5 # dessen niedere (32-i) Bits
405 or %o3,%o5,%o5 # mit dem alten Carry kombinieren
406 st %o5,[%o0] # Digit ablegen
407 - srl %o4,%g1,%o3 # dessen höchste i Bits liefern den neuen Carry
408 + srl %o4,%g3,%o3 # dessen höchste i Bits liefern den neuen Carry
409 bne Ll71
410 _ sub %o0,4,%o0
411 Ll72: retl
412 @@ -1848,11 +1848,11 @@
413 _ mov %o3,%o0
415 # extern uintD shiftleftcopy_loop_down (uintD* sourceptr, uintD* destptr, uintC count, uintC i);
416 -C(shiftleftcopy_loop_down:) # Input in %o0,%o1,%o2,%o3, verändert %g1,%g2, Output in %o0
417 +C(shiftleftcopy_loop_down:) # Input in %o0,%o1,%o2,%o3, verändert %g3,%g2, Output in %o0
418 andcc %o2,%o2,%g0
419 be Ll74
420 _ mov 0,%o4 # Carry := 0
421 - sub %g0,%o3,%g1 # 32-i (mod 32)
422 + sub %g0,%o3,%g3 # 32-i (mod 32)
423 sub %o0,4,%o0
424 Ll73: ld [%o0],%o5 # Digit
425 subcc %o2,1,%o2
426 @@ -1860,7 +1860,7 @@
427 or %o4,%g2,%g2 # mit dem alten Carry kombinieren
428 sub %o1,4,%o1
429 st %g2,[%o1] # Digit ablegen
430 - srl %o5,%g1,%o4 # dessen höchste i Bits liefern den neuen Carry
431 + srl %o5,%g3,%o4 # dessen höchste i Bits liefern den neuen Carry
432 bne Ll73
433 _ sub %o0,4,%o0
434 Ll74: retl
435 @@ -1883,17 +1883,17 @@
436 _ mov %o2,%o0
438 # extern uintD shiftright_loop_up (uintD* ptr, uintC count, uintC i);
439 -C(shiftright_loop_up:) # Input in %o0,%o1,%o2, verändert %g1, Output in %o0
440 +C(shiftright_loop_up:) # Input in %o0,%o1,%o2, verändert %g3, Output in %o0
441 andcc %o1,%o1,%g0
442 be Ll78
443 _ or %g0,%g0,%o3 # Carry := 0
444 - sub %g0,%o2,%g1 # 32-i (mod 32)
445 + sub %g0,%o2,%g3 # 32-i (mod 32)
446 Ll77: ld [%o0],%o4 # Digit
447 subcc %o1,1,%o1
448 srl %o4,%o2,%o5 # shiften
449 or %o3,%o5,%o5 # und mit altem Carry kombinieren
450 st %o5,[%o0] # und ablegen
451 - sll %o4,%g1,%o3 # neuer Carry
452 + sll %o4,%g3,%o3 # neuer Carry
453 bne Ll77
454 _ add %o0,4,%o0
455 Ll78: retl
456 @@ -1900,12 +1900,12 @@
457 _ mov %o3,%o0
459 # extern uintD shiftrightsigned_loop_up (uintD* ptr, uintC count, uintC i);
460 -C(shiftrightsigned_loop_up:) # Input in %o0,%o1,%o2, verändert %g1, Output in %o0
461 +C(shiftrightsigned_loop_up:) # Input in %o0,%o1,%o2, verändert %g3, Output in %o0
462 ld [%o0],%o4 # erstes Digit
463 - sub %g0,%o2,%g1 # 32-i (mod 32)
464 + sub %g0,%o2,%g3 # 32-i (mod 32)
465 sra %o4,%o2,%o5 # shiften
466 st %o5,[%o0] # und ablegen
467 - sll %o4,%g1,%o3 # neuer Carry
468 + sll %o4,%g3,%o3 # neuer Carry
469 subcc %o1,1,%o1
470 be Ll80
471 _ add %o0,4,%o0
472 @@ -1914,7 +1914,7 @@
473 srl %o4,%o2,%o5 # shiften
474 or %o3,%o5,%o5 # und mit altem Carry kombinieren
475 st %o5,[%o0] # und ablegen
476 - sll %o4,%g1,%o3 # neuer Carry
477 + sll %o4,%g3,%o3 # neuer Carry
478 bne Ll79
479 _ add %o0,4,%o0
480 Ll80: retl
481 @@ -1921,17 +1921,17 @@
482 _ mov %o3,%o0
484 # extern uintD shiftrightcopy_loop_up (uintD* sourceptr, uintD* destptr, uintC count, uintC i, uintD carry);
485 -C(shiftrightcopy_loop_up:) # Input in %o0,%o1,%o2,%o3,%o4, verändert %g1,%g2, Output in %o0
486 - sub %g0,%o3,%g1 # 32-i (mod 32)
487 +C(shiftrightcopy_loop_up:) # Input in %o0,%o1,%o2,%o3,%o4, verändert %g3,%g2, Output in %o0
488 + sub %g0,%o3,%g3 # 32-i (mod 32)
489 andcc %o2,%o2,%g0
490 be Ll82
491 - _ sll %o4,%g1,%g2 # erster Carry
492 + _ sll %o4,%g3,%g2 # erster Carry
493 Ll81: ld [%o0],%o4 # Digit
494 add %o0,4,%o0
495 srl %o4,%o3,%o5 # shiften
496 or %g2,%o5,%o5 # und mit altem Carry kombinieren
497 st %o5,[%o1] # und ablegen
498 - sll %o4,%g1,%g2 # neuer Carry
499 + sll %o4,%g3,%g2 # neuer Carry
500 subcc %o2,1,%o2
501 bne Ll81
502 _ add %o1,4,%o1
503 @@ -1982,7 +1982,7 @@
504 call _mulu32_ # mit digit multiplizieren
505 _ mov %i0,%o0
506 addcc %l0,%o0,%o0 # und bisherigen Carry addieren
507 - addx %g0,%g1,%l0 # High-Digit gibt neuen Carry
508 + addx %g0,%g3,%l0 # High-Digit gibt neuen Carry
509 sub %i2,4,%i2
510 subcc %i3,1,%i3
511 bne Ll86
512 @@ -1991,16 +1991,16 @@
513 ret
514 _ restore
515 #else
516 -C(mulu_loop_down:) # Input in %o0,%o1,%o2,%o3, verändert %g1
517 +C(mulu_loop_down:) # Input in %o0,%o1,%o2,%o3, verändert %g3
518 mov 0,%o4 # Carry
519 -Ll87: ld [%o1-4],%g1 # nächstes Digit
520 - # mit digit multiplizieren: %o0 * %g1 -> %o5|%g1
521 +Ll87: ld [%o1-4],%g3 # nächstes Digit
522 + # mit digit multiplizieren: %o0 * %g3 -> %o5|%g3
523 #ifdef sparcv8
524 sub %o1,4,%o1
525 - umul %g1,%o0,%g1
526 + umul %g3,%o0,%g3
527 rd %y,%o5
528 #else
529 - mov %g1,%y
530 + mov %g3,%y
531 sub %o1,4,%o1 # Wartetakt!
532 andcc %g0,%g0,%o5
533 mulscc %o5,%o0,%o5
534 @@ -2038,15 +2038,15 @@
535 mulscc %o5,%g0,%o5
536 tst %o0
537 bl,a Ll88
538 - __ add %o5,%g1,%o5
539 -Ll88: rd %y,%g1
540 + __ add %o5,%g3,%o5
541 +Ll88: rd %y,%g3
542 #endif
543 - addcc %o4,%g1,%g1 # und bisherigen Carry addieren
544 + addcc %o4,%g3,%g3 # und bisherigen Carry addieren
545 addx %g0,%o5,%o4 # High-Digit gibt neuen Carry
546 sub %o2,4,%o2
547 subcc %o3,1,%o3
548 bne Ll87
549 - _ st %g1,[%o2] # Low-Digit ablegen
550 + _ st %g3,[%o2] # Low-Digit ablegen
551 retl
552 _ st %o4,[%o2-4] # letzten Carry ablegen
553 #endif
554 @@ -2063,7 +2063,7 @@
555 sub %i2,4,%i2
556 ld [%i2],%o1 # nächstes dest-digit
557 addcc %l0,%o0,%o0 # und bisherigen Carry addieren
558 - addx %g0,%g1,%l0 # High-Digit gibt neuen Carry
559 + addx %g0,%g3,%l0 # High-Digit gibt neuen Carry
560 addcc %o1,%o0,%o0 # addieren
561 addx %g0,%l0,%l0
562 subcc %i3,1,%i3
563 @@ -2150,7 +2150,7 @@
564 sub %i2,4,%i2
565 ld [%i2],%o1 # nächstes dest-digit
566 addcc %l0,%o0,%o0 # und bisherigen Carry addieren
567 - addx %g0,%g1,%l0 # High-Digit gibt neuen Carry
568 + addx %g0,%g3,%l0 # High-Digit gibt neuen Carry
569 subcc %o1,%o0,%o1 # davon das Low-Digit subtrahieren
570 addx %g0,%l0,%l0
571 subcc %i3,1,%i3
572 @@ -2230,16 +2230,16 @@
573 save %sp,-96,%sp
574 andcc %i2,%i2,%g0
575 be Ll92
576 - _ mov 0,%g1 # Rest
577 -Ll91: mov %g1,%o0 # Rest als High-Digit
578 + _ mov 0,%g3 # Rest
579 +Ll91: mov %g3,%o0 # Rest als High-Digit
580 ld [%i1],%o1 # nächstes Digit als Low-Digit
581 call C(divu_6432_3232_) # zusammen durch digit dividieren
582 _ mov %i0,%o2
583 - st %o0,[%i1] # Quotient ablegen, Rest in %g1
584 + st %o0,[%i1] # Quotient ablegen, Rest in %g3
585 subcc %i2,1,%i2
586 bne Ll91
587 _ add %i1,4,%i1
588 -Ll92: mov %g1,%i0 # Rest als Ergebnis
589 +Ll92: mov %g3,%i0 # Rest als Ergebnis
590 ret
591 _ restore
593 @@ -2248,17 +2248,17 @@
594 save %sp,-96,%sp
595 andcc %i3,%i3,%g0
596 be Ll94
597 - _ mov 0,%g1 # Rest
598 -Ll93: mov %g1,%o0 # Rest als High-Digit
599 + _ mov 0,%g3 # Rest
600 +Ll93: mov %g3,%o0 # Rest als High-Digit
601 ld [%i1],%o1 # nächstes Digit als Low-Digit
602 call C(divu_6432_3232_) # zusammen durch digit dividieren
603 _ mov %i0,%o2
604 - st %o0,[%i2] # Quotient ablegen, Rest in %g1
605 + st %o0,[%i2] # Quotient ablegen, Rest in %g3
606 add %i1,4,%i1
607 subcc %i3,1,%i3
608 bne Ll93
609 _ add %i2,4,%i2
610 -Ll94: mov %g1,%i0 # Rest als Ergebnis
611 +Ll94: mov %g3,%i0 # Rest als Ergebnis
612 ret
613 _ restore