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(), #1/8 cleanup

This commit is contained in:
rlar 2016-11-20 18:14:51 +01:00
parent 405c6f6f02
commit 476c41f436
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/frontend/subckt.c
View File

@ -937,6 +937,8 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
/* now iterate through the .subckt deck and translate the cards. */
for (c = deck; c; c = c->li_next) {
dev_type = *(c->li_line);
s = c->li_line;
bxx_rewind(&buffer);
#ifdef TRACE
/* SDB debug statement */
@ -944,8 +946,6 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
#endif
if (ciprefix(".ic", c->li_line) || ciprefix(".nodeset", c->li_line)) {
bxx_rewind(&buffer);
s = c->li_line;
while ((paren_ptr = strchr(s, '(')) != NULL) {
name = paren_ptr + 1;
@ -973,8 +973,6 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
case '$':
case '.':
/* Just a pointer to the line into s and then break */
bxx_rewind(&buffer);
s = c->li_line;
break;
#ifdef XSPICE
@ -986,10 +984,8 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
case 'A':
/* translate the instance name according to normal rules */
s = c->li_line;
name = MIFgettok(&s);
bxx_rewind(&buffer);
translate_inst_name(&buffer, scname, name, NULL);
bxx_putc(&buffer, ' ');
@ -1069,7 +1065,6 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
case 'H':
case 'h':
s = c->li_line; /* s now holds the SPICE line */
t = name = gettok(&s); /* name points to the refdes */
if (!name)
continue;
@ -1081,7 +1076,6 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
/* Here's where we translate the refdes to e.g. F:subcircuitname:57
* and stick the translated name into buffer.
*/
bxx_rewind(&buffer);
translate_inst_name(&buffer, scname, name, NULL);
tfree(t);
bxx_putc(&buffer, ' ');
@ -1187,7 +1181,6 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
/*================= Default case ===================*/
default: /* this section handles ordinary components */
s = c->li_line;
nametofree = name = gettok_node(&s); /* changed to gettok_node to handle netlists with ( , ) */
if (!name)
continue;
@ -1200,7 +1193,6 @@ translate(struct line *deck, char *formal, char *actual, char *scname, const cha
* and stick the translated name into buffer.
*/
bxx_rewind(&buffer);
translate_inst_name(&buffer, scname, name, NULL);
tfree(nametofree);