Przeglądaj źródła

* prevent exception when the compiler is compiled with -CR and we find a
non-procsym during overload resolving

git-svn-id: trunk@18161 -

Jonas Maebe 14 lat temu
rodzic
commit
4de8f53f03
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      compiler/htypechk.pas

+ 1 - 1
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