paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 06:13:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix warning for calling constructor inside constructor

Browse Source
This commit is contained in:
peter 2003-04-23 13:21:06 +00:00
parent 77cdb2fcae
commit 32d79d4f80
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
compiler/ncal.pas
View File

@ -1892,30 +1892,27 @@ type
begin begin
resulttypepass(methodpointer); resulttypepass(methodpointer);
{ if an inherited con- or destructor should be }
{ called in a con- or destructor then a warning }
{ will be made }
{ con- and destructors need a pointer to the vmt }
if (methodpointer.nodetype=typen) and
(procdefinition.proctypeoption in [potype_constructor,potype_destructor]) and
is_object(methodpointer.resulttype.def) and
not(aktprocdef.proctypeoption in [potype_constructor,potype_destructor]) then
CGMessage(cg_w_member_cd_call_from_method);
if not(methodpointer.nodetype in [typen,hnewn]) then if not(methodpointer.nodetype in [typen,hnewn]) then
begin begin
hpt:=methodpointer; hpt:=methodpointer;
while assigned(hpt) and (hpt.nodetype in [subscriptn,vecn]) do while assigned(hpt) and (hpt.nodetype in [subscriptn,vecn]) do
hpt:=tunarynode(hpt).left; hpt:=tunarynode(hpt).left;
if (procdefinition.proctypeoption in [potype_constructor,potype_destructor]) then if (procdefinition.proctypeoption in [potype_constructor,potype_destructor]) and
begin assigned(symtableproc) and
{ if an inherited con- or destructor should be } (symtableproc.symtabletype=withsymtable) and
{ called in a con- or destructor then a warning } (not twithsymtable(symtableproc).direct_with) then
{ will be made } CGmessage(cg_e_cannot_call_cons_dest_inside_with);
{ con- and destructors need a pointer to the vmt }
if is_object(methodpointer.resulttype.def) and
not(aktprocdef.proctypeoption in
[potype_constructor,potype_destructor]) then
CGMessage(cg_w_member_cd_call_from_method);
if assigned(symtableproc) and
(symtableproc.symtabletype=withsymtable) and
(not twithsymtable(symtableproc).direct_with) then
begin
CGmessage(cg_e_cannot_call_cons_dest_inside_with);
end; { Is accepted by Delphi !! }
end;
{ R.Init then R will be initialized by the constructor, { R.Init then R will be initialized by the constructor,
Also allow it for simple loads } Also allow it for simple loads }
@ -2486,7 +2483,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.140 2003-04-23 12:35:34 florian Revision 1.141 2003-04-23 13:21:06 peter
* fix warning for calling constructor inside constructor
Revision 1.140 2003/04/23 12:35:34 florian
* fixed several issues with powerpc * fixed several issues with powerpc
+ applied a patch from Jonas for nested function calls (PowerPC only) + applied a patch from Jonas for nested function calls (PowerPC only)
* ... * ...