From 3d9a76d342c5c99b7b093c5780443a55d14a465e Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sat, 14 May 2016 11:19:42 +0200
Subject: [PATCH] findsubckt(), drop k_ptr--, use k_ptr - 1 instead

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

diff --git a/src/frontend/numparam/xpressn.c b/src/frontend/numparam/xpressn.c
index cdde9ffe8..48950d11b 100644
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@@ -563,9 +563,8 @@ findsubckt(dico_t *dico, const char * const s)
 
     while ((k_ptr - 1 >= s) && (*(k_ptr-1) > ' '))
         k_ptr--;
-    k_ptr--;
 
-    pscopy_up(&ustr, k_ptr + 1, 0, (int) (j_ptr - k_ptr));
+    pscopy_up(&ustr, k_ptr - 1 + 1, 0, (int) (j_ptr - (k_ptr - 1)));
     entry = entrynb(dico, spice_dstring_value(&ustr));
 
     if (entry && (entry->tp == NUPA_SUBCKT)) {