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

Fixes Out of Memory error in Windows (SUBs dialog)

Browse source
This commit is contained in:
FellippeHeitor 2021-02-28 15:23:57 -03:00
parent 9439c43a14
commit 30431161f9
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
source/ide/ide_methods.bas
View file

@ -8810,13 +8810,15 @@ FUNCTION idesubs$
IF SubClosed = 0 THEN GOSUB AddLineCount
'fix arrays to remove empty items
REDIM _PRESERVE SortedSubsList(1 TO TotalSUBs) AS STRING * 998
REDIM _PRESERVE CaseBkpSubsList(1 TO TotalSUBs) AS STRING * 998
REDIM _PRESERVE TotalLines(0 TO TotalSUBs) AS LONG
REDIM _PRESERVE SubNames(0 TO TotalSUBs) AS STRING
REDIM _PRESERVE SubLines(0 TO TotalSUBs) AS LONG
REDIM _PRESERVE Args(0 TO TotalSUBs) AS STRING
REDIM _PRESERVE SF(0 TO TotalSUBs) AS STRING
IF TotalSUBs > 0 AND TotalSUBs < UBOUND(SortedSubsList) THEN
REDIM _PRESERVE SortedSubsList(1 TO TotalSUBs) AS STRING * 998
REDIM _PRESERVE CaseBkpSubsList(1 TO TotalSUBs) AS STRING * 998
REDIM _PRESERVE TotalLines(0 TO TotalSUBs) AS LONG
REDIM _PRESERVE SubNames(0 TO TotalSUBs) AS STRING
REDIM _PRESERVE SubLines(0 TO TotalSUBs) AS LONG
REDIM _PRESERVE Args(0 TO TotalSUBs) AS STRING
REDIM _PRESERVE SF(0 TO TotalSUBs) AS STRING
END IF
'build headers (normal, sorted, normal with line count, sorted with line count)
IF TotalSUBs > 0 THEN