paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 14:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make hexdigits a global constant

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-11-30 09:06:41 +01:00
parent 65101b36dc
commit b1412ec5c0
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysconst.pp
View File

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

4
rtl/objpas/sysutils/sysstr.inc
View File

@ -1,3 +1,4 @@
{ {
********************************************************************* *********************************************************************
Copyright (C) 1997, 1998 Gertjan Schouten Copyright (C) 1997, 1998 Gertjan Schouten
@ -877,9 +878,6 @@ end;
{ IntToHex returns a string representing the hexadecimal value of Value } { 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; function IntToHex(Value: Longint; Digits: integer): string;
var i: integer; var i: integer;
begin begin