Răsfoiți Sursa

* have the unsigned 32-bit overload of IntToHex use the signed 32-bit one to avoid usage of 64-bit arithmetic (and parameter passing) when it can be avoided

(cherry picked from commit 862cffa0875e7c61e5e9b1fe3e31c75fb0f6f370)
Sven/Sarah Barth 3 ani în urmă
părinte
comite
009b421498
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      rtl/objpas/sysutils/sysstr.inc

+ 1 - 1
rtl/objpas/sysutils/sysstr.inc

@@ -943,7 +943,7 @@ end;
 
 function IntToHex(Value: UInt32): string;
 begin
-  Result:=IntToHex(Value, 2*SizeOf(UInt32));
+  Result:=IntToHex(LongInt(Value), 2*SizeOf(UInt32));
 end;
 
 function IntToHex(Value: Int64): string;