paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 13:05:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: optimization

Browse Source
This commit is contained in:
Martin 2022-03-22 20:46:37 +01:00
parent c7e123fd8d
commit 22ef2d781f
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpdebug/fpdmemorytools.pas
View File

@ -664,10 +664,14 @@ end;
function SizeToFullBytes(const ASize: TFpDbgValueSize): Int64; function SizeToFullBytes(const ASize: TFpDbgValueSize): Int64;
begin begin
assert((ASize.Size=0) or (ASize.BitSize=0) or ( (ASize.Size<0) = (ASize.BitSize<0) ), '(ASize.Size=0) or (ASize.BitSize=0) or ( (ASize.Size<0) = (ASize.BitSize<0) )'); assert((ASize.Size=0) or (ASize.BitSize=0) or ( (ASize.Size<0) = (ASize.BitSize<0) ), '(ASize.Size=0) or (ASize.BitSize=0) or ( (ASize.Size<0) = (ASize.BitSize<0) )');
if ASize < 0 then Result := ASize.Size;
Result := ASize.Size + (ASize.BitSize - 7) div 8 if ASize.BitSize = 0 then
exit
else else
Result := ASize.Size + (ASize.BitSize + 7) div 8; if ASize.BitSize > 0 then
inc(Result)
else
dec(Result);
end; end;
function SizeToBits(const ASize: TFpDbgValueSize): Int64; function SizeToBits(const ASize: TFpDbgValueSize): Int64;