findsubckt(), cleanup

10 years ago · a0f9b2bf0f
1 changed files with 1 additions and 1 deletions
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@ -564,7 +564,7 @@ findsubckt(dico_t *dico, const char * const s)
    while ((k_ptr >= s) && (*k_ptr > ' '))
        k_ptr--;

-    pscopy_up(&ustr, s + (k_ptr - s) + 1, 0, (int) (j_ptr - k_ptr));
+    pscopy_up(&ustr, k_ptr + 1, 0, (int) (j_ptr - k_ptr));
    entry = entrynb(dico, spice_dstring_value(&ustr));

    if (entry && (entry->tp == NUPA_SUBCKT)) {