From d8e4544fbe384d1598f325310d417275c600eb3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 29 Nov 2023 20:27:20 +0100
Subject: [PATCH] * Delphi compatible hash again compatible

---
 packages/rtl-generics/src/generics.hashes.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/rtl-generics/src/generics.hashes.pas b/packages/rtl-generics/src/generics.hashes.pas
index 94a310fbd3..93442ada8f 100644
--- a/packages/rtl-generics/src/generics.hashes.pas
+++ b/packages/rtl-generics/src/generics.hashes.pas
@@ -989,7 +989,7 @@ label Case12, Case11, Case10, Case9, Case8, Case7, Case6, Case5, Case4, Case3, C
 
 begin
   //* Set up the internal state */
-  a := $DEADBEEF + UInt32(ALength shl 2) + APrimaryHashAndInitVal; // delphi version bug? original version don't have "shl 2"
+  a := $DEADBEEF + UInt32(ALength) + APrimaryHashAndInitVal;
   b := a;
   c := b;
   c += ASecondaryHashAndInitVal;
@@ -1265,7 +1265,7 @@ label Case12, Case11, Case10, Case9, Case8, Case7, Case6, Case5, Case4, Case3, C
 {$ENDIF NOGOTO}
 
 begin
-  a := $DEADBEEF + UInt32(ALength shl 2) + AInitVal; // delphi version bug? original version don't have "shl 2"
+  a := $DEADBEEF + UInt32(ALength) + AInitVal;
   b := a;
   c := b;