nupa_subcktcall(), fix, honour end of string
This commit is contained in:
parent
4859f7d8df
commit
8190ba3fca
|
|
@ -1512,7 +1512,7 @@ nupa_subcktcall(dico_t *dico, char *s, char *x, char *inst_name)
|
||||||
skip over instance name -- fixes bug where instance 'x1' is
|
skip over instance name -- fixes bug where instance 'x1' is
|
||||||
same name as subckt 'x1'
|
same name as subckt 'x1'
|
||||||
*/
|
*/
|
||||||
while (*x != ' ')
|
while (*x && *x != ' ')
|
||||||
x++;
|
x++;
|
||||||
|
|
||||||
/***** first, analyze the subckt definition line */
|
/***** first, analyze the subckt definition line */
|
||||||
|
|
@ -1529,7 +1529,7 @@ nupa_subcktcall(dico_t *dico, char *s, char *x, char *inst_name)
|
||||||
while ((j < ls) && (t_p[j] <= ' '))
|
while ((j < ls) && (t_p[j] <= ' '))
|
||||||
j++;
|
j++;
|
||||||
|
|
||||||
while (t_p[j] != ' ') {
|
while ((j < ls) && (t_p[j] != ' ')) {
|
||||||
cadd(&subname, t_p[j]);
|
cadd(&subname, t_p[j]);
|
||||||
j++;
|
j++;
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue