TurboPowerIPro: workaround for issue #37574 // Allocate a larger amount of memory, to lessen the likelihood of an access violation

git-svn-id: trunk@63746 -
This commit is contained in:
martin 2020-08-15 13:05:56 +00:00
parent 3fa7867154
commit 46e375aef5

View File

@ -7824,7 +7824,7 @@ var
ch1,ch2,ch3: AnsiChar;
{$ENDIF}
begin
Getmem(TokenStringBuf, 65536);
Getmem(TokenStringBuf, CharStream.Size * 4 + 65536);
try
CharSP := 0;
ListLevel := 0;