From 8881aead44bd7176a63ef146e94961aa0d55f691 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Thu, 23 Nov 2017 17:55:08 +0100
Subject: [PATCH] findsubname(), cleanup

---
 src/frontend/numparam/spicenum.c | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/frontend/numparam/spicenum.c b/src/frontend/numparam/spicenum.c
index dde7860aa..a7b788603 100644
--- a/src/frontend/numparam/spicenum.c
+++ b/src/frontend/numparam/spicenum.c
@@ -187,14 +187,12 @@ findsubname(dico_t *dico, SPICE_DSTRINGPTR dstr_p)
         }
 
         if ((p > s) && alfanum(*p)) { /* suppose an identifier */
+            char *t;
             entry_t *entry;
             /* check for known subckt name */
             spice_dstring_reinit(&name);
-            char *t = s + (int) (p - s - 1) + 1;
-            while (alfanum(s[(t - s)])) {
-                cadd(&name, toupper_c(s[(t - s)]));
-                t++;
-            }
+            for (t = p; alfanum(*t); t++)
+                cadd(&name, toupper_c(*t));
             entry = entrynb(dico, spice_dstring_value(&name));
             if (entry && (entry->tp == NUPA_SUBCKT)) {
                 if (h < (int) (ls_ptr - s))