* real.c (mtherr): Print more reasonable warning messages.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@24502 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index caa7e12..d456392 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+Wed Jan  6 00:54:21 1999  Geoff Keating  <geoffk@ozemail.com.au>
+
+       * real.c (mtherr): Print more reasonable warning messages.
+
 Tue Jan  5 21:57:42 1999  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        * Makefile.in (gcc.o, prefix.o, cccp.o, cpplib.o): Depend on prefix.h.

diff --git a/gcc/real.c b/gcc/real.c
index 7001c5e..22b4ba5 100644 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -5676,13 +5676,13 @@ eiremain (den, num)
 static char *ermsg[NMSGS] =
 {
   "unknown",                   /* error code 0 */
-  "domain",                    /* error code 1 */
+  "domain error",              /* error code 1 */
   "singularity",               /* et seq.      */
   "overflow",
   "underflow",
   "total loss of precision",
   "partial loss of precision",
-  "invalid operation"
+  "`not-a-number' produced"
 };
 
 int merror = 0;
@@ -5701,7 +5701,23 @@ mtherr (name, code)
 
   if ((code <= 0) || (code >= NMSGS))
     code = 0;
-  sprintf (errstr, " %s %s error", name, ermsg[code]);
+  if (strcmp (name, "esub") == 0)
+    name = "subtraction";
+  else if (strcmp (name, "ediv") == 0)
+    name = "division";
+  else if (strcmp (name, "emul") == 0)
+    name = "multiplication";
+  else if (strcmp (name, "enormlz") == 0)
+    name = "normalization";
+  else if (strcmp (name, "etoasc") == 0)
+    name = "conversion to text";
+  else if (strcmp (name, "asctoe") == 0)
+    name = "parsing";
+  else if (strcmp (name, "eremain") == 0)
+    name = "modulus";
+  else if (strcmp (name, "esqrt") == 0)
+    name = "square root";
+  sprintf (errstr, "%s during real %s", ermsg[code], name);
   if (extra_warnings)
     warning (errstr);
   /* Set global error message word */