luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

free memory allocated in MIFsetup and by cm_analog_alloc and cm_analog_converge

This commit is contained in:
Holger Vogt 2018-08-27 12:19:24 +02:00
parent c87dd6161f
commit a5179b1637
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/xspice/mif/mifsetup.c
View File

@ -450,7 +450,7 @@ MIFunsetup(GENmodel *inModel,CKTcircuit *ckt)
Mif_Smp_Ptr_t *smp_data_out;
Mif_Port_Type_t type;
Mif_Boolean_t is_input, is_output;
int num_conn, num_port, i, j;
int num_conn, num_port, i, j, k;
for (model = (MIFmodel *)inModel; model != NULL;
@ -511,8 +511,23 @@ MIFunsetup(GENmodel *inModel,CKTcircuit *ckt)
smp_data_out->ibranch = 0;
} /* end if vsource current input */
/* free memory allocated in MIFsetup */
for (k = 0; k < num_conn; k++) {
if ((here->conn[k]->is_null) || (!here->conn[k]->is_input))
continue;
tfree(here->conn[i]->port[j]->partial[k].port);
tfree(here->conn[i]->port[j]->ac_gain[k].port);
tfree(here->conn[i]->port[j]->smp_data.input[k].port);
}
tfree(here->conn[i]->port[j]->partial);
tfree(here->conn[i]->port[j]->ac_gain);
tfree(here->conn[i]->port[j]->smp_data.input);
} /* end for number of ports */
} /* end for number of connections */
/* free memory allocated by cm_analog_alloc and cm_analog_converge */
tfree(here->state);
tfree(here->conv);
here->initialized = MIF_FALSE;
} /* end for all instances */
}