This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Patch installed: today's warning nits.
- To: egcs-patches at egcs dot cygnus dot com
- Subject: Patch installed: today's warning nits.
- From: "Kaveh R. Ghazi" <ghazi at caip dot rutgers dot edu>
- Date: Wed, 19 Jan 2000 17:21:51 -0500 (EST)
Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/egcs/gcc/ChangeLog,v
retrieving revision 1.5482
diff -u -p -r1.5482 ChangeLog
--- ChangeLog 2000/01/19 21:57:37 1.5482
+++ ChangeLog 2000/01/19 22:19:59
@@ -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.
Index: real.c
===================================================================
RCS file: /cvs/gcc/egcs/gcc/real.c,v
retrieving revision 1.33
diff -u -p -r1.33 real.c
--- real.c 2000/01/17 17:16:19 1.33
+++ real.c 2000/01/19 22:20:02
@@ -352,19 +352,24 @@ static int eisneg PARAMS ((unsigned EMUS
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 EMU
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,8 +1919,8 @@ 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, 0
#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. */