|
|
|
@ -1,8 +1,8 @@ |
|
|
|
/********** |
|
|
|
Copyright 1990 Regents of the University of California. All rights reserved. |
|
|
|
Author: 1985 Thomas L. Quarles |
|
|
|
Author: 1985 Thomas L. Quarles, 2023 Holger Vogt |
|
|
|
**********/ |
|
|
|
/* |
|
|
|
/* Deletes the model table modtab and the hash table modtabhash. |
|
|
|
*/ |
|
|
|
|
|
|
|
#include "ngspice/ngspice.h" |
|
|
|
@ -11,22 +11,21 @@ Author: 1985 Thomas L. Quarles |
|
|
|
#include "ngspice/ftedefs.h" |
|
|
|
#include "inpxx.h" |
|
|
|
|
|
|
|
|
|
|
|
extern INPmodel *modtab; |
|
|
|
extern INPmodel* modtab; |
|
|
|
extern NGHASHPTR modtabhash; |
|
|
|
|
|
|
|
void INPkillMods(void) |
|
|
|
{ |
|
|
|
INPmodel *modtmp; |
|
|
|
INPmodel *prev = NULL; |
|
|
|
INPmodel* modtmp; |
|
|
|
INPmodel* prev = NULL; |
|
|
|
|
|
|
|
for (modtmp = modtab; modtmp != NULL; modtmp = modtmp->INPnextModel) { |
|
|
|
if (prev) |
|
|
|
FREE(prev); |
|
|
|
prev = modtmp; |
|
|
|
if (prev) |
|
|
|
FREE(prev); |
|
|
|
prev = modtmp; |
|
|
|
} |
|
|
|
if (prev) |
|
|
|
FREE(prev); |
|
|
|
FREE(prev); |
|
|
|
modtab = NULL; |
|
|
|
ft_curckt->ci_modtab = NULL; |
|
|
|
/* free the hash table */ |
|
|
|
@ -35,5 +34,4 @@ void INPkillMods(void) |
|
|
|
modtabhash = NULL; |
|
|
|
} |
|
|
|
ft_curckt->ci_modtabhash = NULL; |
|
|
|
|
|
|
|
} |