administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Don't use ValueTuple

Browse source
This commit is contained in:
Sun Serega 2023-11-07 13:50:38 +02:00
parent 4ed748de2e
commit 49f079e7ac
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
bin/Lib/PABCSystem.pas
View file

@ -671,7 +671,7 @@ type
function ToString: string; override := $'{l}..{h}';
function GetHashCode: integer; override :=
ValueTuple.Create(l,h).GetHashCode;
l.GetHashCode*668265263 xor h.GetHashCode;
function ToArray: array of integer;
begin
@ -741,7 +741,7 @@ type
function ToString: string; override := $'''{l}''..''{h}''';
function GetHashCode: integer; override :=
ValueTuple.Create(l,h).GetHashCode;
l.GetHashCode*668265263 xor h.GetHashCode;
function ToArray: array of char;
begin
@ -790,7 +790,8 @@ type
function ToString: string; override := $'{l}..{h}';
function GetHashCode: integer; override := l.GetHashCode xor h.GetHashCode;
function GetHashCode: integer; override :=
l.GetHashCode*668265263 xor h.GetHashCode;
end;