From c7b36322f690a899a114a427d5d45e833d13fe63 Mon Sep 17 00:00:00 2001
From: steve <steve>
Date: Mon, 9 Jul 2001 15:38:35 +0000
Subject: [PATCH]  Properly step through wide inputs. (Stephan Boettcher)

---
 tgt-vvp/eval_expr.c | 6 ++++--
 tgt-vvp/vvp_scope.c | 8 ++++++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/tgt-vvp/eval_expr.c b/tgt-vvp/eval_expr.c
index 15d107bdb..1acd60d2c 100644
--- a/tgt-vvp/eval_expr.c
+++ b/tgt-vvp/eval_expr.c
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: eval_expr.c,v 1.35 2001/07/07 20:20:10 steve Exp $"
+#ident "$Id: eval_expr.c,v 1.36 2001/07/09 15:38:35 steve Exp $"
 #endif
 
 # include  "vvp_priv.h"
@@ -820,7 +820,6 @@ static struct vector_info draw_sfunc_expr(ivl_expr_t exp, unsigned wid)
       unsigned parm_count = ivl_expr_parms(exp);
       struct vector_info res;
 
-      fprintf(stderr, "XXXX %s(%u)\n", ivl_expr_name(exp), parm_count);
 
 	/* If the function has no parameters, then use this short-form
 	   to draw the statement. */
@@ -1126,6 +1125,9 @@ struct vector_info draw_eval_expr(ivl_expr_t exp)
 
 /*
  * $Log: eval_expr.c,v $
+ * Revision 1.36  2001/07/09 15:38:35  steve
+ *  Properly step through wide inputs. (Stephan Boettcher)
+ *
  * Revision 1.35  2001/07/07 20:20:10  steve
  *  Pass parameters to system functions.
  *
diff --git a/tgt-vvp/vvp_scope.c b/tgt-vvp/vvp_scope.c
index ce08b83ec..74777a47a 100644
--- a/tgt-vvp/vvp_scope.c
+++ b/tgt-vvp/vvp_scope.c
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: vvp_scope.c,v 1.38 2001/07/07 03:01:06 steve Exp $"
+#ident "$Id: vvp_scope.c,v 1.39 2001/07/09 15:38:35 steve Exp $"
 #endif
 
 # include  "vvp_priv.h"
@@ -614,7 +614,7 @@ static void draw_logic_in_scope(ivl_net_logic_t lptr)
 			      fprintf(vvp_out, ", L_%s/%d/%d",
 				      vvp_mangle_id(ivl_logic_name(lptr)),
 				      level - 1,
-				      pdx );
+				      pdx*4 );
 			} else {
 			      ivl_nexus_t nex = ivl_logic_pin(lptr, pdx+1);
 			      fprintf(vvp_out, ", ");
@@ -631,6 +631,7 @@ static void draw_logic_in_scope(ivl_net_logic_t lptr)
 		  ninp = (ninp+3) / 4;
 	    else
 		  ninp = 0;
+	    level += 1;
       }
 }
 
@@ -1071,6 +1072,9 @@ int draw_scope(ivl_scope_t net, ivl_scope_t parent)
 
 /*
  * $Log: vvp_scope.c,v $
+ * Revision 1.39  2001/07/09 15:38:35  steve
+ *  Properly step through wide inputs. (Stephan Boettcher)
+ *
  * Revision 1.38  2001/07/07 03:01:06  steve
  *  Generate code for right shift.
  *