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

* also search in parents for overloads when calling a constructor

Browse Source
This commit is contained in:
peter 2003-10-21 15:14:55 +00:00
parent 276688dbb4
commit a57d25b3ed
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ncal.pas
View File

@ -160,7 +160,7 @@ interface
procedure get_paratype;
procedure insert_typeconv(do_count : boolean);
procedure det_registers;
procedure firstcallparan(do_count : boolean);
procedure firstcallparan;
procedure secondcallparan;virtual;abstract;
function docompare(p: tnode): boolean; override;
procedure printnodetree(var t:text);override;
@ -187,8 +187,8 @@ implementation
symconst,paramgr,defutil,defcmp,
htypechk,pass_1,
ncnv,nld,ninl,nadd,ncon,nmem,
nutils,procinfo,
tgobj,cgbase
procinfo,
cgbase
;
type
@ -782,7 +782,7 @@ type
end;
procedure tcallparanode.firstcallparan(do_count : boolean);
procedure tcallparanode.firstcallparan;
begin
if not assigned(left.resulttype.def) then
get_paratype;
@ -1213,7 +1213,8 @@ 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
(po_overload in symtableprocentry.first_procdef.procoptions) and
((symtableprocentry.first_procdef.proctypeoption=potype_constructor) or
(po_overload in symtableprocentry.first_procdef.procoptions)) and
(symtableprocentry.owner.symtabletype=objectsymtable) then
search_class_overloads(symtableprocentry);
@ -2570,7 +2571,10 @@ begin
end.
{
$Log$
Revision 1.196 2003-10-13 14:05:12 peter
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
* removed is_visible_for_proc
* search also for class overloads when finding interface
implementations