OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

real.c (enan, [...]): Wrap in NANS.

Browse Source 
* real.c (enan, einan, eiisnan, eiisneg, make_nan): Wrap in NANS.
        (target_isinf, target_isnan, eisnan): Mark parameter with
        ATTRIBUTE_UNUSED.
        (eiisinf): Wrap in INFINITY.
        (etoe113, etoe64, etoe53, etoe24): Wrap label `nonorm' in INFINITY.
        (ibmtoe): Remove unused variable `rndsav'.

From-SVN: r31518
This commit is contained in:
Kaveh R. Ghazi 2000-01-19 22:21:22 +00:00 committed by Kaveh Ghazi
parent 10db12e0c6
commit b42b4d2c33
2 changed files with 42 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ChangeLog
View File

@ -1,3 +1,12 @@
2000-01-19 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* real.c (enan, einan, eiisnan, eiisneg, make_nan): Wrap in NANS.
(target_isinf, target_isnan, eisnan): Mark parameter with
ATTRIBUTE_UNUSED.
(eiisinf): Wrap in INFINITY.
(etoe113, etoe64, etoe53, etoe24): Wrap label `nonorm' in INFINITY.
(ibmtoe): Remove unused variable `rndsav'.
Wed Jan 19 20:23:06 2000 J"orn Rennecke <amylaar@cygnus.co.uk>
* sh.h (PASS_IN_REG_P): Remove extraneous paranthesis.

44
gcc/real.c
View File

@ -352,19 +352,24 @@ static int eisneg PARAMS ((unsigned EMUSHORT *));
static int eisinf PARAMS ((unsigned EMUSHORT *));
static int eisnan PARAMS ((unsigned EMUSHORT *));
static void einfin PARAMS ((unsigned EMUSHORT *));
#ifdef NANS
static void enan PARAMS ((unsigned EMUSHORT *, int));
static void einan PARAMS ((unsigned EMUSHORT *));
static int eiisnan PARAMS ((unsigned EMUSHORT *));
static int eiisneg PARAMS ((unsigned EMUSHORT *));
static void make_nan PARAMS ((unsigned EMUSHORT *, int, enum machine_mode));
#endif
static void emovi PARAMS ((unsigned EMUSHORT *, unsigned EMUSHORT *));
static void emovo PARAMS ((unsigned EMUSHORT *, unsigned EMUSHORT *));
static void ecleaz PARAMS ((unsigned EMUSHORT *));
static void ecleazs PARAMS ((unsigned EMUSHORT *));
static void emovz PARAMS ((unsigned EMUSHORT *, unsigned EMUSHORT *));
static void einan PARAMS ((unsigned EMUSHORT *));
static int eiisnan PARAMS ((unsigned EMUSHORT *));
static int eiisneg PARAMS ((unsigned EMUSHORT *));
#if 0
static void eiinfin PARAMS ((unsigned EMUSHORT *));
#endif
#ifdef INFINITY
static int eiisinf PARAMS ((unsigned EMUSHORT *));
#endif
static int ecmpm PARAMS ((unsigned EMUSHORT *, unsigned EMUSHORT *));
static void eshdn1 PARAMS ((unsigned EMUSHORT *));
static void eshup1 PARAMS ((unsigned EMUSHORT *));
@ -459,7 +464,6 @@ static void etoc4x PARAMS ((unsigned EMUSHORT *, unsigned EMUSHORT *,
static void toc4x PARAMS ((unsigned EMUSHORT *, unsigned EMUSHORT *,
enum machine_mode));
#endif
static void make_nan PARAMS ((unsigned EMUSHORT *, int, enum machine_mode));
#if 0
static void uditoe PARAMS ((unsigned EMUSHORT *, unsigned EMUSHORT *));
static void ditoe PARAMS ((unsigned EMUSHORT *, unsigned EMUSHORT *));
@ -999,11 +1003,11 @@ ereal_ldexp (x, n)
int
target_isinf (x)
REAL_VALUE_TYPE x;
REAL_VALUE_TYPE x ATTRIBUTE_UNUSED;
{
#ifdef INFINITY
unsigned EMUSHORT e[NE];
#ifdef INFINITY
GET_REAL (&x, e);
return (eisinf (e));
#else
@ -1015,11 +1019,11 @@ target_isinf (x)
int
target_isnan (x)
REAL_VALUE_TYPE x;
REAL_VALUE_TYPE x ATTRIBUTE_UNUSED;
{
#ifdef NANS
unsigned EMUSHORT e[NE];
#ifdef NANS
GET_REAL (&x, e);
return (eisnan (e));
#else
@ -1631,7 +1635,7 @@ eisinf (x)
static int
eisnan (x)
unsigned EMUSHORT x[];
unsigned EMUSHORT x[] ATTRIBUTE_UNUSED;
{
#ifdef NANS
int i;
@ -1696,6 +1700,7 @@ einfin (x)
This generates Intel's quiet NaN pattern for extended real.
The exponent is 7fff, the leading mantissa word is c000. */
#ifdef NANS
static void
enan (x, sign)
register unsigned EMUSHORT *x;
@ -1708,6 +1713,7 @@ enan (x, sign)
*x++ = 0xc000;
*x = (sign << 15) | 0x7fff;
}
#endif /* NANS */
/* Move in an e-type number A, converting it to exploded e-type B. */
@ -1838,6 +1844,7 @@ emovz (a, b)
The explicit pattern for this is maximum exponent and
top two significant bits set. */
#ifdef NANS
static void
einan (x)
unsigned EMUSHORT x[];
@ -1847,9 +1854,11 @@ einan (x)
x[E] = 0x7fff;
x[M + 1] = 0xc000;
}
#endif /* NANS */
/* Return nonzero if exploded e-type X is a NaN. */
#ifdef NANS
static int
eiisnan (x)
unsigned EMUSHORT x[];
@ -1866,9 +1875,11 @@ eiisnan (x)
}
return (0);
}
#endif /* NANS */
/* Return nonzero if sign of exploded e-type X is nonzero. */
#ifdef NANS
static int
eiisneg (x)
unsigned EMUSHORT x[];
@ -1876,6 +1887,7 @@ eiisneg (x)
return x[0] != 0;
}
#endif /* NANS */
#if 0
/* Fill exploded e-type X with infinity pattern.
@ -1893,6 +1905,7 @@ eiinfin (x)
/* Return nonzero if exploded e-type X is infinite. */
#ifdef INFINITY
static int
eiisinf (x)
unsigned EMUSHORT x[];
@ -1906,7 +1919,7 @@ eiisinf (x)
return (1);
return (0);
}
#endif /* INFINITY */
/* Compare significands of numbers in internal exploded e-type format.
Guard words are included in the comparison.
@ -3499,7 +3512,9 @@ etoe113 (x, e)
rndprc = 113;
emdnorm (xi, 0, 0, exp, 64);
rndprc = rndsav;
#ifdef INFINITY
nonorm:
#endif
toe113 (xi, e);
}
@ -3591,7 +3606,9 @@ etoe64 (x, e)
rndprc = 64;
emdnorm (xi, 0, 0, exp, 64);
rndprc = rndsav;
#ifdef INFINITY
nonorm:
#endif
toe64 (xi, e);
}
@ -3804,7 +3821,9 @@ etoe53 (x, e)
rndprc = 53;
emdnorm (xi, 0, 0, exp, 64);
rndprc = rndsav;
#ifdef INFINITY
nonorm:
#endif
toe53 (xi, e);
}
@ -3978,7 +3997,9 @@ etoe24 (x, e)
rndprc = 24;
emdnorm (xi, 0, 0, exp, 64);
rndprc = rndsav;
#ifdef INFINITY
nonorm:
#endif
toe24 (xi, e);
}
@ -5830,7 +5851,6 @@ ibmtoe (d, e, mode)
{
unsigned EMUSHORT y[NI];
register unsigned EMUSHORT r, *p;
int rndsav;
ecleaz (y); /* start with a zero */
p = y; /* point to our number */
@ -6229,6 +6249,7 @@ unsigned EMUSHORT SFlittlenan[2] = {0, 0xffc0};
#endif
#ifdef NANS
static void
make_nan (nan, sign, mode)
unsigned EMUSHORT *nan;
@ -6287,6 +6308,7 @@ make_nan (nan, sign, mode)
if (! REAL_WORDS_BIG_ENDIAN)
*nan = (sign << 15) | (*p & 0x7fff);
}
#endif /* NANS */
/* This is the inverse of the function `etarsingle' invoked by
REAL_VALUE_TO_TARGET_SINGLE. */