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

* only search for overloaded constructors in classes

Browse Source
This commit is contained in:
peter 2003-10-21 18:17:02 +00:00
parent a28d911c98
commit aaf9043988
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ncal.pas
View File

@ -1213,9 +1213,14 @@ type
overloaded definitions in the class, this only needs to be done once overloaded definitions in the class, this only needs to be done once
for class entries as the tree keeps always the same } for class entries as the tree keeps always the same }
if (not symtableprocentry.overloadchecked) and if (not symtableprocentry.overloadchecked) and
((symtableprocentry.first_procdef.proctypeoption=potype_constructor) or (symtableprocentry.owner.symtabletype=objectsymtable) and
(po_overload in symtableprocentry.first_procdef.procoptions)) and (
(symtableprocentry.owner.symtabletype=objectsymtable) then (
(symtableprocentry.first_procdef.proctypeoption=potype_constructor) and
is_class(tdef(symtableprocentry.owner.defowner))
) or
(po_overload in symtableprocentry.first_procdef.procoptions)
) then
search_class_overloads(symtableprocentry); search_class_overloads(symtableprocentry);
{ when the class passed is defined in this unit we { when the class passed is defined in this unit we
@ -2571,7 +2576,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.197 2003-10-21 15:14:55 peter Revision 1.198 2003-10-21 18:17:02 peter
* only search for overloaded constructors in classes
Revision 1.197 2003/10/21 15:14:55 peter
* also search in parents for overloads when calling a constructor * also search in parents for overloads when calling a constructor
Revision 1.196 2003/10/13 14:05:12 peter Revision 1.196 2003/10/13 14:05:12 peter