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

INPgetTree(), express the live range of some globals

This commit is contained in:
rlar 2012-04-07 19:06:45 +02:00
parent d21b3a3cd5
commit 4fb75fbd51
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/spicelib/parser/inpptree.c
View File

@ -141,24 +141,32 @@ INPgetTree(char **line, INPparseTree ** pt, CKTcircuit *ckt, INPtables * tab)
rv = PTparse(line, &p, ckt); rv = PTparse(line, &p, ckt);
if (rv || !PTcheck(p)) { if (rv || !PTcheck(p)) {
*pt = NULL; *pt = NULL;
return;
} else {
(*pt) = TMALLOC(INPparseTree, 1);
(*pt)->p.numVars = numvalues;
(*pt)->p.varTypes = types;
(*pt)->p.vars = values;
(*pt)->p.IFeval = IFeval;
(*pt)->tree = p;
(*pt)->derivs = TMALLOC(INPparseNode *, numvalues);
for (i = 0; i < numvalues; i++)
(*pt)->derivs[i] = PTdifferentiate(p, i);
} }
(*pt) = TMALLOC(INPparseTree, 1); values = NULL;
types = NULL;
numvalues = 0;
(*pt)->p.numVars = numvalues; circuit = NULL;
(*pt)->p.varTypes = types; tables = NULL;
(*pt)->p.vars = values;
(*pt)->p.IFeval = IFeval;
(*pt)->tree = p;
(*pt)->derivs = TMALLOC(INPparseNode *, numvalues);
for (i = 0; i < numvalues; i++)
(*pt)->derivs[i] = PTdifferentiate(p, i);
return;
} }
/* This routine takes the partial derivative of the parse tree with respect to /* This routine takes the partial derivative of the parse tree with respect to