* Make hexdigits a global constant

rtl/objpas/sysconst.pp

@@ -190,6 +190,10 @@ const
   SLongDayNameSat = 'Saturday';
   SLongDayNameSun = 'Sunday';
 
+const
+   // Do not localize
+   HexDigits: array[0..15] of char = '0123456789ABCDEF';
+
 Function GetRunError(Errno : Word) : String;
 
 Implementation

rtl/objpas/sysutils/sysstr.inc

@@ -1,3 +1,4 @@
+
 {
     *********************************************************************
     Copyright (C) 1997, 1998 Gertjan Schouten
@@ -877,9 +878,6 @@ end;
 
 {   IntToHex returns a string representing the hexadecimal value of Value   }
 
-const
-   HexDigits: array[0..15] of char = '0123456789ABCDEF';
-
 function IntToHex(Value: Longint; Digits: integer): string;
 var i: integer;
 begin