From 4de8f53f03277838b75f023e4212f6c1ca888e41 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 10 Aug 2011 15:41:00 +0000
Subject: [PATCH]   * prevent exception when the compiler is compiled with -CR
 and we find a     non-procsym during overload resolving

git-svn-id: trunk@18161 -
---
 compiler/htypechk.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas
index 666c5f367f..08d6abfce4 100644
--- a/compiler/htypechk.pas
+++ b/compiler/htypechk.pas
@@ -1933,7 +1933,7 @@ implementation
               break;
             if srsymtable.symtabletype in [localsymtable,staticsymtable,globalsymtable] then
               begin
-                srsym:=tprocsym(srsymtable.FindWithHash(hashedid));
+                srsym:=tsym(srsymtable.FindWithHash(hashedid));
                 if assigned(srsym) and
                    (srsym.typ=procsym) then
                   begin