QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-02 03:50:36 +00:00
Code Issues Releases Wiki Activity

Nooooow it seems proper.

Browse source
This commit is contained in:
Fellippe Heitor 2021-07-16 12:11:41 -03:00
parent 8d29964587
commit 88e2a1fa83
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
source/qb64.bas
View file

@ -18375,12 +18375,12 @@ FUNCTION findid& (n2$)
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
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