nupa_subcktcall(), h ==> hp - (const) t_p
This commit is contained in:
parent
47f1e7b1fa
commit
0a149819a5
|
|
@ -1640,10 +1640,10 @@ nupa_subcktcall(dico_t *dico, char *s, char * const x, char * const inst_name)
|
|||
|
||||
if (alfanum(t_p[(kp - t_p)]) || t_p[(kp - t_p)] == '.') {
|
||||
/* number, identifier */
|
||||
int h = (int) (kp - t_p);
|
||||
int (hp - t_p) = (int) (kp - t_p);
|
||||
while (t_p[(kp - t_p)] > ' ')
|
||||
kp++;
|
||||
pscopy(&ustr, t_p, h, (int) (kp - t_p) - h);
|
||||
pscopy(&ustr, t_p, (int) (hp - t_p), (int) (kp - t_p) - (int) (hp - t_p));
|
||||
jp = t_p + (kp - t_p);
|
||||
} else if (t_p[(kp - t_p)] == '{') {
|
||||
jp = t_p + (int) (getexpress(NULL, &ustr, t_p + (jp - t_p)) - t_p);
|
||||
|
|
|
|||
Loading…
Reference in New Issue