From 4fce321900c6e505a108bc439c33855397a4a2f0 Mon Sep 17 00:00:00 2001
From: steve <steve>
Date: Sat, 12 Feb 2005 03:27:18 +0000
Subject: [PATCH]  Support C8 constants.

---
 vvp/compile.cc | 46 +++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 45 insertions(+), 1 deletion(-)

diff --git a/vvp/compile.cc b/vvp/compile.cc
index cb72f05c3..7f9dbed43 100644
--- a/vvp/compile.cc
+++ b/vvp/compile.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: compile.cc,v 1.185 2005/01/30 05:06:49 steve Exp $"
+#ident "$Id: compile.cc,v 1.186 2005/02/12 03:27:18 steve Exp $"
 #endif
 
 # include  "arith.h"
@@ -713,6 +713,47 @@ void input_connect(vvp_net_t*fdx, unsigned port, char*label)
 	    return;
       }
 
+	/* Is this a vvp_vector8_t constant value? */
+      if ((strncmp(label, "C8<", 3) == 0)
+	  && ((tp = strchr(label,'>')))
+	  && (tp[1] == 0)
+	  && (strspn(label+3, "01234567xz") == (tp-label-3))) {
+
+	    size_t vsize = tp-label-3;
+	    assert(vsize%3 == 0);
+	    vsize /= 3;
+
+	    vvp_vector8_t tmp (vsize);
+
+	    for (unsigned idx = 0 ;  idx < vsize ;  idx += 1) {
+		  vvp_bit4_t bit = BIT4_Z;
+		  unsigned dr0 = label[3+idx*3+0] - '0';
+		  unsigned dr1 = label[3+idx*3+1] - '0';
+
+		  switch (label[3+idx*3+2]) {
+		      case '0':
+			bit = BIT4_0;
+			break;
+		      case '1':
+			bit = BIT4_1;
+			break;
+		      case 'x':
+			bit = BIT4_X;
+			break;
+		      case 'z':
+			bit = BIT4_Z;
+			break;
+		  }
+
+		  tmp.set_bit(vsize-idx-1, vvp_scaler_t(bit, dr0, dr1));
+	    }
+
+	    schedule_set_vector(ifdx, tmp);
+
+	    free(label);
+	    return;
+      }
+
 	/* Handle the general case that this is a label for a node in
 	   the vvp net. This arranges for the label to be preserved in
 	   a linker list, and linked when the symbol table is
@@ -1577,6 +1618,9 @@ void compile_param_string(char*label, char*name, char*str, char*value)
 
 /*
  * $Log: compile.cc,v $
+ * Revision 1.186  2005/02/12 03:27:18  steve
+ *  Support C8 constants.
+ *
  * Revision 1.185  2005/01/30 05:06:49  steve
  *  Get .arith/sub working.
  *