From 468b4b973c43eb8bc989f4d8d96f0981053edfb6 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sun, 7 Jul 2013 10:11:17 +0200
Subject: [PATCH] nghash_delete() models and instances in CKTdltMod()

---
 src/spicelib/analysis/cktdltm.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/spicelib/analysis/cktdltm.c b/src/spicelib/analysis/cktdltm.c
index bbdc36b07..bc0ab245d 100644
--- a/src/spicelib/analysis/cktdltm.c
+++ b/src/spicelib/analysis/cktdltm.c
@@ -33,10 +33,14 @@ CKTdltMod(CKTcircuit *ckt, GENmodel *m)
 
     for (h = m->GENinstances; h; h = next_i) {
 	    next_i = h->GENnextInstance;
+            if (h != nghash_delete(ckt->DEVnameHash, h->GENname))
+                fprintf(stderr, "ERROR, ouch nasal daemons ...\n");
 	    error = SPfrontEnd->IFdelUid (ckt, h->GENname,
 		    UID_INSTANCE);
 	    tfree(h);
     }
+    if (m != nghash_delete(ckt->MODnameHash, m->GENmodName))
+        fprintf(stderr, "ERROR, ouch nasal daemons ...\n");
     error = SPfrontEnd->IFdelUid (ckt, m->GENmodName, UID_MODEL);
     tfree(m);
     return(OK);