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

* do not load self when calling a non-inherited class constructor

Browse Source
This commit is contained in:
peter 2003-04-22 09:49:44 +00:00
parent 26b4fdbfa7
commit ed82f9ff35
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/ncgcal.pas
View File

@ -369,9 +369,17 @@ implementation
end
else
begin
{ member call, load self }
location_reset(selfloc,LOC_REGISTER,OS_ADDR);
selfloc.register:=cg.g_load_self(exprasmlist);
{ normal member call, load self. Not for classes
when we call the constructor }
if not(
is_class(methodpointer.resulttype.def) and
(procdefinition.proctypeoption=potype_constructor) and
(aktprocdef.proctypeoption<>potype_constructor)
) then
begin
location_reset(selfloc,LOC_REGISTER,OS_ADDR);
selfloc.register:=cg.g_load_self(exprasmlist);
end;
end;
if (procdefinition.proctypeoption in [potype_constructor,potype_destructor]) then
@ -1415,7 +1423,10 @@ begin
end.
{
$Log$
Revision 1.46 2003-04-21 20:03:32 peter
Revision 1.47 2003-04-22 09:49:44 peter
* do not load self when calling a non-inherited class constructor
Revision 1.46 2003/04/21 20:03:32 peter
* forgot to copy vmtrefaddr to selfrefaddr when self=vmt
Revision 1.45 2003/04/21 13:53:16 jonas