nupa_subcktcall(), fix lvalue

8 years ago · 701dcad9a4
1 changed files with 2 additions and 2 deletions
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@ -1622,11 +1622,11 @@ nupa_subcktcall(dico_t *dico, char *s, char * const x, char * const inst_name)
                        /* transform to braces... */
                        kp++;
                        t_p[(kp - t_p)] = '{';
-                        int (gp - t_p) = (int) (kp - t_p);
+                        char *gp = t_p + (int) (kp - t_p);
                        int nest = 1;

                        while ((nest > 0) && ((gp - t_p) < ls)) {
-                            (gp - t_p)++;
+                            gp++;
                            if (t_p[(gp - t_p)] == '(')
                                nest++;
                            else if (t_p[(gp - t_p)] == ')')