From 85e2bf3e559b61fc139e879420f3cc62c4fbeb03 Mon Sep 17 00:00:00 2001
From: Cary R <cygcary@yahoo.com>
Date: Thu, 2 Apr 2009 17:20:41 -0700
Subject: [PATCH] If a PGAssign is driven by a select then make a driver.

When a PGAssign is driven by (r-value) a bit, part or indexed
select and the strength is not the default (supply). Then
we need to create a driver (BUFZ) to convey the strength
information.
---
 elaborate.cc | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/elaborate.cc b/elaborate.cc
index 10e7acf4b..44ee64ab2 100644
--- a/elaborate.cc
+++ b/elaborate.cc
@@ -189,6 +189,14 @@ void PGAssign::elaborate(Design*des, NetScope*scope) const
 	    need_driver_flag = false;
       }
 
+	/* When we are given a non-default strength value and if the
+	 * drive source is a bit, part or indexed select we need to
+	 * add a driver (BUFZ) to convey the strength information. */
+      if ((drive0 != Link::STRONG || drive1 != Link::STRONG) &&
+          (dynamic_cast<NetESelect*>(rval_expr))) {
+	    need_driver_flag = true;
+      }
+
       if (need_driver_flag) {
 	    NetBUFZ*driver = new NetBUFZ(scope, scope->local_symbol(),
 					 rval->vector_width());