QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Fix get global/local for fixed-length strings in UDTs

Browse source
This commit is contained in:
FellippeHeitor 2021-09-27 23:09:05 -03:00
parent 7413e2fe6f
commit 8e09f14e7f
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
source/ide/ide_methods.bas
View file

@ -7851,6 +7851,11 @@ SUB DebugMode
CASE "STRING": varSize& = LEN(dummy%&) + LEN(dummy&)
CASE ELSE 'UDT?
varType$ = getelement(usedVariableList(tempIndex&).elementTypes, tempElement&)
IF INSTR(varType$, "STRING *") THEN
'Request exactly the amount of bytes specified for fixed strings in UDTs
varSize& = VAL(_TRIM$(MID$(varType$, INSTR(varType$, "STRING *") + 8)))
RETURN
END IF
IF LEN(varType$) THEN GOTO checkVarType
END SELECT
RETURN