mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 22:35:14 +00:00
Fix UDT internal arrays retaining values after loading files
This commit is contained in:
parent
d9c7c69448
commit
bbf931d3ee
|
@ -640,22 +640,7 @@ REDIM SHARED constdefined(constmax) AS LONG
|
||||||
'UDT
|
'UDT
|
||||||
'names
|
'names
|
||||||
DIM SHARED lasttype AS LONG
|
DIM SHARED lasttype AS LONG
|
||||||
REDIM SHARED udtxname(1000) AS STRING * 256
|
DIM SHARED lasttypeelement AS LONG
|
||||||
REDIM SHARED udtxcname(1000) AS STRING * 256
|
|
||||||
REDIM SHARED udtxsize(1000) AS LONG
|
|
||||||
REDIM SHARED udtxbytealign(1000) AS INTEGER 'first element MUST be on a byte alignment & size is a multiple of 8
|
|
||||||
REDIM SHARED udtxnext(1000) AS LONG
|
|
||||||
REDIM SHARED udtxvariable(1000) AS INTEGER 'true if the udt contains variable length elements
|
|
||||||
'elements
|
|
||||||
REDIM SHARED lasttypeelement AS LONG
|
|
||||||
REDIM SHARED udtename(1000) AS STRING * 256
|
|
||||||
REDIM SHARED udtecname(1000) AS STRING * 256
|
|
||||||
REDIM SHARED udtebytealign(1000) AS INTEGER
|
|
||||||
REDIM SHARED udtesize(1000) AS LONG
|
|
||||||
REDIM SHARED udtetype(1000) AS LONG
|
|
||||||
REDIM SHARED udtetypesize(1000) AS LONG
|
|
||||||
REDIM SHARED udtearrayelements(1000) AS LONG
|
|
||||||
REDIM SHARED udtenext(1000) AS LONG
|
|
||||||
|
|
||||||
TYPE idstruct
|
TYPE idstruct
|
||||||
|
|
||||||
|
@ -1427,6 +1412,21 @@ addmetainclude$ = ""
|
||||||
nextrunlineindex = 1
|
nextrunlineindex = 1
|
||||||
lasttype = 0
|
lasttype = 0
|
||||||
lasttypeelement = 0
|
lasttypeelement = 0
|
||||||
|
REDIM SHARED udtxname(1000) AS STRING * 256
|
||||||
|
REDIM SHARED udtxcname(1000) AS STRING * 256
|
||||||
|
REDIM SHARED udtxsize(1000) AS LONG
|
||||||
|
REDIM SHARED udtxbytealign(1000) AS INTEGER 'first element MUST be on a byte alignment & size is a multiple of 8
|
||||||
|
REDIM SHARED udtxnext(1000) AS LONG
|
||||||
|
REDIM SHARED udtxvariable(1000) AS INTEGER 'true if the udt contains variable length elements
|
||||||
|
'elements
|
||||||
|
REDIM SHARED udtename(1000) AS STRING * 256
|
||||||
|
REDIM SHARED udtecname(1000) AS STRING * 256
|
||||||
|
REDIM SHARED udtebytealign(1000) AS INTEGER
|
||||||
|
REDIM SHARED udtesize(1000) AS LONG
|
||||||
|
REDIM SHARED udtetype(1000) AS LONG
|
||||||
|
REDIM SHARED udtetypesize(1000) AS LONG
|
||||||
|
REDIM SHARED udtearrayelements(1000) AS LONG
|
||||||
|
REDIM SHARED udtenext(1000) AS LONG
|
||||||
definingtype = 0
|
definingtype = 0
|
||||||
definingtypeerror = 0
|
definingtypeerror = 0
|
||||||
constlast = -1
|
constlast = -1
|
||||||
|
|
Loading…
Reference in a new issue