(asctoeg): `0.0eX' is zero, regardless of the exponent X.

From-SVN: r12373

(asctoeg): `0.0eX' is zero, regardless of the exponent X.
From-SVN: r12373
25a00742 · Richard Kenner · 241cea85 · 25a00742
Commit 25a00742 authored Jun 28, 1996 by Richard Kenner
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 0 deletions

gcc/real.c
+8 -0

No files found.
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -4988,7 +4988,15 @@ asctoeg (ss, y, oprec)

  /* Exponent interpretation */
 expnt:
+  /* 0.0eXXX is zero, regardless of XXX.  Check for the 0.0. */
+  for (k = 0; k < NI; k++)
+    {
+      if (yy[k] != 0)
+	goto read_expnt;
+    }
+  goto aexit;

+read_expnt:
  esign = 1;
  exp = 0;
  ++s;