From a7de0b365b9d10dac141f7a7b8889e92e12370fb Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 15 Mar 2021 13:25:59 +0000
Subject: [PATCH]  Avoid invalid typecast error when using -CR option

git-svn-id: trunk@48978 -
---
 compiler/htypechk.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas
index 7e805b73e9..0d0e6f4aba 100644
--- a/compiler/htypechk.pas
+++ b/compiler/htypechk.pas
@@ -625,7 +625,8 @@ implementation
         pd : tprocdef;
         oldcount,
         count: longint;
-        parasym : tparavarsym;
+        sym : tsym;
+        parasym : tparavarsym absolute sym;
       begin
         result:=false;
         count := pf.parast.SymList.count;
@@ -633,8 +634,8 @@ implementation
         oldcount:=count;
         while count > 0 do
           begin
-            parasym:=tparavarsym(pf.parast.SymList[count-1]);
-            if parasym.typ<>paravarsym then
+            sym:=tsym(pf.parast.SymList[count-1]);
+            if sym.typ<>paravarsym then
               begin
                 dec(count);
               end