Annotation of OpenXM_contrib/pari-2.2/src/kernel/sparcv8/level0.h, Revision 1.1.1.1
1.1 noro 1: /* $Id: level0.h,v 1.3 2000/11/03 21:00:27 karim Exp $
2:
3: Copyright (C) 2000 The PARI group.
4:
5: This file is part of the PARI/GP package.
6:
7: PARI/GP is free software; you can redistribute it and/or modify it under the
8: terms of the GNU General Public License as published by the Free Software
9: Foundation. It is distributed in the hope that it will be useful, but WITHOUT
10: ANY WARRANTY WHATSOEVER.
11:
12: Check the License for details. You should have received a copy of it, along
13: with the package; see the file 'COPYING'. If not, write to the Free Software
14: Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
15:
16: /* This file defines some "level 0" kernel functions for SPARC V8 */
17: /* These functions can be inline, with gcc */
18: /* If not gcc, they are defined externally with "level0.s" */
19: /* This file is common to SuperSparc and MicroSparc */
20: /* */
21: /* These following symbols can be inlined */
22: /* overflow hiremainder */
23: /* addll addllx subll subllx shiftl shiftlr mulll addmul */
24: /* */
25: /* These functions are always in level0.s */
26: /* The following symbols are always defined in this file : */
27: /* divll bfffo (& tabshi) */
28: /* But divll have to use hiremainder, so it is different when */
29: /* hiremainder is inline or not */
30: /* If libpari.so is compiled with gcc, you should compile all */
31: /* files with gcc */
32:
33: #define LOCAL_OVERFLOW
34: #define SAVE_OVERFLOW
35: #define LOCAL_HIREMAINDER
36: #define SAVE_HIREMAINDER
37:
38: BEGINEXTERN
39: extern long divll(ulong x, ulong y);
40: extern int bfffo(ulong x);
41: ENDEXTERN
42:
43: #ifndef ASMINLINE
44: BEGINEXTERN
45: extern ulong hiremainder, overflow;
46: extern long addll(ulong a, ulong b);
47: extern long addllx(ulong a, ulong b);
48: extern long subll(ulong a, ulong b);
49: extern long subllx(ulong a, ulong b);
50: extern long shiftl(ulong x, ulong y);
51: extern long shiftlr(ulong x, ulong y);
52: extern long mulll(ulong x, ulong y);
53: extern long addmul(ulong x, ulong y);
54: ENDEXTERN
55:
56: #else /* ASMINLINE */
57:
58: register ulong hiremainder __asm__("%g5");
59: register ulong overflow __asm__("%g6");
60:
61: #define addll(a,b) \
62: ({ ulong __value, __arg1 = (a), __arg2 = (b); \
63: __asm__ ( "addcc %2,%3,%0; \
64: addx %%g0,%%g0,%1" \
65: : "=r" (__value), "=r" (overflow) \
66: : "r" (__arg1), "r" (__arg2) \
67: : "%g6","cc"); \
68: __value; })
69:
70: #define addllx(a,b) \
71: ({ ulong __value, __arg1 = (a), __arg2 = (b); \
72: __asm__ ( "subcc %%g0,%%g6,%%g0; \
73: addxcc %2,%3,%0; \
74: addx %%g0,%%g0,%1" \
75: : "=r" (__value), "=r" (overflow) \
76: : "r" (__arg1), "r" (__arg2) \
77: : "%g6","cc"); \
78: __value; })
79:
80: #define subll(a,b) \
81: ({ ulong __value, __arg1 = (a), __arg2 = (b); \
82: __asm__ ( "subcc %2,%3,%0; \
83: addx %%g0,%%g0,%1" \
84: : "=r" (__value), "=r" (overflow) \
85: : "r" (__arg1), "r" (__arg2) \
86: : "%g6","cc"); \
87: __value; })
88:
89: #define subllx(a,b) \
90: ({ ulong __value, __arg1 = (a), __arg2 = (b); \
91: __asm__ ( "subcc %%g0,%%g6,%%g0; \
92: subxcc %2,%3,%0; \
93: addx %%g0,%%g0,%1" \
94: : "=r" (__value), "=r" (overflow) \
95: : "r" (__arg1), "r" (__arg2) \
96: : "%g6","cc"); \
97: __value; })
98:
99: #define shiftl(a,b) \
100: ({ ulong __value, __arg1 = (a), __arg2 = (b); \
101: __asm__ ( "neg %3,%%o4; \
102: srl %2,%%o4,%1; \
103: sll %2,%3,%0" \
104: : "=r" (__value), "=r" (hiremainder) \
105: : "r" (__arg1), "r" (__arg2) \
106: : "%o4","%g5"); \
107: __value; })
108:
109: #define shiftl2(a,b,c) \
110: ({ ulong __value, __arg1 = (a), __arg2 = (b), __arg3 = (c); \
111: __asm__ ( "srl %2,%4,%1; \
112: sll %2,%3,%0" \
113: : "=r" (__value), "=r" (hiremainder) \
114: : "r" (__arg1), "r" (__arg2), "r" (__arg3) \
115: : "%g5"); \
116: __value; })
117:
118: #define shiftlr(a,b) \
119: ({ ulong __value, __arg1 = (a), __arg2 = (b); \
120: __asm__ ( "neg %3,%%o4; \
121: sll %2,%%o4,%1; \
122: srl %2,%3,%0" \
123: : "=r" (__value), "=r" (hiremainder) \
124: : "r" (__arg1), "r" (__arg2) \
125: : "%o4","%g5"); \
126: __value; })
127:
128: #define shiftlr1(a) \
129: ({ ulong __value, __arg1 = (a); \
130: __asm__ ( "sll %2,31,%1; \
131: srl %2,1,%0" \
132: : "=r" (__value), "=r" (hiremainder) \
133: : "r" (__arg1) \
134: : "%g5"); \
135: __value; })
136:
137: #define shiftlr2(a,b,c) \
138: ({ ulong __value, __arg1 = (a), __arg2 = (b), __arg3 = (c); \
139: __asm__ ( "sll %2,%4,%1; \
140: srl %2,%3,%0" \
141: : "=r" (__value), "=r" (hiremainder) \
142: : "r" (__arg1), "r" (__arg2), "r" (__arg3) \
143: : "%g5"); \
144: __value; })
145:
146: #define mulll(a,b) \
147: ({ ulong __value, __arg1 = (a), __arg2 = (b); \
148: __asm__ ( "umul %2,%3,%0; \
149: rd %%y,%1" \
150: : "=r" (__value), "=r" (hiremainder) \
151: : "r" (__arg1), "r" (__arg2) \
152: : "%g5"); \
153: __value;})
154:
155: #define addmul(a,b) \
156: ({ ulong __value, __arg1 = (a), __arg2 = (b); \
157: __asm__ ( "umul %2,%3,%0; \
158: rd %%y,%%o4; \
159: addcc %0,%%g5,%0; \
160: addx %%g0,%%o4,%1" \
161: : "=r" (__value), "=r" (hiremainder) \
162: : "r" (__arg1), "r" (__arg2) \
163: : "%o4","%g5","cc"); \
164: __value;})
165:
166: #define divllasm(a,b) \
167: ({ ulong __value, __arg1 = (a), __arg2 = (b); \
168: __asm__( "wr %%g5,%%g0,%%y;\
169: mov %2,%%o4;\
170: udivcc %2,%3,%0;\
171: bvc 1f;\
172: umul %0,%3,%%o5;\
173: mov 47,%%o0;\
174: call err,1;\
175: nop ;\
176: 1: sub %%o4,%%o5,%1"\
177: : "=r" (__value), "=r" (hiremainder) \
178: : "r" (__arg1), "r" (__arg2) \
179: : "%o4","%o5","%g5","cc"); \
180: __value;})
181:
182: #endif /* ASMINLINE */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to level0.h CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari-2.2 / src / kernel / sparcv8