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

CKTmodCrt(), cleanup

This commit is contained in:
rlar 2013-07-17 20:42:00 +02:00
parent 86264b9879
commit ade2f8c2c2
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/spicelib/analysis/cktmcrt.c
View File

@ -20,22 +20,25 @@ Author: 1985 Thomas L. Quarles
int
CKTmodCrt(CKTcircuit *ckt, int type, GENmodel **modfast, IFuid name)
{
GENmodel *mymodfast = NULL;
GENmodel *model = CKTfndMod(ckt, name);
mymodfast = CKTfndMod(ckt, name);
if(!mymodfast) {
mymodfast = (GENmodel *) tmalloc((size_t) *(DEVices[type]->DEVmodSize));
if(mymodfast == NULL) return(E_NOMEM);
mymodfast->GENmodType = type;
mymodfast->GENmodName = name;
mymodfast->GENnextModel = ckt->CKThead[type];
ckt->CKThead[type] = mymodfast;
nghash_insert(ckt->MODnameHash, name, mymodfast);
*modfast = mymodfast;
return(OK);
} else {
*modfast = mymodfast;
return(E_EXISTS);
if (model) {
*modfast = model;
return E_EXISTS;
}
/*NOTREACHED*/
model = (GENmodel *) tmalloc((size_t) *(DEVices[type]->DEVmodSize));
if (!model)
return E_NOMEM;
model->GENmodType = type;
model->GENmodName = name;
model->GENnextModel = ckt->CKThead[type];
ckt->CKThead[type] = model;
nghash_insert(ckt->MODnameHash, name, model);
*modfast = model;
return OK;
}