From cd5b1b111c8a0979b176d8913d7e33678bf249ec Mon Sep 17 00:00:00 2001
From: steve <steve>
Date: Sun, 18 Feb 2007 06:01:25 +0000
Subject: [PATCH]  Fix print of integers as real. <larry Doolittle>

---
 vvp/vpi_vthr_vector.cc | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/vvp/vpi_vthr_vector.cc b/vvp/vpi_vthr_vector.cc
index 7d3a6d094..e8dc66237 100644
--- a/vvp/vpi_vthr_vector.cc
+++ b/vvp/vpi_vthr_vector.cc
@@ -18,7 +18,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: vpi_vthr_vector.cc,v 1.22 2005/08/29 02:38:50 steve Exp $"
+#ident "$Id: vpi_vthr_vector.cc,v 1.23 2007/02/18 06:01:25 steve Exp $"
 #endif
 
 /*
@@ -246,19 +246,23 @@ static void vthr_vec_get_value(vpiHandle ref, s_vpi_value*vp)
 	    break;
 
 	  case vpiIntVal:
-	    vp->value.integer = 0;
+	  case vpiRealVal: {
+	    long ival = 0;
 	    for (unsigned idx = 0 ;  idx < wid ;  idx += 1) {
 		  switch (get_bit(rfp, idx)) {
 		      case 0:
 			break;
 		      case 1:
-			vp->value.integer |= 1 << idx;
+			ival |= 1 << idx;
 			break;
 		      case 2:
 		      case 3:
 			break;
 		  }
 	    }
+	    if (vp->format == vpiRealVal) vp->value.real = ival;
+	    else vp->value.integer = ival;
+	    }
 	    break;
 
 	  case vpiVectorVal:
@@ -533,6 +537,9 @@ vpiHandle vpip_make_vthr_word(unsigned base, const char*type)
 
 /*
  * $Log: vpi_vthr_vector.cc,v $
+ * Revision 1.23  2007/02/18 06:01:25  steve
+ *  Fix print of integers as real. <larry Doolittle>
+ *
  * Revision 1.22  2005/08/29 02:38:50  steve
  *  Eliminate int to vvp_bit4_t casts.
  *