Mercurial Mercurial > upstream > oracle > userland-gate / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
components/clisp/patches/arilev0.d.patch
author Mike Sullivan <Mike.Sullivan@Oracle.COM>
Mon, 08 Aug 2011 10:30:52 -0700
changeset 464 08f94c414553
parent 328 38a06e74a699
permissions -rw-r--r--
7073736 need to turn _ into -
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
328
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     1
 
--- src.orig/arilev0.d	Fri Dec 14 06:27:48 2007
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     2
 
+++ src/arilev0.d	Mon Feb  2 15:35:22 2009
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     3
 
@@ -340,7 +340,7 @@
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     4
 
     #elif defined(SPARC)
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     5
 
       #define mulu32(x,y,hi_assignment,lo_assignment)  \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     6
 
         ({ lo_assignment mulu32_(x,y); # extern in Assembler \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     7
 
-          {var register uint32 _hi __asm__("%g1");          \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     8
 
+          {var register uint32 _hi __asm__("%g3");          \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     9
 
            hi_assignment _hi;                                \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    10
 
          }})
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    11
 
     #elif defined(HAVE_LONG_LONG_INT) && !defined(ARM)
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    12
 
@@ -357,7 +357,7 @@
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    13
 
     #if defined(MC680X0) || defined(SPARC) || defined(SPARC64) || defined(ARM) || (defined(I80386) && !defined(BORLAND)) || defined(MIPS) || defined(HPPA) || defined(VAX)
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    14
 
       # mulu32_ extern in Assembler
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    15
 
       #if defined(SPARC) || defined(SPARC64)
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    16
 
-        #define mulu32_high  (uint32)(_get_g1()) # Rückgabe im Register %g1
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    17
 
+        #define mulu32_high  (uint32)(_get_g1()) # Rückgabe im Register %g3
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    18
 
       #elif defined(LISPARIT) && !defined(HPPA) # In arihppa.d ist mulu32_high bereits definiert.
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    19
 
         global uint32 mulu32_high;
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    20
 
       #endif
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    21
 
@@ -471,7 +471,7 @@
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    22
 
     #elif defined(SPARC)
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    23
 
       #define mulu32_64(x,y)  \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    24
 
         ({ var register uint32 _lo = mulu32_(x,y); # extern in Assembler \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    25
 
-           var register uint32 _hi __asm__("%g1");                       \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    26
 
+           var register uint32 _hi __asm__("%g3");                       \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    27
 
            highlow64(_hi,_lo);                                           \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    28
 
          })
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    29
 
     #endif
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    30
 
@@ -890,7 +890,7 @@
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    31
 
     #elif defined(SPARC) || defined(SPARC64)
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    32
 
       #define divu_6432_3232(xhi,xlo,y,q_assignment,r_assignment)  \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    33
 
         ({ var uint32 _q = divu_6432_3232_(xhi,xlo,y); # extern in Assembler \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    34
 
-           var register uint32 _r __asm__("%g1");                            \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    35
 
+           var register uint32 _r __asm__("%g3");                            \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    36
 
            q_assignment _q; r_assignment _r;                                   \
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    37
 
          })
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    38
 
     #elif defined(ARM) && 0 # see comment ariarm.d
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    39
 
@@ -935,7 +935,7 @@
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    40
 
     #if defined(MC680Y0) || defined(SPARC) || defined(SPARC64) || defined(ARM) || (defined(I80386) && !defined(BORLAND)) || defined(HPPA)
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    41
 
       # divu_6432_3232_ extern in Assembler
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    42
 
       #if defined(SPARC) || defined(SPARC64)
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    43
 
-        #define divu_32_rest  (uint32)(_get_g1()) # Rückgabe im Register %g1
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    44
 
+        #define divu_32_rest  (uint32)(_get_g1()) # Rückgabe im Register %g3
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    45
 
       #elif defined(LISPARIT)
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    46
 
         global uint32 divu_32_rest;
38a06e74a699 7054634 Move clisp to userland
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    47
 
       #endif
upstream/oracle/userland-gate