paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 21:49:33 +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

10
components/fpdebug/fpdmemorytools.pas
View File

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