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

LazLogger: fixed overflow in DbgHex

Browse Source
This commit is contained in:
Martin 2024-05-22 15:44:05 +02:00
parent 4aa0603233
commit 7bccd11e8d
1 changed files with 8 additions and 23 deletions

31
components/lazutils/LazLoggerImpl.inc
View File

@ -484,28 +484,15 @@ begin
end;
function dbghex(i: Int64): string;
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
const
Hex = '0123456789ABCDEF';
var
Negated: Boolean;
{$ENDIF}
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
Result:='';
if i<0 then begin
Negated:=true;
i:=-i;
end else
Negated:=false;
repeat
Result:=Hex[(i mod 16)+1]+Result;
i:=i div 16;
until i=0;
if Negated then
Result:='-'+Result;
{$ELSE}
Result := '';
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
if i<0 then
{$PUSH}{$R-}{$Q-}
Result:='-' + dbghex(qword(-i))
{$POP}
else
Result:=dbghex(qword(i));
{$ENDIF}
end;
@ -515,14 +502,12 @@ const
Hex = '0123456789ABCDEF';
{$ENDIF}
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
Result:='';
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
repeat
Result:=Hex[(i mod 16)+1]+Result;
i:=i div 16;
until i=0;
{$ELSE}
Result := '';
{$ENDIF}
end;