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

parser/inppas3.c, fix memory leak

This commit is contained in:
h_vogt 2016-03-29 20:20:22 +02:00 committed by rlar
parent ffee2a6b5f
commit 50bd157349
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/spicelib/parser/inppas3.c
View File

@ -69,7 +69,10 @@ INPpas3(CKTcircuit *ckt, card *data, INPtables *tab, TSKtask *task,
/* loop until we run out of data */ /* loop until we run out of data */
INPgetTok(&line,&name,1); INPgetTok(&line,&name,1);
if( *name == '\0') break; /* end of line */ if( *name == '\0') {
FREE(name);
break; /* end of line */
}
/* If we have 'all = value' , then set all voltage nodes to 'value', /* If we have 'all = value' , then set all voltage nodes to 'value',
except for ground node at node->number 0 */ except for ground node at node->number 0 */
@ -79,6 +82,7 @@ INPpas3(CKTcircuit *ckt, card *data, INPtables *tab, TSKtask *task,
if ((node1->type == SP_VOLTAGE) && (node1->number > 0)) if ((node1->type == SP_VOLTAGE) && (node1->number > 0))
IFC(setNodeParm, (ckt, node1, which, &ptemp, NULL)); IFC(setNodeParm, (ckt, node1, which, &ptemp, NULL));
} }
FREE(name);
break; break;
} }
/* check to see if in the form V(xxx) and grab the xxx */ /* check to see if in the form V(xxx) and grab the xxx */
@ -91,9 +95,11 @@ INPpas3(CKTcircuit *ckt, card *data, INPtables *tab, TSKtask *task,
"Warning : Nodeset on non-existant node - %s\n", nodename); "Warning : Nodeset on non-existant node - %s\n", nodename);
ptemp.rValue = INPevaluate(&line,&error,1); ptemp.rValue = INPevaluate(&line,&error,1);
IFC(setNodeParm, (ckt, node1, which, &ptemp, NULL)); IFC(setNodeParm, (ckt, node1, which, &ptemp, NULL));
FREE(name);
continue; continue;
} }
LITERR(" Error: .nodeset syntax error.\n"); LITERR(" Error: .nodeset syntax error.\n");
FREE(name);
break; break;
} }
} else if ((strcmp(token,".ic") == 0)) { } else if ((strcmp(token,".ic") == 0)) {
@ -130,9 +136,11 @@ INPpas3(CKTcircuit *ckt, card *data, INPtables *tab, TSKtask *task,
"Warning : IC on non-existant node - %s\n", nodename); "Warning : IC on non-existant node - %s\n", nodename);
ptemp.rValue = INPevaluate(&line,&error,1); ptemp.rValue = INPevaluate(&line,&error,1);
IFC(setNodeParm, (ckt, node1, which, &ptemp, NULL)); IFC(setNodeParm, (ckt, node1, which, &ptemp, NULL));
FREE(name);
continue; continue;
} }
LITERR(" Error: .ic syntax error.\n"); LITERR(" Error: .ic syntax error.\n");
FREE(name);
break; break;
} }
} }