From 067d09720c5591715cca6109f926f8636a62546a Mon Sep 17 00:00:00 2001
From: steve <steve>
Date: Sat, 15 Jun 2002 02:35:49 +0000
Subject: [PATCH]  Rounding error.

---
 verireal.cc | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/verireal.cc b/verireal.cc
index cf680f5ae..13a3bc442 100644
--- a/verireal.cc
+++ b/verireal.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT) && !defined(macintosh)
-#ident "$Id: verireal.cc,v 1.6 2001/11/06 06:11:55 steve Exp $"
+#ident "$Id: verireal.cc,v 1.7 2002/06/15 02:35:49 steve Exp $"
 #endif
 
 # include "config.h"
@@ -107,9 +107,8 @@ long verireal::as_long(int shift) const
       while (ex < 0) {
 	    long mod = val % 10;
 	    val /= 10;
-	    if (mod >= 5)
+	    if (ex == -1 && mod >= 5)
 		  val += 1;
-
 	    ex += 1;
       }
 
@@ -141,6 +140,9 @@ ostream& operator<< (ostream&out, const verireal&v)
 
 /*
  * $Log: verireal.cc,v $
+ * Revision 1.7  2002/06/15 02:35:49  steve
+ *  Rounding error.
+ *
  * Revision 1.6  2001/11/06 06:11:55  steve
  *  Support more real arithmetic in delay constants.
  *