From 07a798f733fb560222e24cbe11647eb2a98f50fd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Fri, 1 Dec 2023 00:06:22 +0100
Subject: [PATCH] * Correct case label

---
 packages/vcl-compat/src/system.hash.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/vcl-compat/src/system.hash.pp b/packages/vcl-compat/src/system.hash.pp
index 5862c83253..a8b81711c5 100755
--- a/packages/vcl-compat/src/system.hash.pp
+++ b/packages/vcl-compat/src/system.hash.pp
@@ -140,7 +140,7 @@ type
   private
     FDidFinal : Boolean;
     case FHashVersion: TSHA2Version of
-      Sha256 : (_S224 : TSHA224);
+      Sha224 : (_S224 : TSHA224);
       Sha256 : (_S256 : TSHA256);
       Sha384 : (_S384 : TSHA384);
       Sha512 : (_S512 : TSHA512);