From a773601b84a4940fccc12bacfb860b02ff454dbb Mon Sep 17 00:00:00 2001 From: rlar Date: Fri, 17 Nov 2017 21:19:43 +0100 Subject: [PATCH] nupa_subcktcall(), g ==> gp - (const) t_p --- src/frontend/numparam/xpressn.c | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/frontend/numparam/xpressn.c b/src/frontend/numparam/xpressn.c index 3b3c4518e..5f7681a3b 100644 --- a/src/frontend/numparam/xpressn.c +++ b/src/frontend/numparam/xpressn.c @@ -1622,19 +1622,19 @@ nupa_subcktcall(dico_t *dico, char *s, char * const x, char * const inst_name) /* transform to braces... */ kp++; t_p[(kp - t_p)] = '{'; - int g = (int) (kp - t_p); + int (gp - t_p) = (int) (kp - t_p); int nest = 1; - while ((nest > 0) && (g < ls)) { - g++; - if (t_p[g] == '(') + while ((nest > 0) && ((gp - t_p) < ls)) { + (gp - t_p)++; + if (t_p[(gp - t_p)] == '(') nest++; - else if (t_p[g] == ')') + else if (t_p[(gp - t_p)] == ')') nest--; } - if ((g < ls) && (nest == 0)) - t_p[g] = '}'; + if (((gp - t_p) < ls) && (nest == 0)) + t_p[(gp - t_p)] = '}'; } }