From 4e89b80a756783eaf24d610c37d95b2fa881eb21 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sun, 8 May 2016 18:44:07 +0200
Subject: [PATCH] defsubckt(), ls ==> ls_ptr - (const) s

---
 src/frontend/numparam/xpressn.c | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/frontend/numparam/xpressn.c b/src/frontend/numparam/xpressn.c
index 05448b152..0c4e61f0e 100644
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@@ -511,23 +511,24 @@ defsubckt(dico_t *dico, struct card *card, nupa_type categ)
     int w = card->linenum;
 
     bool err;
-    int i, j, ls;
+    int i, j;
 
-    ls = (int) strlen(s);
+    const char * const ls_ptr;
+    (ls_ptr - s) = (int) strlen(s);
     i = 0;
 
-    while ((i < ls) && (s[i] != '.'))
+    while ((i < (ls_ptr - s)) && (s[i] != '.'))
         i++;                    /* skip 1st dotword */
 
-    while ((i < ls) && (s[i] > ' '))
+    while ((i < (ls_ptr - s)) && (s[i] > ' '))
         i++;
 
-    while ((i < ls) && (s[i] <= ' '))
+    while ((i < (ls_ptr - s)) && (s[i] <= ' '))
         i++;                    /* skip blank */
 
     j = i;
 
-    while ((j < ls) && (s[j] > ' '))
+    while ((j < (ls_ptr - s)) && (s[j] > ' '))
         j++;
 
     if (j > i) {