diff --git a/net_link.cc b/net_link.cc
index a9f59c3fc..0621a239b 100644
--- a/net_link.cc
+++ b/net_link.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: net_link.cc,v 1.14.2.4 2006/08/08 02:17:48 steve Exp $"
+#ident "$Id: net_link.cc,v 1.14.2.5 2006/08/15 03:41:24 steve Exp $"
 #endif
 
 # include "config.h"
@@ -46,6 +46,7 @@ void connect(Nexus*l, Link&r)
 	    tmp->list_ = cur->next_;
 	    cur->nexus_ = 0;
 	    cur->next_  = 0;
+	    cur->prev_  = 0;
 	    l->relink(cur);
       }
 
@@ -65,7 +66,7 @@ void connect(Link&l, Link&r)
 
 Link::Link()
 : dir_(PASSIVE), drive0_(STRONG), drive1_(STRONG), init_(verinum::Vx),
-  inst_(0), next_(0), nexus_(0)
+  inst_(0), next_(0), prev_(0), nexus_(0)
 {
       (new Nexus()) -> relink(this);
 }
@@ -271,22 +272,29 @@ void Nexus::unlink(Link*that)
       assert(that);
       assert(that->nexus_ == this);
       if (list_ == that) {
+	    assert(that->prev_ == 0);
+	      // Move the second item the front of the list.
 	    list_ = that->next_;
-	    that->next_ = 0;
-	    that->nexus_ = 0;
+	    if (list_)
+		  list_->prev_ = 0;
 	    list_len_ -= 1;
+	      // Clear the pointers for the link.
+	    that->next_ = 0;
+	    that->prev_ = 0;
+	    that->nexus_ = 0;
 	    return;
       }
 
-      Link*cur = list_;
-      while (cur->next_ != that) {
-	    assert(cur->next_);
-	    cur = cur->next_;
-      }
+
+      Link*cur = that->prev_;
+      assert(cur->nexus_ == this);
 
       cur->next_ = that->next_;
+      if (cur->next_)
+	    cur->next_->prev_ = cur;
       that->nexus_ = 0;
       that->next_ = 0;
+      that->prev_ = 0;
       list_len_ -= 1;
 }
 
@@ -305,6 +313,10 @@ void Nexus::relink(Link*that)
       assert(that->nexus_ == 0);
       assert(that->next_ == 0);
       that->next_ = list_;
+      that->prev_ = 0;
+      if (that->next_)
+	    that->next_->prev_ = that;
+
       that->nexus_ = this;
       list_ = that;
       list_len_ += 1;
@@ -573,6 +585,9 @@ bool NexusSet::intersect(const NexusSet&that) const
 
 /*
  * $Log: net_link.cc,v $
+ * Revision 1.14.2.5  2006/08/15 03:41:24  steve
+ *  Improve performance of unlink of heavily connected nexa.
+ *
  * Revision 1.14.2.4  2006/08/08 02:17:48  steve
  *  Improved nexus management performance.
  *
diff --git a/netlist.h b/netlist.h
index cfef4fc23..b40dbdb79 100644
--- a/netlist.h
+++ b/netlist.h
@@ -19,7 +19,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: netlist.h,v 1.321.2.22 2006/08/08 02:17:48 steve Exp $"
+#ident "$Id: netlist.h,v 1.321.2.23 2006/08/15 03:41:24 steve Exp $"
 #endif
 
 /*
@@ -226,7 +226,7 @@ class Link {
       unsigned    inst_;
 
     private:
-      Link *next_;
+      Link *next_, *prev_;
       Nexus*nexus_;
 
     private: // not implemented
@@ -3542,6 +3542,9 @@ extern ostream& operator << (ostream&, NetNet::Type);
 
 /*
  * $Log: netlist.h,v $
+ * Revision 1.321.2.23  2006/08/15 03:41:24  steve
+ *  Improve performance of unlink of heavily connected nexa.
+ *
  * Revision 1.321.2.22  2006/08/08 02:17:48  steve
  *  Improved nexus management performance.
  *
diff --git a/synth2.cc b/synth2.cc
index 73ae0a692..b242a6950 100644
--- a/synth2.cc
+++ b/synth2.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: synth2.cc,v 1.39.2.41 2006/08/08 02:17:49 steve Exp $"
+#ident "$Id: synth2.cc,v 1.39.2.42 2006/08/15 03:41:25 steve Exp $"
 #endif
 
 # include "config.h"
@@ -1707,6 +1707,11 @@ bool NetBlock::synth_sync(Design*des, NetScope*scope,
 	    }
 	    delete[]nex_map_idx;
 
+	    if (debug_synth) {
+		  cerr << get_line() << ": debug: "
+		       << "Bind block substatement done." << endl;
+	    }
+
 	    delete tmp_map;
 	    delete tmp_out;
 	    delete tmp_ff;
@@ -2484,6 +2489,9 @@ void synth2(Design*des)
 
 /*
  * $Log: synth2.cc,v $
+ * Revision 1.39.2.42  2006/08/15 03:41:25  steve
+ *  Improve performance of unlink of heavily connected nexa.
+ *
  * Revision 1.39.2.41  2006/08/08 02:17:49  steve
  *  Improved nexus management performance.
  *