浏览代码

* 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 年之前
父节点
当前提交
009b421498
共有 1 个文件被更改,包括 1 次插入1 次删除
  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;