paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 04:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* prevent exception when the compiler is compiled with -CR and we find a

Browse Source 
non-procsym during overload resolving

git-svn-id: trunk@18161 -
This commit is contained in:
Jonas Maebe 2011-08-10 15:41:00 +00:00
parent 59720fa55a
commit 4de8f53f03
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/htypechk.pas
View File

@ -1933,7 +1933,7 @@ implementation
break; break;
if srsymtable.symtabletype in [localsymtable,staticsymtable,globalsymtable] then if srsymtable.symtabletype in [localsymtable,staticsymtable,globalsymtable] then
begin begin
srsym:=tprocsym(srsymtable.FindWithHash(hashedid)); srsym:=tsym(srsymtable.FindWithHash(hashedid));
if assigned(srsym) and if assigned(srsym) and
(srsym.typ=procsym) then (srsym.typ=procsym) then
begin begin