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

numparam/xpressn.c, cleanup `fetchnumentry()'

This commit is contained in:
rlar 2015-10-11 14:02:45 +02:00
parent c9e8c7651f
commit 813024678d
1 changed files with 6 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/frontend/numparam/xpressn.c
View File

@ -406,32 +406,18 @@ getidtype(dico_t *dico, char *s)
static double
fetchnumentry(dico_t *dico, char *t, bool *perr)
fetchnumentry(dico_t *dico, char *s, bool *perr)
{
bool err = *perr;
double u;
entry_t *entry; /* hash table entry */
entry = entrynb(dico, t); /* no keyword */
/*dbg -- if (k <= 0) { printf("Dico num lookup fails."); } */
entry_t *entry = entrynb(dico, s);
while (entry && (entry->tp == 'P'))
entry = entry->pointer;
if (entry)
if (entry->tp != 'R')
entry = NULL;
if (entry && (entry->tp == 'R'))
return entry->vl;
if (entry) {
u = entry->vl;
} else {
err = message(dico, "Undefined number [%s]\n", t);
u = 0.0;
}
*perr = err;
return u;
*perr = message(dico, "Undefined number [%s]\n", s);
return 0.0;
}