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

cleanup IFnewUid() invocations 

checked for object file invariance
This commit is contained in:
rlar 2013-07-14 15:15:04 +02:00
parent ca90bc647c
commit f2343d2fe8
24 changed files with 46 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/frontend/spiceif.c
View File

@ -252,8 +252,7 @@ if_run(CKTcircuit *ckt, char *what, wordlist *args, INPtables *tab)
/*CDHW Create an interactive task AAA with a new UID. /*CDHW Create an interactive task AAA with a new UID.
ci_specTask will point to it CDHW*/ ci_specTask will point to it CDHW*/
err = IFnewUid(ft_curckt->ci_ckt, &specUid, NULL, "special", err = IFnewUid(ft_curckt->ci_ckt, &specUid, NULL, "special", UID_TASK, NULL);
UID_TASK, NULL);
if (err) { if (err) {
ft_sperror(err, "newUid"); ft_sperror(err, "newUid");
return (2); return (2);
@ -281,8 +280,7 @@ if_run(CKTcircuit *ckt, char *what, wordlist *args, INPtables *tab)
} }
if (which != -1) { /*CDHW options are available CDHW*/ if (which != -1) { /*CDHW options are available CDHW*/
err = IFnewUid(ft_curckt->ci_ckt, &optUid, NULL, "options", err = IFnewUid(ft_curckt->ci_ckt, &optUid, NULL, "options", UID_ANALYSIS, NULL);
UID_ANALYSIS, NULL);
if (err) { if (err) {
ft_sperror(err, "newUid"); ft_sperror(err, "newUid");
return (2); return (2);
@ -1273,8 +1271,7 @@ if_tranparams(struct circ *ci, double *start, double *stop, double *step)
if (which == -1) if (which == -1)
return (FALSE); return (FALSE);
err = IFnewUid(ci->ci_ckt, &tranUid, NULL, "Transient Analysis", err = IFnewUid(ci->ci_ckt, &tranUid, NULL, "Transient Analysis", UID_ANALYSIS, NULL);
UID_ANALYSIS, NULL);
if (err != OK) if (err != OK)
return (FALSE); return (FALSE);

3
src/spicelib/analysis/acan.c
View File

@ -185,8 +185,7 @@ ACan(CKTcircuit *ckt, int restart)
plot = NULL; plot = NULL;
} }
SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, "frequency", UID_OTHER, NULL);
"frequency", UID_OTHER, NULL);
error = SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, error = SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,
ckt->CKTcurJob->JOBname, ckt->CKTcurJob->JOBname,
freqUid, IF_REAL, freqUid, IF_REAL,

8
src/spicelib/analysis/cktmapn.c
View File

@ -35,12 +35,8 @@ CKTmapNode(CKTcircuit *ckt, CKTnode **node, IFuid name)
/* not found, so must be a new one */ /* not found, so must be a new one */
error = CKTmkNode(ckt,&mynode); /*allocate the node*/ error = CKTmkNode(ckt,&mynode); /*allocate the node*/
if(error) return(error); if(error) return(error);
error = SPfrontEnd->IFnewUid (ckt, /* get a uid for it */
&uid, error = SPfrontEnd->IFnewUid (ckt, &uid, NULL, name, UID_SIGNAL, &mynode);
NULL,
name,
UID_SIGNAL,
&mynode); /* get a uid for it */
if(error) return(error); if(error) return(error);
mynode->name = uid; /* set the info we have */ mynode->name = uid; /* set the info we have */
mynode->type = SP_VOLTAGE; mynode->type = SP_VOLTAGE;

3
src/spicelib/analysis/cktmkcur.c
View File

@ -29,8 +29,7 @@ CKTmkCur(CKTcircuit *ckt, CKTnode **node, IFuid basename, char *suffix)
error = CKTmkNode(ckt,&mynode); error = CKTmkNode(ckt,&mynode);
if(error) return(error); if(error) return(error);
checknode = mynode; checknode = mynode;
error = SPfrontEnd->IFnewUid (ckt, &uid, basename, error = SPfrontEnd->IFnewUid (ckt, &uid, basename, suffix, UID_SIGNAL, &checknode);
suffix, UID_SIGNAL, &checknode);
if(error) { if(error) {
FREE(mynode); FREE(mynode);
if(node) *node = checknode; if(node) *node = checknode;

3
src/spicelib/analysis/cktmkvol.c
View File

@ -27,8 +27,7 @@ CKTmkVolt(CKTcircuit *ckt, CKTnode **node, IFuid basename, char *suffix)
error = CKTmkNode(ckt,&mynode); error = CKTmkNode(ckt,&mynode);
if(error) return(error); if(error) return(error);
checknode = mynode; checknode = mynode;
error = SPfrontEnd->IFnewUid (ckt, &uid, basename, error = SPfrontEnd->IFnewUid (ckt, &uid, basename, suffix, UID_SIGNAL, &checknode);
suffix, UID_SIGNAL, &checknode);
if(error) { if(error) {
FREE(mynode); FREE(mynode);
if(node) *node = checknode; if(node) *node = checknode;

8
src/spicelib/analysis/cktnoise.c
View File

@ -56,12 +56,12 @@ CKTnoise (CKTcircuit *ckt, int mode, int operation, Ndata *data)
data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1); data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1);
SPfrontEnd->IFnewUid (ckt, &(data->namelist[data->numPlots++]), SPfrontEnd->IFnewUid (ckt, &(data->namelist[data->numPlots++]),
NULL, "onoise_spectrum", UID_OTHER, NULL); NULL, "onoise_spectrum", UID_OTHER, NULL);
data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1); data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1);
SPfrontEnd->IFnewUid (ckt, &(data->namelist[data->numPlots++]), SPfrontEnd->IFnewUid (ckt, &(data->namelist[data->numPlots++]),
NULL, "inoise_spectrum", UID_OTHER, NULL); NULL, "inoise_spectrum", UID_OTHER, NULL);
/* we've added two more plots */ /* we've added two more plots */
@ -73,11 +73,11 @@ CKTnoise (CKTcircuit *ckt, int mode, int operation, Ndata *data)
data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1); data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1);
SPfrontEnd->IFnewUid (ckt, &(data->namelist[data->numPlots++]), SPfrontEnd->IFnewUid (ckt, &(data->namelist[data->numPlots++]),
NULL, "onoise_total", UID_OTHER, NULL); NULL, "onoise_total", UID_OTHER, NULL);
data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1); data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1);
SPfrontEnd->IFnewUid (ckt, &(data->namelist[data->numPlots++]), SPfrontEnd->IFnewUid (ckt, &(data->namelist[data->numPlots++]),
NULL, "inoise_total", UID_OTHER, NULL); NULL, "inoise_total", UID_OTHER, NULL);
/* we've added two more plots */ /* we've added two more plots */
data->outpVector = data->outpVector =

8
src/spicelib/analysis/cktsens.c
View File

@ -181,9 +181,7 @@ int sens_sens(CKTcircuit *ckt, int restart)
sg->ptable[sg->param].keyword); sg->ptable[sg->param].keyword);
} }
SPfrontEnd->IFnewUid (ckt, SPfrontEnd->IFnewUid (ckt, output_names + k, NULL, namebuf, UID_OTHER, NULL);
output_names + k, NULL,
namebuf, UID_OTHER, NULL);
k += 1; k += 1;
} }
@ -192,9 +190,7 @@ int sens_sens(CKTcircuit *ckt, int restart)
freq_name = NULL; freq_name = NULL;
} else { } else {
type = IF_COMPLEX; type = IF_COMPLEX;
SPfrontEnd->IFnewUid (ckt, SPfrontEnd->IFnewUid (ckt, &freq_name, NULL, "frequency", UID_OTHER, NULL);
&freq_name, NULL,
"frequency", UID_OTHER, NULL);
} }
error = SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, error = SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,

3
src/spicelib/analysis/dcpss.c
View File

@ -237,8 +237,7 @@ DCpss(CKTcircuit *ckt,
/* Time Domain plot start and prepared to be filled in later */ /* Time Domain plot start and prepared to be filled in later */
error = CKTnames(ckt,&numNames,&nameList); error = CKTnames(ckt,&numNames,&nameList);
if(error) return(error); if(error) return(error);
SPfrontEnd->IFnewUid (ckt, &timeUid, NULL, SPfrontEnd->IFnewUid (ckt, &timeUid, NULL, "time", UID_OTHER, NULL);
"time", UID_OTHER, NULL);
error = SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, error = SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,
"Time Domain Periodic Steady State Analysis", "Time Domain Periodic Steady State Analysis",
timeUid, IF_REAL, timeUid, IF_REAL,

3
src/spicelib/analysis/dctran.c
View File

@ -154,8 +154,7 @@ DCtran(CKTcircuit *ckt,
#endif #endif
error = CKTnames(ckt,&numNames,&nameList); error = CKTnames(ckt,&numNames,&nameList);
if(error) return(error); if(error) return(error);
SPfrontEnd->IFnewUid (ckt, &timeUid, NULL, SPfrontEnd->IFnewUid (ckt, &timeUid, NULL, "time", UID_OTHER, NULL);
"time", UID_OTHER, NULL);
error = SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, error = SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,
ckt->CKTcurJob->JOBname, ckt->CKTcurJob->JOBname,
timeUid, IF_REAL, timeUid, IF_REAL,

15
src/spicelib/analysis/dctrcurv.c
View File

@ -193,27 +193,22 @@ found:;
if (job->TRCVvType[i] == vcode) if (job->TRCVvType[i] == vcode)
SPfrontEnd->IFnewUid (ckt, &varUid, NULL, SPfrontEnd->IFnewUid (ckt, &varUid, NULL, "v-sweep", UID_OTHER, NULL);
"v-sweep", UID_OTHER, NULL);
else { else {
if (job->TRCVvType[i] == icode) if (job->TRCVvType[i] == icode)
SPfrontEnd->IFnewUid (ckt, &varUid, NULL, SPfrontEnd->IFnewUid (ckt, &varUid, NULL, "i-sweep", UID_OTHER, NULL);
"i-sweep", UID_OTHER, NULL);
else { else {
if (job->TRCVvType[i] == TEMP_CODE) if (job->TRCVvType[i] == TEMP_CODE)
SPfrontEnd->IFnewUid (ckt, &varUid, NULL, SPfrontEnd->IFnewUid (ckt, &varUid, NULL, "temp-sweep", UID_OTHER, NULL);
"temp-sweep", UID_OTHER, NULL);
else { else {
if (job->TRCVvType[i] == rcode) if (job->TRCVvType[i] == rcode)
SPfrontEnd->IFnewUid (ckt, &varUid, NULL, SPfrontEnd->IFnewUid (ckt, &varUid, NULL, "res-sweep", UID_OTHER, NULL);
"res-sweep", UID_OTHER, NULL);
else else
SPfrontEnd->IFnewUid (ckt, &varUid, NULL, SPfrontEnd->IFnewUid (ckt, &varUid, NULL, "?-sweep", UID_OTHER, NULL);
"?-sweep", UID_OTHER, NULL);
} /* icode */ } /* icode */
} /* TEMP_CODE */ } /* TEMP_CODE */
} /* rcode*/ } /* rcode*/

15
src/spicelib/analysis/distoan.c
View File

@ -516,8 +516,7 @@ time1 = SPfrontEnd->IFseconds();
if (! job->Df2wanted) { if (! job->Df2wanted) {
error = CKTnames(ckt,&numNames,&nameList); error = CKTnames(ckt,&numNames,&nameList);
if(error) return(error); if(error) return(error);
SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, "frequency", UID_OTHER, NULL);
"frequency", UID_OTHER, NULL);
SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,
"DISTORTION - 2nd harmonic", "DISTORTION - 2nd harmonic",
freqUid, IF_REAL, freqUid, IF_REAL,
@ -542,8 +541,7 @@ time1 = SPfrontEnd->IFseconds();
error = CKTnames(ckt,&numNames,&nameList); error = CKTnames(ckt,&numNames,&nameList);
if(error) return(error); if(error) return(error);
SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, "frequency", UID_OTHER, NULL);
"frequency", UID_OTHER, NULL);
SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,
"DISTORTION - 3rd harmonic", "DISTORTION - 3rd harmonic",
freqUid, IF_REAL, freqUid, IF_REAL,
@ -566,8 +564,7 @@ time1 = SPfrontEnd->IFseconds();
error = CKTnames(ckt,&numNames,&nameList); error = CKTnames(ckt,&numNames,&nameList);
if(error) return(error); if(error) return(error);
SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, "frequency", UID_OTHER, NULL);
"frequency", UID_OTHER, NULL);
SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,
"DISTORTION - IM: f1+f2", "DISTORTION - IM: f1+f2",
freqUid, IF_REAL, freqUid, IF_REAL,
@ -588,8 +585,7 @@ time1 = SPfrontEnd->IFseconds();
error = CKTnames(ckt,&numNames,&nameList); error = CKTnames(ckt,&numNames,&nameList);
if(error) return(error); if(error) return(error);
SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, "frequency", UID_OTHER, NULL);
"frequency", UID_OTHER, NULL);
SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,
"DISTORTION - IM: f1-f2", "DISTORTION - IM: f1-f2",
freqUid, IF_REAL, freqUid, IF_REAL,
@ -611,8 +607,7 @@ time1 = SPfrontEnd->IFseconds();
error = CKTnames(ckt,&numNames,&nameList); error = CKTnames(ckt,&numNames,&nameList);
if(error) return(error); if(error) return(error);
SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, "frequency", UID_OTHER, NULL);
"frequency", UID_OTHER, NULL);
SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,
"DISTORTION - IM: 2f1-f2", "DISTORTION - IM: 2f1-f2",
freqUid, IF_REAL, freqUid, IF_REAL,

3
src/spicelib/analysis/noisean.c
View File

@ -118,8 +118,7 @@ NOISEan (CKTcircuit *ckt, int restart)
/* the current front-end needs the namelist to be fully /* the current front-end needs the namelist to be fully
declared before an OUTpBeginplot */ declared before an OUTpBeginplot */
SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, SPfrontEnd->IFnewUid (ckt, &freqUid, NULL, "frequency", UID_OTHER, NULL);
"frequency", UID_OTHER, NULL);
data->numPlots = 0; /* we don't have any plots yet */ data->numPlots = 0; /* we don't have any plots yet */
error = CKTnoise(ckt,N_DENS,N_OPEN,data); error = CKTnoise(ckt,N_DENS,N_OPEN,data);

6
src/spicelib/analysis/pzan.c
View File

@ -141,13 +141,11 @@ PZpost(CKTcircuit *ckt)
j = 0; j = 0;
for (i = 0; i < job->PZnPoles; i++) { for (i = 0; i < job->PZnPoles; i++) {
sprintf(name, "pole(%-u)", i+1); sprintf(name, "pole(%-u)", i+1);
SPfrontEnd->IFnewUid (ckt, &(namelist[j++]), NULL, SPfrontEnd->IFnewUid (ckt, &(namelist[j++]), NULL, name, UID_OTHER, NULL);
name, UID_OTHER, NULL);
} }
for (i = 0; i < job->PZnZeros; i++) { for (i = 0; i < job->PZnZeros; i++) {
sprintf(name, "zero(%-u)", i+1); sprintf(name, "zero(%-u)", i+1);
SPfrontEnd->IFnewUid (ckt, &(namelist[j++]), NULL, SPfrontEnd->IFnewUid (ckt, &(namelist[j++]), NULL, name, UID_OTHER, NULL);
name, UID_OTHER, NULL);
} }
SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,

12
src/spicelib/analysis/tfanal.c
View File

@ -91,23 +91,19 @@ TFanal(CKTcircuit *ckt, int restart)
ckt->CKTrhs[0]=0; ckt->CKTrhs[0]=0;
/* make a UID for the transfer function output */ /* make a UID for the transfer function output */
SPfrontEnd->IFnewUid (ckt, &tfuid, NULL, "Transfer_function", SPfrontEnd->IFnewUid (ckt, &tfuid, NULL, "Transfer_function", UID_OTHER, NULL);
UID_OTHER, NULL);
/* make a UID for the input impedance */ /* make a UID for the input impedance */
SPfrontEnd->IFnewUid (ckt, &inuid, job->TFinSrc, SPfrontEnd->IFnewUid (ckt, &inuid, job->TFinSrc, "Input_impedance", UID_OTHER, NULL);
"Input_impedance", UID_OTHER, NULL);
/* make a UID for the output impedance */ /* make a UID for the output impedance */
if (job->TFoutIsI) { if (job->TFoutIsI) {
SPfrontEnd->IFnewUid (ckt, &outuid, job->TFoutSrc SPfrontEnd->IFnewUid (ckt, &outuid, job->TFoutSrc ,"Output_impedance", UID_OTHER, NULL);
,"Output_impedance", UID_OTHER, NULL);
} else { } else {
name = TMALLOC(char, strlen(job->TFoutName) + 22); name = TMALLOC(char, strlen(job->TFoutName) + 22);
(void)sprintf(name,"output_impedance_at_%s", (void)sprintf(name,"output_impedance_at_%s",
job->TFoutName); job->TFoutName);
SPfrontEnd->IFnewUid (ckt, &outuid, NULL, SPfrontEnd->IFnewUid (ckt, &outuid, NULL, name, UID_OTHER, NULL);
name, UID_OTHER, NULL);
} }
error = SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob, error = SPfrontEnd->OUTpBeginPlot (ckt, ckt->CKTcurJob,

6
src/spicelib/parser/inp2c.c
View File

@ -81,8 +81,7 @@ void INP2C(CKTcircuit *ckt, INPtables * tab, card * current)
line = saveline; /* go back */ line = saveline; /* go back */
type = mytype; type = mytype;
if (!tab->defCmod) { /* create default C model */ if (!tab->defCmod) { /* create default C model */
IFnewUid(ckt, &uid, NULL, "C", UID_MODEL, IFnewUid(ckt, &uid, NULL, "C", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defCmod), uid)); IFC(newModel, (ckt, type, &(tab->defCmod), uid));
} }
mdfast = tab->defCmod; mdfast = tab->defCmod;
@ -94,8 +93,7 @@ void INP2C(CKTcircuit *ckt, INPtables * tab, card * current)
type = mytype; type = mytype;
if (!tab->defCmod) { if (!tab->defCmod) {
/* create default C model */ /* create default C model */
IFnewUid(ckt, &uid, NULL, "C", UID_MODEL, IFnewUid(ckt, &uid, NULL, "C", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defCmod), uid)); IFC(newModel, (ckt, type, &(tab->defCmod), uid));
} }
IFC(newInstance, (ckt, tab->defCmod, &fast, name)); IFC(newInstance, (ckt, tab->defCmod, &fast, name));

3
src/spicelib/parser/inp2d.c
View File

@ -67,8 +67,7 @@ void INP2D(CKTcircuit *ckt, INPtables * tab, card * current)
type = mytype; type = mytype;
if (!tab->defDmod) { if (!tab->defDmod) {
/* create default D model */ /* create default D model */
IFnewUid(ckt, &uid, NULL, "D", UID_MODEL, IFnewUid(ckt, &uid, NULL, "D", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defDmod), uid)); IFC(newModel, (ckt, type, &(tab->defDmod), uid));
} }
mdfast = tab->defDmod; mdfast = tab->defDmod;

3
src/spicelib/parser/inp2j.c
View File

@ -65,8 +65,7 @@ void INP2J(CKTcircuit *ckt, INPtables * tab, card * current)
} }
if (!tab->defJmod) { if (!tab->defJmod) {
/* create default J model */ /* create default J model */
IFnewUid(ckt, &uid, NULL, "J", UID_MODEL, IFnewUid(ckt, &uid, NULL, "J", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defJmod), uid)); IFC(newModel, (ckt, type, &(tab->defJmod), uid));
} }
mdfast = tab->defJmod; mdfast = tab->defJmod;

6
src/spicelib/parser/inp2l.c
View File

@ -81,8 +81,7 @@ void INP2L(CKTcircuit *ckt, INPtables * tab, card * current)
line = saveline; /* go back */ line = saveline; /* go back */
type = mytype; type = mytype;
if (!tab->defLmod) { /* create default L model */ if (!tab->defLmod) { /* create default L model */
IFnewUid(ckt, &uid, NULL, "L", UID_MODEL, IFnewUid(ckt, &uid, NULL, "L", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defLmod), uid)); IFC(newModel, (ckt, type, &(tab->defLmod), uid));
} }
mdfast = tab->defLmod; mdfast = tab->defLmod;
@ -94,8 +93,7 @@ void INP2L(CKTcircuit *ckt, INPtables * tab, card * current)
type = mytype; type = mytype;
if (!tab->defLmod) { if (!tab->defLmod) {
/* create default L model */ /* create default L model */
IFnewUid(ckt, &uid, NULL, "L", UID_MODEL, IFnewUid(ckt, &uid, NULL, "L", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defLmod), uid)); IFC(newModel, (ckt, type, &(tab->defLmod), uid));
} }
IFC(newInstance, (ckt, tab->defLmod, &fast, name)); IFC(newInstance, (ckt, tab->defLmod, &fast, name));

3
src/spicelib/parser/inp2o.c
View File

@ -76,8 +76,7 @@ void INP2O(CKTcircuit *ckt, INPtables * tab, card * current)
} else { } else {
if (!tab->defOmod) { if (!tab->defOmod) {
/* create default O model */ /* create default O model */
IFnewUid(ckt, &uid, NULL, "O", UID_MODEL, IFnewUid(ckt, &uid, NULL, "O", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defOmod), uid)); IFC(newModel, (ckt, type, &(tab->defOmod), uid));
} }
mdfast = tab->defOmod; mdfast = tab->defOmod;

6
src/spicelib/parser/inp2r.c
View File

@ -172,8 +172,7 @@ void INP2R(CKTcircuit *ckt, INPtables * tab, card * current)
line = saveline; /* go back */ line = saveline; /* go back */
type = mytype; type = mytype;
if (!tab->defRmod) { /* create default R model */ if (!tab->defRmod) { /* create default R model */
IFnewUid(ckt, &uid, NULL, "R", UID_MODEL, IFnewUid(ckt, &uid, NULL, "R", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defRmod), uid)); IFC(newModel, (ckt, type, &(tab->defRmod), uid));
} }
mdfast = tab->defRmod; mdfast = tab->defRmod;
@ -185,8 +184,7 @@ void INP2R(CKTcircuit *ckt, INPtables * tab, card * current)
type = mytype; type = mytype;
if (!tab->defRmod) { if (!tab->defRmod) {
/* create default R model */ /* create default R model */
IFnewUid(ckt, &uid, NULL, "R", UID_MODEL, IFnewUid(ckt, &uid, NULL, "R", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defRmod), uid)); IFC(newModel, (ckt, type, &(tab->defRmod), uid));
} }
IFC(newInstance, (ckt, tab->defRmod, &fast, name)); IFC(newInstance, (ckt, tab->defRmod, &fast, name));

3
src/spicelib/parser/inp2s.c
View File

@ -68,8 +68,7 @@ void INP2S(CKTcircuit *ckt, INPtables * tab, card * current)
type = mytype; type = mytype;
if (!tab->defSmod) { if (!tab->defSmod) {
/* create deafult S model */ /* create deafult S model */
IFnewUid(ckt, &uid, NULL, "S", UID_MODEL, IFnewUid(ckt, &uid, NULL, "S", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defSmod), uid)); IFC(newModel, (ckt, type, &(tab->defSmod), uid));
} }
mdfast = tab->defSmod; mdfast = tab->defSmod;

3
src/spicelib/parser/inp2u.c
View File

@ -62,8 +62,7 @@ void INP2U(CKTcircuit *ckt, INPtables * tab, card * current)
type = mytype; type = mytype;
if (!tab->defUmod) { if (!tab->defUmod) {
/* create deafult U model */ /* create deafult U model */
IFnewUid(ckt, &uid, NULL, "U", UID_MODEL, IFnewUid(ckt, &uid, NULL, "U", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defUmod), uid)); IFC(newModel, (ckt, type, &(tab->defUmod), uid));
} }
mdfast = tab->defUmod; mdfast = tab->defUmod;

3
src/spicelib/parser/inp2w.c
View File

@ -65,8 +65,7 @@ void INP2W(CKTcircuit *ckt, INPtables * tab, card * current)
type = mytype; type = mytype;
if (!tab->defWmod) { if (!tab->defWmod) {
/* create deafult W model */ /* create deafult W model */
IFnewUid(ckt, &uid, NULL, "W", UID_MODEL, IFnewUid(ckt, &uid, NULL, "W", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defWmod), uid)); IFC(newModel, (ckt, type, &(tab->defWmod), uid));
} }
mdfast = tab->defWmod; mdfast = tab->defWmod;

3
src/spicelib/parser/inp2z.c
View File

@ -79,8 +79,7 @@ void INP2Z(CKTcircuit *ckt, INPtables * tab, card * current)
if (!tab->defZmod) { if (!tab->defZmod) {
/* create default Z model */ /* create default Z model */
IFnewUid(ckt, &uid, NULL, "Z", UID_MODEL, IFnewUid(ckt, &uid, NULL, "Z", UID_MODEL, NULL);
NULL);
IFC(newModel, (ckt, type, &(tab->defZmod), uid)); IFC(newModel, (ckt, type, &(tab->defZmod), uid));
} }
mdfast = tab->defZmod; mdfast = tab->defZmod;