From d6efbfb2bbee4486913eafc26e8d0d67b4d8fae4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 8 Jan 2025 15:31:27 +0100
Subject: [PATCH] * Patch from Andrew Haines to fix creating signature. Fixes
 issue #41058

---
 packages/fcl-web/src/jwt/fpjwaes256.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-web/src/jwt/fpjwaes256.pp b/packages/fcl-web/src/jwt/fpjwaes256.pp
index e521d9bccc..f015a0ec7c 100644
--- a/packages/fcl-web/src/jwt/fpjwaes256.pp
+++ b/packages/fcl-web/src/jwt/fpjwaes256.pp
@@ -51,7 +51,7 @@ Var
 begin
   Result:='';
   aPrivateKey:=Default(TECCPrivateKey);
-  Move(aKey.AsPointer,aPrivateKey,Sizeof(aPrivateKey));
+  Move(aKey.AsPointer^,aPrivateKey,Sizeof(aPrivateKey));
   B:=GetSignInput(aJWT);
   if TECDSA.SignSHA256(B,aPrivateKey,aSignature) then
     Result:=Base64URL.Encode(@aSignature[0],Length(aSignature),False);