compiled for the target, and hence definitions concerning only the host
do not apply. */
-#include "tm.h"
+#include "tconfig.h"
+#ifndef L_trampoline
#include "gstddef.h"
+#endif
/* Don't use `fancy_abort' here even if config.h says to use it. */
#ifdef abort
#undef abort
#endif
-/* Need to undef this because LONG_TYPE_SIZE may rely upon GCC's
- internal `target_flags' variable. */
-#undef LONG_TYPE_SIZE
+/* In the first part of this file, we are interfacing to calls generated
+ by the compiler itself. These calls pass values into these routines
+ which have very specific modes (rather than very specific types), and
+ these compiler-generated calls also expect any return values to have
+ very specific modes (rather than very specific types). Thus, we need
+ to avoid using regular C language type names in this part of the file
+ because the sizes for those types can be configured to be anything.
+ Instead we use the following special type names. */
+
+typedef unsigned int UQItype __attribute__ ((mode (QI)));
+typedef int SItype __attribute__ ((mode (SI)));
+typedef unsigned int USItype __attribute__ ((mode (SI)));
+typedef int DItype __attribute__ ((mode (DI)));
+typedef unsigned int UDItype __attribute__ ((mode (DI)));
+typedef float SFtype __attribute__ ((mode (SF)));
+typedef float DFtype __attribute__ ((mode (DF)));
+#if 0
+typedef float XFtype __attribute__ ((mode (XF)));
+#endif
+#if LONG_DOUBLE_TYPE_SIZE == 128
+typedef float TFtype __attribute__ ((mode (TF)));
+#endif
-#define LONG_TYPE_SIZE (sizeof (long) * BITS_PER_UNIT)
+/* Make sure that we don't accidentaly use any normal C language built-in
+ type names in the first part of this file. Instead we want to use *only*
+ the type names defined above. The following macro definitions insure
+ that if we *do* accidently use soem normal C language built-in type name,
+ we will get a syntax error. */
-#ifndef SItype
-#define SItype long int
-#endif
+#define char bogus_type
+#define short bogus_type
+#define int bogus_type
+#define long bogus_type
+#define unsigned bogus_type
+#define float bogus_type
+#define double bogus_type
-/* long long ints are pairs of long ints in the order determined by
+#define SI_TYPE_SIZE (sizeof (SItype) * BITS_PER_UNIT)
+
+/* DIstructs are pairs of SItype values in the order determined by
WORDS_BIG_ENDIAN. */
#if WORDS_BIG_ENDIAN
- struct longlong {long high, low;};
+ struct DIstruct {SItype high, low;};
#else
- struct longlong {long low, high;};
+ struct DIstruct {SItype low, high;};
#endif
-/* We need this union to unpack/pack longlongs, since we don't have
- any arithmetic yet. Incoming long long parameters are stored
- into the `ll' field, and the unpacked result is read from the struct
- longlong. */
+/* We need this union to unpack/pack DImode values, since we don't have
+ any arithmetic yet. Incoming DImode parameters are stored into the
+ `ll' field, and the unpacked result is read from the struct `s'. */
typedef union
{
- struct longlong s;
- long long ll;
-} long_long;
+ struct DIstruct s;
+ DItype ll;
+} DIunion;
-#if defined (L_udivmoddi4) || defined (L_muldi3)
+#if defined (L_udivmoddi4) || defined (L_muldi3) || defined (L_udiv_w_sdiv)
#include "longlong.h"
#endif /* udiv or mul */
-extern long long __fixunssfdi (float a);
-extern long long __fixunsdfdi (double a);
+extern DItype __fixunssfdi (SFtype a);
+extern DItype __fixunsdfdi (DFtype a);
\f
#if defined (L_negdi2) || defined (L_divdi3) || defined (L_moddi3)
#if defined (L_divdi3) || defined (L_moddi3)
static inline
#endif
-long long
+DItype
__negdi2 (u)
- long long u;
+ DItype u;
{
- long_long w;
- long_long uu;
+ DIunion w;
+ DIunion uu;
uu.ll = u;
w.s.low = -uu.s.low;
- w.s.high = -uu.s.high - ((unsigned long) w.s.low > 0);
+ w.s.high = -uu.s.high - ((USItype) w.s.low > 0);
return w.ll;
}
#endif
\f
#ifdef L_lshldi3
-long long
+DItype
__lshldi3 (u, b)
- long long u;
- int b;
+ DItype u;
+ SItype b;
{
- long_long w;
- long bm;
- long_long uu;
+ DIunion w;
+ SItype bm;
+ DIunion uu;
if (b == 0)
return u;
uu.ll = u;
- bm = (sizeof (long) * BITS_PER_UNIT) - b;
+ bm = (sizeof (SItype) * BITS_PER_UNIT) - b;
if (bm <= 0)
{
w.s.low = 0;
- w.s.high = (unsigned long)uu.s.low << -bm;
+ w.s.high = (USItype)uu.s.low << -bm;
}
else
{
- unsigned long carries = (unsigned long)uu.s.low >> bm;
- w.s.low = (unsigned long)uu.s.low << b;
- w.s.high = ((unsigned long)uu.s.high << b) | carries;
+ USItype carries = (USItype)uu.s.low >> bm;
+ w.s.low = (USItype)uu.s.low << b;
+ w.s.high = ((USItype)uu.s.high << b) | carries;
}
return w.ll;
#endif
#ifdef L_lshrdi3
-long long
+DItype
__lshrdi3 (u, b)
- long long u;
- int b;
+ DItype u;
+ SItype b;
{
- long_long w;
- long bm;
- long_long uu;
+ DIunion w;
+ SItype bm;
+ DIunion uu;
if (b == 0)
return u;
uu.ll = u;
- bm = (sizeof (long) * BITS_PER_UNIT) - b;
+ bm = (sizeof (SItype) * BITS_PER_UNIT) - b;
if (bm <= 0)
{
w.s.high = 0;
- w.s.low = (unsigned long)uu.s.high >> -bm;
+ w.s.low = (USItype)uu.s.high >> -bm;
}
else
{
- unsigned long carries = (unsigned long)uu.s.high << bm;
- w.s.high = (unsigned long)uu.s.high >> b;
- w.s.low = ((unsigned long)uu.s.low >> b) | carries;
+ USItype carries = (USItype)uu.s.high << bm;
+ w.s.high = (USItype)uu.s.high >> b;
+ w.s.low = ((USItype)uu.s.low >> b) | carries;
}
return w.ll;
#endif
#ifdef L_ashldi3
-long long
+DItype
__ashldi3 (u, b)
- long long u;
- int b;
+ DItype u;
+ SItype b;
{
- long_long w;
- long bm;
- long_long uu;
+ DIunion w;
+ SItype bm;
+ DIunion uu;
if (b == 0)
return u;
uu.ll = u;
- bm = (sizeof (long) * BITS_PER_UNIT) - b;
+ bm = (sizeof (SItype) * BITS_PER_UNIT) - b;
if (bm <= 0)
{
w.s.low = 0;
- w.s.high = (unsigned long)uu.s.low << -bm;
+ w.s.high = (USItype)uu.s.low << -bm;
}
else
{
- unsigned long carries = (unsigned long)uu.s.low >> bm;
- w.s.low = (unsigned long)uu.s.low << b;
- w.s.high = ((unsigned long)uu.s.high << b) | carries;
+ USItype carries = (USItype)uu.s.low >> bm;
+ w.s.low = (USItype)uu.s.low << b;
+ w.s.high = ((USItype)uu.s.high << b) | carries;
}
return w.ll;
#endif
#ifdef L_ashrdi3
-long long
+DItype
__ashrdi3 (u, b)
- long long u;
- int b;
+ DItype u;
+ SItype b;
{
- long_long w;
- long bm;
- long_long uu;
+ DIunion w;
+ SItype bm;
+ DIunion uu;
if (b == 0)
return u;
uu.ll = u;
- bm = (sizeof (long) * BITS_PER_UNIT) - b;
+ bm = (sizeof (SItype) * BITS_PER_UNIT) - b;
if (bm <= 0)
{
/* w.s.high = 1..1 or 0..0 */
- w.s.high = uu.s.high >> (sizeof (long) * BITS_PER_UNIT - 1);
+ w.s.high = uu.s.high >> (sizeof (SItype) * BITS_PER_UNIT - 1);
w.s.low = uu.s.high >> -bm;
}
else
{
- unsigned long carries = (unsigned long)uu.s.high << bm;
+ USItype carries = (USItype)uu.s.high << bm;
w.s.high = uu.s.high >> b;
- w.s.low = ((unsigned long)uu.s.low >> b) | carries;
+ w.s.low = ((USItype)uu.s.low >> b) | carries;
}
return w.ll;
#endif
\f
#ifdef L_muldi3
-long long
+DItype
__muldi3 (u, v)
- long long u, v;
+ DItype u, v;
{
- long_long w;
- long_long uu, vv;
+ DIunion w;
+ DIunion uu, vv;
uu.ll = u,
vv.ll = v;
w.ll = __umulsidi3 (uu.s.low, vv.s.low);
- w.s.high += ((unsigned long) uu.s.low * (unsigned long) vv.s.high
- + (unsigned long) uu.s.high * (unsigned long) vv.s.low);
+ w.s.high += ((USItype) uu.s.low * (USItype) vv.s.high
+ + (USItype) uu.s.high * (USItype) vv.s.low);
return w.ll;
}
#endif
\f
+#ifdef L_udiv_w_sdiv
+USItype
+__udiv_w_sdiv (rp, a1, a0, d)
+ USItype *rp, a1, a0, d;
+{
+ USItype q, r;
+ USItype c0, c1, b1;
+
+ if ((SItype) d >= 0)
+ {
+ if (a1 < d - a1 - (a0 >> 31))
+ {
+ /* dividend, divisor, and quotient are nonnegative */
+ sdiv_qrnnd (q, r, a1, a0, d);
+ }
+ else
+ {
+ /* Compute c1*2^32 + c0 = a1*2^32 + a0 - 2^31*d */
+ sub_ddmmss (c1, c0, a1, a0, d >> 1, d << 31);
+ /* Divide (c1*2^32 + c0) by d */
+ sdiv_qrnnd (q, r, c1, c0, d);
+ /* Add 2^31 to quotient */
+ q += 1 << 31;
+ }
+ }
+ else
+ {
+ b1 = d >> 1; /* d/2, between 2^30 and 2^31 - 1 */
+ c1 = a1 >> 1; /* A/2 */
+ c0 = (a1 << 31) + (a0 >> 1);
+
+ if (a1 < b1) /* A < 2^32*b1, so A/2 < 2^31*b1 */
+ {
+ sdiv_qrnnd (q, r, c1, c0, b1); /* (A/2) / (d/2) */
+
+ r = 2*r + (a0 & 1); /* Remainder from A/(2*b1) */
+ if ((d & 1) != 0)
+ {
+ if (r >= q)
+ r = r - q;
+ else if (q - r <= d)
+ {
+ r = r - q + d;
+ q--;
+ }
+ else
+ {
+ r = r - q + 2*d;
+ q -= 2;
+ }
+ }
+ }
+ else if (c1 < b1) /* So 2^31 <= (A/2)/b1 < 2^32 */
+ {
+ c1 = (b1 - 1) - c1;
+ c0 = ~c0; /* logical NOT */
+
+ sdiv_qrnnd (q, r, c1, c0, b1); /* (A/2) / (d/2) */
+
+ q = ~q; /* (A/2)/b1 */
+ r = (b1 - 1) - r;
+
+ r = 2*r + (a0 & 1); /* A/(2*b1) */
+
+ if ((d & 1) != 0)
+ {
+ if (r >= q)
+ r = r - q;
+ else if (q - r <= d)
+ {
+ r = r - q + d;
+ q--;
+ }
+ else
+ {
+ r = r - q + 2*d;
+ q -= 2;
+ }
+ }
+ }
+ else /* Implies c1 = b1 */
+ { /* Hence a1 = d - 1 = 2*b1 - 1 */
+ if (a0 >= -d)
+ {
+ q = -1;
+ r = a0 + d;
+ }
+ else
+ {
+ q = -2;
+ r = a0 + 2*d;
+ }
+ }
+ }
+
+ *rp = r;
+ return q;
+}
+#endif
+\f
#ifdef L_udivmoddi4
-static const unsigned char __clz_tab[] =
+static const UQItype __clz_tab[] =
{
0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
};
-unsigned long long
+UDItype
__udivmoddi4 (n, d, rp)
- unsigned long long n, d;
- unsigned long long int *rp;
+ UDItype n, d;
+ UDItype *rp;
{
- long_long ww;
- long_long nn, dd;
- long_long rr;
- unsigned long d0, d1, n0, n1, n2;
- unsigned long q0, q1;
- unsigned b, bm;
+ DIunion ww;
+ DIunion nn, dd;
+ DIunion rr;
+ USItype d0, d1, n0, n1, n2;
+ USItype q0, q1;
+ USItype b, bm;
nn.ll = n;
dd.ll = d;
denominator set. */
d0 = d0 << bm;
- n1 = (n1 << bm) | (n0 >> (LONG_TYPE_SIZE - bm));
+ n1 = (n1 << bm) | (n0 >> (SI_TYPE_SIZE - bm));
n0 = n0 << bm;
}
leading quotient digit q1 = 1).
This special case is necessary, not an optimization.
- (Shifts counts of LONG_TYPE_SIZE are undefined.) */
+ (Shifts counts of SI_TYPE_SIZE are undefined.) */
n1 -= d0;
q1 = 1;
{
/* Normalize. */
- b = LONG_TYPE_SIZE - bm;
+ b = SI_TYPE_SIZE - bm;
d0 = d0 << bm;
n2 = n1 >> b;
}
else
{
- unsigned long m1, m0;
+ USItype m1, m0;
/* Normalize. */
- b = LONG_TYPE_SIZE - bm;
+ b = SI_TYPE_SIZE - bm;
d1 = (d1 << bm) | (d0 >> b);
d0 = d0 << bm;
#endif
#ifdef L_divdi3
-unsigned long long __udivmoddi4 ();
-long long
+UDItype __udivmoddi4 ();
+DItype
__divdi3 (u, v)
- long long u, v;
+ DItype u, v;
{
- int c = 0;
- long_long uu, vv;
- long long w;
+ SItype c = 0;
+ DIunion uu, vv;
+ DItype w;
uu.ll = u;
vv.ll = v;
c = ~c,
vv.ll = __negdi2 (vv.ll);
- w = __udivmoddi4 (uu.ll, vv.ll, (unsigned long long *) 0);
+ w = __udivmoddi4 (uu.ll, vv.ll, (UDItype *) 0);
if (c)
w = __negdi2 (w);
#endif
#ifdef L_moddi3
-unsigned long long __udivmoddi4 ();
-long long
+UDItype __udivmoddi4 ();
+DItype
__moddi3 (u, v)
- long long u, v;
+ DItype u, v;
{
- int c = 0;
- long_long uu, vv;
- long long w;
+ SItype c = 0;
+ DIunion uu, vv;
+ DItype w;
uu.ll = u;
vv.ll = v;
#endif
#ifdef L_umoddi3
-unsigned long long __udivmoddi4 ();
-unsigned long long
+UDItype __udivmoddi4 ();
+UDItype
__umoddi3 (u, v)
- unsigned long long u, v;
+ UDItype u, v;
{
- long long w;
+ DItype w;
(void) __udivmoddi4 (u, v, &w);
#endif
#ifdef L_udivdi3
-unsigned long long __udivmoddi4 ();
-unsigned long long
+UDItype __udivmoddi4 ();
+UDItype
__udivdi3 (n, d)
- unsigned long long n, d;
+ UDItype n, d;
{
- return __udivmoddi4 (n, d, (unsigned long long *) 0);
+ return __udivmoddi4 (n, d, (UDItype *) 0);
}
#endif
\f
#ifdef L_cmpdi2
SItype
__cmpdi2 (a, b)
- long long a, b;
+ DItype a, b;
{
- long_long au, bu;
+ DIunion au, bu;
au.ll = a, bu.ll = b;
return 0;
else if (au.s.high > bu.s.high)
return 2;
- if ((unsigned long) au.s.low < (unsigned long) bu.s.low)
+ if ((USItype) au.s.low < (USItype) bu.s.low)
return 0;
- else if ((unsigned long) au.s.low > (unsigned long) bu.s.low)
+ else if ((USItype) au.s.low > (USItype) bu.s.low)
return 2;
return 1;
}
#ifdef L_ucmpdi2
SItype
__ucmpdi2 (a, b)
- long long a, b;
+ DItype a, b;
{
- long_long au, bu;
+ DIunion au, bu;
au.ll = a, bu.ll = b;
- if ((unsigned long) au.s.high < (unsigned long) bu.s.high)
+ if ((USItype) au.s.high < (USItype) bu.s.high)
return 0;
- else if ((unsigned long) au.s.high > (unsigned long) bu.s.high)
+ else if ((USItype) au.s.high > (USItype) bu.s.high)
return 2;
- if ((unsigned long) au.s.low < (unsigned long) bu.s.low)
+ if ((USItype) au.s.low < (USItype) bu.s.low)
return 0;
- else if ((unsigned long) au.s.low > (unsigned long) bu.s.low)
+ else if ((USItype) au.s.low > (USItype) bu.s.low)
return 2;
return 1;
}
#endif
\f
+#if defined(L_fixunstfdi) && (LONG_DOUBLE_TYPE_SIZE == 128)
+#define WORD_SIZE (sizeof (SItype) * BITS_PER_UNIT)
+#define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE)
+
+DItype
+__fixunstfdi (a)
+ TFtype a;
+{
+ TFtype b;
+ UDItype v;
+
+ if (a < 0)
+ return 0;
+
+ /* Compute high word of result, as a flonum. */
+ b = (a / HIGH_WORD_COEFF);
+ /* Convert that to fixed (but not to DItype!),
+ and shift it into the high word. */
+ v = (USItype) b;
+ v <<= WORD_SIZE;
+ /* Remove high part from the TFtype, leaving the low part as flonum. */
+ a -= (TFtype)v;
+ /* Convert that to fixed (but not to DItype!) and add it in.
+ Sometimes A comes out negative. This is significant, since
+ A has more bits than a long int does. */
+ if (a < 0)
+ v -= (USItype) (- a);
+ else
+ v += (USItype) a;
+ return v;
+}
+#endif
+
+#if defined(L_fixtfdi) && (LONG_DOUBLE_TYPE_SIZE == 128)
+DItype
+__fixtfdi (a)
+ TFtype a;
+{
+ if (a < 0)
+ return - __fixunstfdi (-a);
+ return __fixunstfdi (a);
+}
+#endif
+
#ifdef L_fixunsdfdi
-#define WORD_SIZE (sizeof (long) * BITS_PER_UNIT)
-#define HIGH_WORD_COEFF (((long long) 1) << WORD_SIZE)
+#define WORD_SIZE (sizeof (SItype) * BITS_PER_UNIT)
+#define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE)
-long long
+DItype
__fixunsdfdi (a)
- double a;
+ DFtype a;
{
- double b;
- unsigned long long v;
+ DFtype b;
+ UDItype v;
if (a < 0)
return 0;
/* Compute high word of result, as a flonum. */
b = (a / HIGH_WORD_COEFF);
- /* Convert that to fixed (but not to long long!),
+ /* Convert that to fixed (but not to DItype!),
and shift it into the high word. */
- v = (unsigned long int) b;
+ v = (USItype) b;
v <<= WORD_SIZE;
- /* Remove high part from the double, leaving the low part as flonum. */
- a -= (double)v;
- /* Convert that to fixed (but not to long long!) and add it in.
+ /* Remove high part from the DFtype, leaving the low part as flonum. */
+ a -= (DFtype)v;
+ /* Convert that to fixed (but not to DItype!) and add it in.
Sometimes A comes out negative. This is significant, since
A has more bits than a long int does. */
if (a < 0)
- v -= (unsigned long int) (- a);
+ v -= (USItype) (- a);
else
- v += (unsigned long int) a;
+ v += (USItype) a;
return v;
}
#endif
#ifdef L_fixdfdi
-long long
+DItype
__fixdfdi (a)
- double a;
+ DFtype a;
{
if (a < 0)
return - __fixunsdfdi (-a);
#endif
#ifdef L_fixunssfdi
-#define WORD_SIZE (sizeof (long) * BITS_PER_UNIT)
-#define HIGH_WORD_COEFF (((long long) 1) << WORD_SIZE)
+#define WORD_SIZE (sizeof (SItype) * BITS_PER_UNIT)
+#define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE)
-long long
-__fixunssfdi (float original_a)
+DItype
+__fixunssfdi (SFtype original_a)
{
- /* Convert the float to a double, because that is surely not going
+ /* Convert the SFtype to a DFtype, because that is surely not going
to lose any bits. Some day someone else can write a faster version
- that avoids converting to double, and verify it really works right. */
- double a = original_a;
- double b;
- unsigned long long v;
+ that avoids converting to DFtype, and verify it really works right. */
+ DFtype a = original_a;
+ DFtype b;
+ UDItype v;
if (a < 0)
return 0;
/* Compute high word of result, as a flonum. */
b = (a / HIGH_WORD_COEFF);
- /* Convert that to fixed (but not to long long!),
+ /* Convert that to fixed (but not to DItype!),
and shift it into the high word. */
- v = (unsigned long int) b;
+ v = (USItype) b;
v <<= WORD_SIZE;
- /* Remove high part from the double, leaving the low part as flonum. */
- a -= (double)v;
- /* Convert that to fixed (but not to long long!) and add it in.
+ /* Remove high part from the DFtype, leaving the low part as flonum. */
+ a -= (DFtype)v;
+ /* Convert that to fixed (but not to DItype!) and add it in.
Sometimes A comes out negative. This is significant, since
A has more bits than a long int does. */
if (a < 0)
- v -= (unsigned long int) (- a);
+ v -= (USItype) (- a);
else
- v += (unsigned long int) a;
+ v += (USItype) a;
return v;
}
#endif
#ifdef L_fixsfdi
-long long
-__fixsfdi (float a)
+DItype
+__fixsfdi (SFtype a)
{
if (a < 0)
return - __fixunssfdi (-a);
}
#endif
+#if defined(L_floatditf) && (LONG_DOUBLE_TYPE_SIZE == 128)
+#define WORD_SIZE (sizeof (SItype) * BITS_PER_UNIT)
+#define HIGH_HALFWORD_COEFF (((UDItype) 1) << (WORD_SIZE / 2))
+#define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE)
+
+TFtype
+__floatditf (u)
+ DItype u;
+{
+ TFtype d;
+ SItype negate = 0;
+
+ if (u < 0)
+ u = -u, negate = 1;
+
+ d = (USItype) (u >> WORD_SIZE);
+ d *= HIGH_HALFWORD_COEFF;
+ d *= HIGH_HALFWORD_COEFF;
+ d += (USItype) (u & (HIGH_WORD_COEFF - 1));
+
+ return (negate ? -d : d);
+}
+#endif
+
#ifdef L_floatdidf
-#define WORD_SIZE (sizeof (long) * BITS_PER_UNIT)
-#define HIGH_HALFWORD_COEFF (((long long) 1) << (WORD_SIZE / 2))
-#define HIGH_WORD_COEFF (((long long) 1) << WORD_SIZE)
+#define WORD_SIZE (sizeof (SItype) * BITS_PER_UNIT)
+#define HIGH_HALFWORD_COEFF (((UDItype) 1) << (WORD_SIZE / 2))
+#define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE)
-double
+DFtype
__floatdidf (u)
- long long u;
+ DItype u;
{
- double d;
- int negate = 0;
+ DFtype d;
+ SItype negate = 0;
if (u < 0)
u = -u, negate = 1;
- d = (unsigned int) (u >> WORD_SIZE);
+ d = (USItype) (u >> WORD_SIZE);
d *= HIGH_HALFWORD_COEFF;
d *= HIGH_HALFWORD_COEFF;
- d += (unsigned int) (u & (HIGH_WORD_COEFF - 1));
+ d += (USItype) (u & (HIGH_WORD_COEFF - 1));
return (negate ? -d : d);
}
#endif
#ifdef L_floatdisf
-#define WORD_SIZE (sizeof (long) * BITS_PER_UNIT)
-#define HIGH_HALFWORD_COEFF (((long long) 1) << (WORD_SIZE / 2))
-#define HIGH_WORD_COEFF (((long long) 1) << WORD_SIZE)
+#define WORD_SIZE (sizeof (SItype) * BITS_PER_UNIT)
+#define HIGH_HALFWORD_COEFF (((UDItype) 1) << (WORD_SIZE / 2))
+#define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE)
-float
+SFtype
__floatdisf (u)
- long long u;
+ DItype u;
{
- float f;
- int negate = 0;
+ SFtype f;
+ SItype negate = 0;
if (u < 0)
u = -u, negate = 1;
- f = (unsigned int) (u >> WORD_SIZE);
+ f = (USItype) (u >> WORD_SIZE);
f *= HIGH_HALFWORD_COEFF;
f *= HIGH_HALFWORD_COEFF;
- f += (unsigned int) (u & (HIGH_WORD_COEFF - 1));
+ f += (USItype) (u & (HIGH_WORD_COEFF - 1));
return (negate ? -f : f);
}
#ifdef L_fixunsdfsi
#include "limits.h"
-unsigned SItype
+USItype
__fixunsdfsi (a)
- double a;
+ DFtype a;
{
- if (a >= - (double) LONG_MIN)
+ if (a >= - (DFtype) LONG_MIN)
return (SItype) (a + LONG_MIN) - LONG_MIN;
return (SItype) a;
}
#ifdef L_fixunssfsi
#include "limits.h"
-unsigned SItype
-__fixunssfsi (float a)
+USItype
+__fixunssfsi (SFtype a)
{
- if (a >= - (float) LONG_MIN)
+ if (a >= - (SFtype) LONG_MIN)
return (SItype) (a + LONG_MIN) - LONG_MIN;
return (SItype) a;
}
#endif
\f
+/* From here on down, the routines use normal data types. */
+
+#define SItype bogus_type
+#define USItype bogus_type
+#define DItype bogus_type
+#define UDItype bogus_type
+#define SFtype bogus_type
+#define DFtype bogus_type
+
+#undef char
+#undef short
+#undef int
+#undef long
+#undef unsigned
+#undef float
+#undef double
+
#ifdef L_varargs
#ifdef __i860__
-#ifdef SVR4
+#if defined(__svr4__) || defined(__alliant__)
asm (" .text");
asm (" .align 4");
+/* The Alliant needs the added underscore. */
asm (".globl __builtin_saveregs");
asm ("__builtin_saveregs:");
- asm (" andnot 0x0f,%sp,%sp"); /* round down to 16-byte boundary */
+ asm (".globl ___builtin_saveregs");
+asm ("___builtin_saveregs:");
+
+ asm (" andnot 0x0f,%sp,%sp"); /* round down to 16-byte boundary */
asm (" adds -96,%sp,%sp"); /* allocate stack space for reg save
area and also for a new va_list
structure */
asm (" bri %r1"); /* delayed return */
asm (" st.l %r28,12(%r16)"); /* pointer to overflow args */
-#else /* not SVR4 */
+#else /* not __SVR4__ */
asm (" .text");
asm (" .align 4");
asm (" mov r30,sp");
/* recover stack and pass address to start
of data. */
-#endif /* not SVR4 */
+#endif /* not __SVR4__ */
#else /* not __i860__ */
#ifdef __sparc__
+ asm (".global __builtin_saveregs");
+ asm ("__builtin_saveregs:");
asm (".global ___builtin_saveregs");
asm ("___builtin_saveregs:");
+#ifdef NEED_PROC_COMMAND
+ asm (".proc 020");
+#endif
asm ("st %i0,[%fp+68]");
asm ("st %i1,[%fp+72]");
asm ("st %i2,[%fp+76]");
asm ("st %i4,[%fp+84]");
asm ("retl");
asm ("st %i5,[%fp+88]");
+#ifdef NEED_TYPE_COMMAND
+ asm (".type __builtin_saveregs,#function");
+ asm (".size __builtin_saveregs,.-__builtin_saveregs");
+#endif
#else /* not __sparc__ */
#if defined(__MIPSEL__) | defined(__R3000__) | defined(__R2000__) | defined(__mips__)
/* This is used by the `assert' macro. */
void
__eprintf (string, expression, line, filename)
- char *string;
- char *expression;
+ const char *string;
+ const char *expression;
int line;
- char *filename;
+ const char *filename;
{
fprintf (stderr, string, expression, line, filename);
fflush (stderr);
typedef void (*vfp)(void);
extern vfp __new_handler;
+extern void *malloc ();
void *
__builtin_new (sz)
- long sz;
+ size_t sz;
{
void *p;
- p = (void *) malloc (sz);
+ p = malloc (sz);
if (p == 0)
(*__new_handler) ();
return p;
}
#endif
-#ifdef L_builtin_New
+#ifdef L_caps_New
typedef void (*vfp)(void);
-static void default_new_handler ();
+extern void *__builtin_new (size_t);
+static void default_new_handler (void);
vfp __new_handler = default_new_handler;
void *
__builtin_vec_new (p, maxindex, size, ctor)
void *p;
- int maxindex, size;
+ size_t maxindex;
+ size_t size;
void (*ctor)(void *);
{
- int i, nelts = maxindex + 1;
+ size_t i;
+ size_t nelts = maxindex + 1;
void *rval;
if (p == 0)
- p = (void *)__builtin_new (nelts * size);
+ p = __builtin_new (nelts * size);
rval = p;
return __set_new_handler (handler);
}
+#define MESSAGE "Virtual memory exceeded in `new'\n"
+
static void
default_new_handler ()
{
/* don't use fprintf (stderr, ...) because it may need to call malloc. */
/* This should really print the name of the program, but that is hard to
do. We need a standard, clean way to get at the name. */
- write (2, "Virtual memory exceeded in `new'\n", 33);
+ write (2, MESSAGE, sizeof (MESSAGE));
/* don't call exit () because that may call global destructors which
may cause a loop. */
_exit (-1);
void
__builtin_vec_delete (ptr, maxindex, size, dtor, auto_delete_vec, auto_delete)
void *ptr;
- int maxindex, size;
- void (*dtor)();
+ size_t maxindex;
+ size_t size;
+ void (*dtor)(void *, int);
int auto_delete;
{
- int i, nelts = maxindex + 1;
+ size_t i;
+ size_t nelts = maxindex + 1;
void *p = ptr;
ptr += nelts * size;
static char array[INSN_CACHE_SIZE + INSN_CACHE_PLANE_SIZE + INSN_CACHE_LINE_WIDTH];
static int initialized = 0;
int offset;
- unsigned int start_addr, end_addr;
+ void *start_addr
+ void *end_addr;
typedef (*function_ptr) ();
#if (INSN_CACHE_SIZE / INSN_CACHE_LINE_WIDTH) < 16
asm ("pich");
}
#endif /* __convex__ */
+
+#ifdef __pyr__
+
+#include <stdio.h>
+#include <sys/mman.h>
+#include <sys/types.h>
+#include <sys/param.h>
+#include <sys/vmmac.h>
+
+/* Modified from the convex -code above.
+ mremap promises to clear the i-cache. */
+
+void
+__enable_execute_stack ()
+{
+ int fp;
+ if (mprotect (((unsigned int)&fp/PAGSIZ)*PAGSIZ, PAGSIZ,
+ PROT_READ|PROT_WRITE|PROT_EXEC))
+ {
+ perror ("mprotect in __enable_execute_stack");
+ fflush (stderr);
+ abort ();
+ }
+}
+#endif /* __pyr__ */
#endif /* L_trampoline */
\f
#ifdef L__main
#ifdef DO_GLOBAL_DTORS_BODY
DO_GLOBAL_DTORS_BODY;
#else
- int nptrs = *(int *)__DTOR_LIST__;
- int i;
+ unsigned nptrs = (unsigned HOST_WIDE_INT) __DTOR_LIST__[0];
+ unsigned i;
/* Some systems place the number of pointers
in the first word of the table.
DO_GLOBAL_CTORS_BODY;
ON_EXIT (__do_global_dtors, 0);
}
+#endif /* no INIT_SECTION_ASM_OP */
+#if !defined (INIT_SECTION_ASM_OP) || defined (INVOKE__main)
/* Subroutine called automatically by `main'.
Compiling a global function named `main'
produces an automatic call to this function at the beginning.
__main ()
{
/* Support recursive calls to `main': run initializers just once. */
- static initialized = 0;
+ static int initialized = 0;
if (! initialized)
{
initialized = 1;
__do_global_ctors ();
}
}
-#endif /* no INIT_SECTION_ASM_OP */
+#endif /* no INIT_SECTION_ASM_OP or INVOKE__main */
#endif /* L__main */
\f
/* We declare the lists here with two elements each,
so that they are valid empty lists if no other definition is loaded. */
-#ifndef INIT_SECTION_ASM_OP
+#if !defined(INIT_SECTION_ASM_OP) && !defined(CTOR_LISTS_DEFINED_EXTERNALLY)
func_ptr __CTOR_LIST__[2];
func_ptr __DTOR_LIST__[2];
-#endif /* INIT_SECTION_ASM_OP */
+#endif /* no INIT_SECTION_ASM_OP and not CTOR_LISTS_DEFINED_EXTERNALLY */
#ifndef ON_EXIT