* 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

rtl/objpas/sysutils/sysstr.inc

@@ -944,7 +944,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;