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

subckt.c, translate(), #3/8 simplify

This commit is contained in:
rlar 2016-11-20 18:35:07 +01:00
parent c8413a1947
commit effa37e944
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/frontend/subckt.c
View File

@ -1104,7 +1104,7 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
case 'g':
case 'h':
t = name = gettok(&s); /* name points to the refdes */
name = gettok(&s); /* name points to the refdes */
if (!name)
continue;
if (!*name) {
@ -1116,7 +1116,7 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
* and stick the translated name into buffer.
*/
translate_inst_name(&buffer, scname, name, NULL);
tfree(t);
tfree(name);
bxx_putc(&buffer, ' ');
/* Next iterate over all nodes (netnames) found and translate them. */
@ -1179,7 +1179,7 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
/* Now translate the controlling source/nodes */
nnodes = dim * numdevs(c->li_line);
while (--nnodes >= 0) {
nametofree = name = gettok_node(&s); /* name points to the returned token */
name = gettok_node(&s); /* name points to the returned token */
if (name == NULL) {
fprintf(cp_err, "Error: too few devs: %s\n", c->li_line);
goto quit;
@ -1205,7 +1205,7 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
translate_node_name(&buffer, scname, name, NULL);
}
tfree(nametofree);
tfree(name);
bxx_putc(&buffer, ' ');
} /* while (nnodes--. . . . */
@ -1217,7 +1217,7 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
/*================= Default case ===================*/
default: /* this section handles ordinary components */
nametofree = name = gettok_node(&s); /* changed to gettok_node to handle netlists with ( , ) */
name = gettok_node(&s); /* changed to gettok_node to handle netlists with ( , ) */
if (!name)
continue;
if (!*name) {
@ -1231,7 +1231,7 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
translate_inst_name(&buffer, scname, name, NULL);
tfree(nametofree);
tfree(name);
bxx_putc(&buffer, ' ');
/* Next iterate over all nodes (netnames) found and translate them. */
@ -1254,14 +1254,14 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
*/
nnodes = numdevs(c->li_line);
while (--nnodes >= 0) {
t = name = gettok_node(&s);
name = gettok_node(&s);
if (name == NULL) {
fprintf(cp_err, "Error: too few devs: %s\n", c->li_line);
goto quit;
}
translate_inst_name(&buffer, scname, name, NULL);
tfree(t);
tfree(name);
bxx_putc(&buffer, ' ');
} /* while (nnodes--. . . . */