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

CKTfndMod(), cleanup

This commit is contained in:
rlar 2013-07-17 20:38:10 +02:00
parent f0d36d956e
commit f29d683770
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/tclspice.c
View File

@ -1395,22 +1395,17 @@ get_mod_param TCL_CMDPROCARGS(clientData, interp, argc, argv)
/* get the unique IFuid for name (device/model) */
INPretrieve(&name, ft_curckt->ci_symtab);
devptr = ft_sim->findInstance (ft_curckt->ci_ckt, name);
if (!devptr) {
typecode = -1;
modptr = ft_sim->findModel (ft_curckt->ci_ckt, name);
err = modptr ? OK : E_NOMOD;
if (modptr)
typecode = modptr->GENmodType;
else
typecode = -1;
} else {
if (devptr) {
typecode = devptr->GENmodPtr->GENmodType;
err = OK;
}
if (err != OK) {
sprintf(buf, "No such device or model name %s", name);
Tcl_SetResult(interp, buf, TCL_VOLATILE);
return TCL_ERROR;
} else {
modptr = ft_sim->findModel (ft_curckt->ci_ckt, name);
if (modptr) {
typecode = modptr->GENmodType;
} else {
sprintf(buf, "No such device or model name %s", name);
Tcl_SetResult(interp, buf, TCL_VOLATILE);
return TCL_ERROR;
}
}
device = ft_sim->devices[typecode];
found = FALSE;