devices/**/XXXmdel.c, cleanup instance loop

src/spicelib/devices/asrc/asrcmdel.c

@@ -13,7 +13,6 @@ int
 ASRCmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -29,15 +28,13 @@ ASRCmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
 
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
+        GENinstance *next_instance = here->GENnextInstance;
         FREE(((ASRCinstance*)here)->ASRCacValues);
-        if (prev)
+        FREE(here);
-            FREE(prev);
+        here = next_instance;
-        prev = here;
     }
 
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim1/b1mdel.c

@@ -13,7 +13,6 @@ int
 B1mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ B1mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim2/b2mdel.c

@@ -13,7 +13,6 @@ int
 B2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ B2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim3/b3mdel.c

@@ -18,7 +18,6 @@ int
 BSIM3mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -32,13 +31,11 @@ BSIM3mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim3soi_dd/b3soiddmdel.c

@@ -21,7 +21,6 @@ int
 B3SOIDDmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -35,13 +34,11 @@ B3SOIDDmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim3soi_fd/b3soifdmdel.c

@@ -20,7 +20,6 @@ int
 B3SOIFDmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -34,13 +33,11 @@ B3SOIFDmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim3soi_pd/b3soipdmdel.c

@@ -20,7 +20,6 @@ int
 B3SOIPDmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -34,13 +33,11 @@ B3SOIPDmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim3v0/b3v0mdel.c

@@ -14,7 +14,6 @@ int
 BSIM3v0mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -28,13 +27,11 @@ BSIM3v0mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim3v1/b3v1mdel.c

@@ -20,7 +20,6 @@ int
 BSIM3v1mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -34,13 +33,11 @@ BSIM3v1mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim3v32/b3v32mdel.c

@@ -19,7 +19,6 @@ int
 BSIM3v32mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -33,13 +32,11 @@ BSIM3v32mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim4/b4mdel.c

@@ -68,7 +68,6 @@ int
 BSIM4mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -82,13 +81,11 @@ BSIM4mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim4v5/b4v5mdel.c

@@ -18,7 +18,6 @@ int
 BSIM4v5mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -32,13 +31,11 @@ BSIM4v5mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim4v6/b4v6mdel.c

@@ -20,7 +20,6 @@ int
 BSIM4v6mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -34,13 +33,11 @@ BSIM4v6mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsim4v7/b4v7mdel.c

@@ -20,7 +20,6 @@ int
 BSIM4v7mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -34,13 +33,11 @@ BSIM4v7mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/bsimsoi/b4soimdel.c

@@ -24,7 +24,6 @@ int
 B4SOImDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -38,13 +37,11 @@ B4SOImDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/cap/capmdel.c

@@ -14,7 +14,6 @@ int
 CAPmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -28,13 +27,11 @@ CAPmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/cccs/cccsmdel.c

@@ -13,7 +13,6 @@ int
 CCCSmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ CCCSmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/ccvs/ccvsmdel.c

@@ -13,7 +13,6 @@ int
 CCVSmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ CCVSmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/cpl/cplmdel.c

@@ -15,7 +15,6 @@ int
 CPLmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -29,13 +28,11 @@ CPLmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/csw/cswmdel.c

@@ -13,7 +13,6 @@ int
 CSWmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ CSWmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/dio/diomdel.c

@@ -13,7 +13,6 @@ int
 DIOmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ DIOmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/hfet1/hfetmdel.c

@@ -17,7 +17,6 @@ int
 HFETAmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -31,13 +30,11 @@ HFETAmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/hfet2/hfet2mdel.c

@@ -17,7 +17,6 @@ int
 HFET2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -31,13 +30,11 @@ HFET2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/hisim2/hsm2mdel.c

@@ -64,7 +64,6 @@ int
 HSM2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -78,13 +77,11 @@ HSM2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/hisimhv1/hsmhvmdel.c

@@ -25,7 +25,6 @@ int
 HSMHVmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -39,13 +38,11 @@ HSMHVmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/hisimhv2/hsmhv2mdel.c

@@ -67,7 +67,6 @@ int
 HSMHV2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -81,13 +80,11 @@ HSMHV2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/ind/indmdel.c

@@ -13,7 +13,6 @@ int
 INDmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ INDmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/ind/mutmdel.c

@@ -14,7 +14,6 @@ int
 MUTmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -28,13 +27,11 @@ MUTmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/isrc/isrcmdel.c

@@ -13,7 +13,6 @@ int
 ISRCmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ ISRCmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/jfet/jfetmdel.c

@@ -13,7 +13,6 @@ int
 JFETmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ JFETmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/jfet2/jfet2mdel.c

@@ -17,7 +17,6 @@ int
 JFET2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -31,13 +30,11 @@ JFET2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/ltra/ltramdel.c

@@ -13,7 +13,6 @@ int
 LTRAmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ LTRAmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel;    /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/mes/mesmdel.c

@@ -13,7 +13,6 @@ int
 MESmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ MESmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/mesa/mesamdel.c

@@ -17,7 +17,6 @@ int
 MESAmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -31,13 +30,11 @@ MESAmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/mos1/mos1mdel.c

@@ -13,7 +13,6 @@ int
 MOS1mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ MOS1mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/mos2/mos2mdel.c

@@ -13,7 +13,6 @@ int
 MOS2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ MOS2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/mos3/mos3mdel.c

@@ -13,7 +13,6 @@ int
 MOS3mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ MOS3mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/mos9/mos9mdel.c

@@ -14,7 +14,6 @@ int
 MOS9mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -28,13 +27,11 @@ MOS9mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/numd/numdmdel.c

@@ -13,7 +13,6 @@ int
 NUMDmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ NUMDmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel;    /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/numd2/nud2mdel.c

@@ -13,7 +13,6 @@ int
 NUMD2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ NUMD2mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel;   /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/res/resmdel.c

@@ -13,7 +13,6 @@ int
 RESmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ RESmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/soi3/soi3mdel.c

@@ -30,7 +30,6 @@ int
 SOI3mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -44,13 +43,11 @@ SOI3mDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/sw/swmdel.c

@@ -13,7 +13,6 @@ int
 SWmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ SWmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/tra/tramdel.c

@@ -13,7 +13,6 @@ int
 TRAmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ TRAmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/txl/txlmdel.c

@@ -14,7 +14,6 @@ int
 TXLmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -28,13 +27,11 @@ TXLmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/urc/urcmdel.c

@@ -13,7 +13,6 @@ int
 URCmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ URCmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/vccs/vccsmdel.c

@@ -13,7 +13,6 @@ int
 VCCSmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ VCCSmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/vcvs/vcvsmdel.c

@@ -13,7 +13,6 @@ int
 VCVSmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ VCVSmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }

src/spicelib/devices/vsrc/vsrcmdel.c

@@ -13,7 +13,6 @@ int
 VSRCmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 {
     GENinstance *here;
-    GENinstance *prev = NULL;
     GENmodel **oldmod;
 
     oldmod = model;
@@ -27,13 +26,11 @@ VSRCmDelete(GENmodel **model, IFuid modname, GENmodel *kill)
 
  delgot:
     *oldmod = (*model)->GENnextModel; /* cut deleted device out of list */
-    for (here = (*model)->GENinstances; here; here = here->GENnextInstance) {
+    for (here = (*model)->GENinstances; here;) {
-        if (prev)
+        GENinstance *next_instance = here->GENnextInstance;
-            FREE(prev);
+        FREE(here);
-        prev = here;
+        here = next_instance;
     }
-    if (prev)
-        FREE(prev);
     FREE(*model);
     return OK;
 }