QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-07 21:25:14 +00:00
Code Releases Wiki Activity

Prevents 'fake' variables from showing up.'

Browse source
This commit is contained in:
Fellippe Heitor 2021-07-16 11:59:17 -03:00
parent 2b86bdcef2
commit 4e5c35bb7f
1 changed files with 26 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
source/qb64.bas
View file

@ -18358,32 +18358,32 @@ FUNCTION findid& (n2$)
id = ids(i) id = ids(i)
t = id.t t = id.t
IF id.subfunc = 0 THEN 'IF id.subfunc = 0 THEN
IF t = 0 THEN ' IF t = 0 THEN
t = id.arraytype ' t = id.arraytype
IF t AND ISUDT THEN ' IF t AND ISUDT THEN
manageVariableList "", scope$ + "ARRAY_UDT_" + RTRIM$(id.n), 1 ' manageVariableList "", scope$ + "ARRAY_UDT_" + RTRIM$(id.n), 1
ELSE ' ELSE
n$ = id2shorttypename$ ' n$ = id2shorttypename$
IF LEFT$(n$, 1) = "_" THEN ' IF LEFT$(n$, 1) = "_" THEN
manageVariableList "", scope$ + "ARRAY" + n$ + "_" + RTRIM$(id.n), 2 ' manageVariableList "", scope$ + "ARRAY" + n$ + "_" + RTRIM$(id.n), 2
ELSE ' ELSE
manageVariableList "", scope$ + "ARRAY_" + n$ + "_" + RTRIM$(id.n), 3 ' manageVariableList "", scope$ + "ARRAY_" + n$ + "_" + RTRIM$(id.n), 3
END IF ' END IF
END IF ' END IF
ELSE ' ELSE
IF t AND ISUDT THEN ' IF t AND ISUDT THEN
manageVariableList "", scope$ + "UDT_" + RTRIM$(id.n), 4 ' manageVariableList "", scope$ + "UDT_" + RTRIM$(id.n), 4
ELSE ' ELSE
n$ = id2shorttypename$ ' n$ = id2shorttypename$
IF LEFT$(n$, 1) = "_" THEN ' IF LEFT$(n$, 1) = "_" THEN
manageVariableList "", scope$ + MID$(n$, 2) + "_" + RTRIM$(id.n), 5 ' manageVariableList "", scope$ + MID$(n$, 2) + "_" + RTRIM$(id.n), 5
ELSE ' ELSE
manageVariableList "", scope$ + n$ + "_" + RTRIM$(id.n), 6 ' manageVariableList "", scope$ + n$ + "_" + RTRIM$(id.n), 6
END IF ' END IF
END IF ' END IF
END IF ' END IF
END IF 'END IF
currentid = i currentid = i
EXIT FUNCTION EXIT FUNCTION