components/clisp/patches/arilev0.d.patch
changeset 328 38a06e74a699
equal deleted inserted replaced
327:b3a36ee93012 328:38a06e74a699
       
     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);                                           \
       
    28           })
       
    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;                                   \
       
    37           })
       
    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