nupa_subcktcall(), h ==> hp - (const) t_p

This commit is contained in:
rlar 2016-05-16 11:49:08 +02:00
parent 47f1e7b1fa
commit 0a149819a5
1 changed files with 2 additions and 2 deletions

View File

@ -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);