python/manuel: update to 1.13.0
[oi-userland.git] / components / runtime / clisp / patches / arilev0.d.patch
blob38a3b403b7b86122a52579d13a16b8c1888b5574
1 --- src.orig/arilev0.d Fri Dec 14 06:27:48 2007
2 +++ src/arilev0.d Mon Feb 2 15:35:22 2009
3 @@ -340,7 +340,7 @@
4 #elif defined(SPARC)
5 #define mulu32(x,y,hi_assignment,lo_assignment) \
6 ({ lo_assignment mulu32_(x,y); # extern in Assembler \
7 - {var register uint32 _hi __asm__("%g1"); \
8 + {var register uint32 _hi __asm__("%g3"); \
9 hi_assignment _hi; \
10 }})
11 #elif defined(HAVE_LONG_LONG_INT) && !defined(ARM)
12 @@ -357,7 +357,7 @@
13 #if defined(MC680X0) || defined(SPARC) || defined(SPARC64) || defined(ARM) || (defined(I80386) && !defined(BORLAND)) || defined(MIPS) || defined(HPPA) || defined(VAX)
14 # mulu32_ extern in Assembler
15 #if defined(SPARC) || defined(SPARC64)
16 - #define mulu32_high (uint32)(_get_g1()) # Rückgabe im Register %g1
17 + #define mulu32_high (uint32)(_get_g1()) # Rückgabe im Register %g3
18 #elif defined(LISPARIT) && !defined(HPPA) # In arihppa.d ist mulu32_high bereits definiert.
19 global uint32 mulu32_high;
20 #endif
21 @@ -471,7 +471,7 @@
22 #elif defined(SPARC)
23 #define mulu32_64(x,y) \
24 ({ var register uint32 _lo = mulu32_(x,y); # extern in Assembler \
25 - var register uint32 _hi __asm__("%g1"); \
26 + var register uint32 _hi __asm__("%g3"); \
27 highlow64(_hi,_lo); \
29 #endif
30 @@ -890,7 +890,7 @@
31 #elif defined(SPARC) || defined(SPARC64)
32 #define divu_6432_3232(xhi,xlo,y,q_assignment,r_assignment) \
33 ({ var uint32 _q = divu_6432_3232_(xhi,xlo,y); # extern in Assembler \
34 - var register uint32 _r __asm__("%g1"); \
35 + var register uint32 _r __asm__("%g3"); \
36 q_assignment _q; r_assignment _r; \
38 #elif defined(ARM) && 0 # see comment ariarm.d
39 @@ -935,7 +935,7 @@
40 #if defined(MC680Y0) || defined(SPARC) || defined(SPARC64) || defined(ARM) || (defined(I80386) && !defined(BORLAND)) || defined(HPPA)
41 # divu_6432_3232_ extern in Assembler
42 #if defined(SPARC) || defined(SPARC64)
43 - #define divu_32_rest (uint32)(_get_g1()) # Rückgabe im Register %g1
44 + #define divu_32_rest (uint32)(_get_g1()) # Rückgabe im Register %g3
45 #elif defined(LISPARIT)
46 global uint32 divu_32_rest;
47 #endif