mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 09:39:31 +02:00
codetools: fixed mem leak
git-svn-id: trunk@48973 -
This commit is contained in:
parent
9ee067b475
commit
df8e6c9ec8
@ -839,7 +839,7 @@ end;
|
||||
procedure TFPCMsgRanges.Clear(FreeMemory: boolean);
|
||||
begin
|
||||
FCount:=0;
|
||||
if not FreeMemory then begin
|
||||
if FreeMemory then begin
|
||||
ReAllocMem(Ranges,0);
|
||||
FCapacity:=0;
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user