mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-07 09:00:35 +02:00
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:
parent
3fa7867154
commit
46e375aef5
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user