getexpress(), fix lvalue

10 years ago · 44c5410490
1 changed files with 1 additions and 1 deletions
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@ -1347,7 +1347,7 @@ getexpress(const char * const s, SPICE_DSTRINGPTR tstr_p, const char **pi)
    char c, d;
    nupa_type tpe;

-    (ls_ptr - s) = (int) strlen(s);
+    ls_ptr = s + strlen(s);
    ia = (int) (iptr - s) + 1;

    while ((ia < (ls_ptr - s)) && (s[ia - 1] <= ' '))