defsubckt(), fix lvalue

10 years ago · deca1a05ed
1 changed files with 1 additions and 2 deletions
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@ -513,8 +513,7 @@ defsubckt(dico_t *dico, struct card *card, nupa_type categ)
    bool err;
    int i, j;

-    const char * const ls_ptr;
-    (ls_ptr - s) = (int) strlen(s);
+    const char * const ls_ptr = s + strlen(s);
    i = 0;

    while ((i < (ls_ptr - s)) && (s[i] != '.'))