paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 22:09:45 +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
rtl/objpas
sysconst.pp
sysutils
sysstr.inc

4
rtl/objpas/sysconst.pp
View File

@ -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

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

@ -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