paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:49:10 +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
for class entries as the tree keeps always the same }
if (not symtableprocentry.overloadchecked) and
((symtableprocentry.first_procdef.proctypeoption=potype_constructor) or
(po_overload in symtableprocentry.first_procdef.procoptions)) and
(symtableprocentry.owner.symtabletype=objectsymtable) then
(symtableprocentry.owner.symtabletype=objectsymtable) and
(
(
(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);
{ when the class passed is defined in this unit we
@ -2571,7 +2576,10 @@ begin
end.
{
$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
Revision 1.196 2003/10/13 14:05:12 peter