paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 10:26:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't search for compatible procvars when the proc is not

Browse Source 
overloaded
This commit is contained in:
peter 2003-10-31 18:44:18 +00:00
parent 1a4df6ba1c
commit f2e031273b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nmem.pas
View File

@ -347,7 +347,8 @@ implementation
the procedure that is stored in the procvar.} the procedure that is stored in the procvar.}
if not(m_tp_procvar in aktmodeswitches) then if not(m_tp_procvar in aktmodeswitches) then
begin begin
if assigned(getprocvardef) then if assigned(getprocvardef) and
(tprocsym(tloadnode(left).symtableentry).procdef_count>1) then
begin begin
hp3:=tprocsym(tloadnode(left).symtableentry).search_procdef_byprocvardef(getprocvardef); hp3:=tprocsym(tloadnode(left).symtableentry).search_procdef_byprocvardef(getprocvardef);
if not assigned(hp3) then if not assigned(hp3) then
@ -924,7 +925,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.69 2003-10-31 15:52:58 peter Revision 1.70 2003-10-31 18:44:18 peter
* don't search for compatible procvars when the proc is not
overloaded
Revision 1.69 2003/10/31 15:52:58 peter
* support creating classes using <class of tobject>.create * support creating classes using <class of tobject>.create
Revision 1.68 2003/10/23 14:44:07 peter Revision 1.68 2003/10/23 14:44:07 peter