paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Fix mem-leak

Browse Source 
git-svn-id: trunk@65167 -
This commit is contained in:
martin 2021-06-03 16:42:38 +00:00
parent 43ae6df320
commit a1b4044047
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fppascalparser.pas
View File

@ -2865,10 +2865,13 @@ function TFpPascalExpressionPartOperatorPlusMinus.DoGetResultValue: TFpValue;
(AOtherVal.TypeInfo.TypeInfo.ReadSize(nil, s2)) and
(s1 = s2)
then begin
if s1 <> (APointerVal.Member[1].DataAddress.Address - APointerVal.DataAddress.Address) then begin
TmpVal := APointerVal.Member[1];
if s1 <> (TmpVal.DataAddress.Address - APointerVal.DataAddress.Address) then begin
TmpVal.ReleaseReference;
debugln('Size mismatch for pointer math');
exit;
end;
TmpVal.ReleaseReference;
Idx := APointerVal.AsCardinal - AOtherVal.AsCardinal;
if SizeToFullBytes(s1) > 0 then begin
m := Idx mod SizeToFullBytes(s1);