From 4e5c35bb7fa78e77ebbfa226542f9f930e1bff1e Mon Sep 17 00:00:00 2001 From: Fellippe Heitor Date: Fri, 16 Jul 2021 11:59:17 -0300 Subject: [PATCH] Prevents 'fake' variables from showing up.' --- source/qb64.bas | 52 ++++++++++++++++++++++++------------------------- 1 file changed, 26 insertions(+), 26 deletions(-) diff --git a/source/qb64.bas b/source/qb64.bas index b9a7a28de..b9d53d959 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -18358,32 +18358,32 @@ FUNCTION findid& (n2$) id = ids(i) t = id.t - IF id.subfunc = 0 THEN - IF t = 0 THEN - t = id.arraytype - IF t AND ISUDT THEN - manageVariableList "", scope$ + "ARRAY_UDT_" + RTRIM$(id.n), 1 - ELSE - n$ = id2shorttypename$ - IF LEFT$(n$, 1) = "_" THEN - manageVariableList "", scope$ + "ARRAY" + n$ + "_" + RTRIM$(id.n), 2 - ELSE - manageVariableList "", scope$ + "ARRAY_" + n$ + "_" + RTRIM$(id.n), 3 - END IF - END IF - ELSE - IF t AND ISUDT THEN - manageVariableList "", scope$ + "UDT_" + RTRIM$(id.n), 4 - ELSE - n$ = id2shorttypename$ - IF LEFT$(n$, 1) = "_" THEN - manageVariableList "", scope$ + MID$(n$, 2) + "_" + RTRIM$(id.n), 5 - ELSE - manageVariableList "", scope$ + n$ + "_" + RTRIM$(id.n), 6 - END IF - END IF - END IF - END IF + 'IF id.subfunc = 0 THEN + ' IF t = 0 THEN + ' t = id.arraytype + ' IF t AND ISUDT THEN + ' manageVariableList "", scope$ + "ARRAY_UDT_" + RTRIM$(id.n), 1 + ' ELSE + ' n$ = id2shorttypename$ + ' IF LEFT$(n$, 1) = "_" THEN + ' manageVariableList "", scope$ + "ARRAY" + n$ + "_" + RTRIM$(id.n), 2 + ' ELSE + ' manageVariableList "", scope$ + "ARRAY_" + n$ + "_" + RTRIM$(id.n), 3 + ' END IF + ' END IF + ' ELSE + ' IF t AND ISUDT THEN + ' manageVariableList "", scope$ + "UDT_" + RTRIM$(id.n), 4 + ' ELSE + ' n$ = id2shorttypename$ + ' IF LEFT$(n$, 1) = "_" THEN + ' manageVariableList "", scope$ + MID$(n$, 2) + "_" + RTRIM$(id.n), 5 + ' ELSE + ' manageVariableList "", scope$ + n$ + "_" + RTRIM$(id.n), 6 + ' END IF + ' END IF + ' END IF + 'END IF currentid = i EXIT FUNCTION