This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
paranoia update
- From: Richard Henderson <rth at redhat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Mon, 21 Oct 2002 17:11:24 -0700
- Subject: paranoia update
For testing a 158-bit synthetic format, as suggested by Brad.
Goes with a real.c patch to be posted momentarily.
r~
* paranoia.cc (real_c_float::image): Accomodate size of
real_internal format.
(main): Unbuffer stdio. Add real_internal format.
(floor_log2_wide): New.
Index: paranoia.cc
===================================================================
RCS file: /cvs/gcc/gcc/contrib/paranoia.cc,v
retrieving revision 1.2
diff -c -p -d -u -r1.2 paranoia.cc
--- paranoia.cc 16 Oct 2002 23:07:29 -0000 1.2
+++ paranoia.cc 22 Oct 2002 00:07:59 -0000
@@ -195,7 +195,10 @@ class real_c_float
static const enum machine_mode MODE = SFmode;
private:
- long image[128 / 32];
+ static const int external_max = 128 / 32;
+ static const int internal_max
+ = (sizeof (REAL_VALUE_TYPE) + sizeof (long) + 1) / sizeof (long);
+ long image[external_max < internal_max ? internal_max : external_max];
void from_long(long);
void from_str(const char *);
@@ -2607,6 +2610,9 @@ Paranoia<FLOAT>::notify (const char *s)
int main(int ac, char **av)
{
+ setbuf(stdout, NULL);
+ setbuf(stderr, NULL);
+
while (1)
switch (getopt (ac, av, "pvg:fdl"))
{
@@ -2639,6 +2645,7 @@ int main(int ac, char **av)
F(i370_double),
F(c4x_single),
F(c4x_extended),
+ F(real_internal),
#undef F
};
@@ -2697,3 +2704,13 @@ fancy_abort ()
}
int target_flags = 0;
+
+extern "C" int
+floor_log2_wide (unsigned HOST_WIDE_INT x)
+{
+ int log = -1;
+ while (x != 0)
+ log++,
+ x >>= 1;
+ return log;
+}