From 940eb2a2587f3505b8efe67dcc0f96a231dc0e8e Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sat, 18 Nov 2017 18:43:37 +0100
Subject: [PATCH] findsubckt(), j ==> j_ptr - (const) s

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

diff --git a/src/frontend/numparam/xpressn.c b/src/frontend/numparam/xpressn.c
index 652dceb0b..9e43cce4a 100644
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@@ -548,10 +548,10 @@ findsubckt(dico_t *dico, const char * const s)
    returns 0 if not found, else the stored definition line number value */
 {
     const char *k_ptr = s + strlen(s);
+    const char *j_ptr;
 
     entry_t *entry;             /* symbol table entry */
     SPICE_DSTRING ustr;         /* u= subckt name is last token in string s */
-    int j;
     int line;                   /* stored line number */
 
     spice_dstring_init(&ustr);
@@ -559,12 +559,12 @@ findsubckt(dico_t *dico, const char * const s)
     while (((k_ptr - s) >= 0) && (s[(k_ptr - s)] <= ' '))
         k_ptr--;
 
-    j = (int) (k_ptr - s);
+    (j_ptr - s) = (int) (k_ptr - s);
 
     while (((k_ptr - s) >= 0) && (s[(k_ptr - s)] > ' '))
         k_ptr--;
 
-    pscopy_up(&ustr, s, (int) (k_ptr - s) + 1, j - (int) (k_ptr - s));
+    pscopy_up(&ustr, s, (int) (k_ptr - s) + 1, (int) (j_ptr - s) - (int) (k_ptr - s));
     entry = entrynb(dico, spice_dstring_value(&ustr));
 
     if (entry && (entry->tp == NUPA_SUBCKT)) {