mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 01:50:25 +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
|
||||
'names
|
||||
DIM SHARED lasttype AS LONG
|
||||
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 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
|
||||
DIM SHARED lasttypeelement AS LONG
|
||||
|
||||
TYPE idstruct
|
||||
|
||||
|
@ -1427,6 +1412,21 @@ addmetainclude$ = ""
|
|||
nextrunlineindex = 1
|
||||
lasttype = 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
|
||||
definingtypeerror = 0
|
||||
constlast = -1
|
||||
|
|
Loading…
Reference in a new issue