From 3570eaa1abd60d430b1f50154e0a48cbceb648af Mon Sep 17 00:00:00 2001
From: yn0ga <ynoga@protonmail.com>
Date: Mon, 19 Oct 2020 11:53:04 +0200
Subject: [PATCH] Used a typed pointer in GetEnumProp instead

Allow compilation with Delphi's "Typed @ operator" option enabled
---
 Quick.Json.Serializer.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Quick.Json.Serializer.pas b/Quick.Json.Serializer.pas
index 12a91dc..593bc4d 100644
--- a/Quick.Json.Serializer.pas
+++ b/Quick.Json.Serializer.pas
@@ -1065,7 +1065,7 @@ function TRTTIJson.GetPropertyValue(Instance : TObject; const PropertyName : str
     {$ELSE}
     tkEnumeration :
       begin
-        if fUseEnumNames then Result := GetEnumName(@pinfo.PropType,GetOrdProp(Instance,PropertyName))
+        if fUseEnumNames then Result := GetEnumName(PTypeInfo(pinfo.PropType),GetOrdProp(Instance,PropertyName))
           else Result := GetOrdProp(Instance,PropertyName);
       end;
     {$ENDIF}