Merge pull request #59 from wlandgraf/master

Fixed AV when calling DeserializeOnly without passing TJWTClaimsClass
paolo-rossi · Aug 29, 2022 · 9cea04e · 9cea04e
2 parents ac4989b + b741b01
commit 9cea04e
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Source/JOSE/JOSE.Core.JWT.pas b/Source/JOSE/JOSE.Core.JWT.pas
@@ -204,7 +204,10 @@ constructor TJWT.Create(AClaimsClass: TJWTClaimsClass);
 constructor TJWT.Create(AHeaderClass: TJWTHeaderClass; AClaimsClass: TJWTClaimsClass);
 begin
   FHeader := AHeaderClass.Create;
-  FClaims := AClaimsClass.Create;
+  if AClaimsClass = nil then
+    FClaims := TJWTClaims.Create
+  else
+    FClaims := AClaimsClass.Create;
 end;
 
 destructor TJWT.Destroy;