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

* Don't release methodpointer. It is maybe still needed when we need to

Browse Source 
convert the calln to loadn
This commit is contained in:
peter 2005-01-02 16:58:48 +00:00
parent 37042e2898
commit a15f1c3283
2 changed files with 45 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/ncal.pas
View File

@ -1803,25 +1803,20 @@ type
{ bind parasyms to the callparanodes and insert hidden parameters } { bind parasyms to the callparanodes and insert hidden parameters }
bind_parasym; bind_parasym;
{ methodpointer is only needed for virtual calls, and { methodpointer needs to be a pointer to the VMT for virtual calls.
it should then be loaded with the VMT } Note: We need to keep the methodpointer in the callnode for TP
if (po_virtualmethod in procdefinition.procoptions) and procvar support, because this calln still maybe converted to a loadn,
not(assigned(methodpointer) and see tw3499 }
(methodpointer.nodetype=typen)) then if (po_virtualmethod in procdefinition.procoptions) then
begin begin
if not assigned(methodpointer) then if not assigned(methodpointer) then
internalerror(200305063); internalerror(200305063);
if (methodpointer.resulttype.def.deftype<>classrefdef) then if (methodpointer.nodetype<>typen) and
(methodpointer.resulttype.def.deftype<>classrefdef) then
begin begin
methodpointer:=cloadvmtaddrnode.create(methodpointer); methodpointer:=cloadvmtaddrnode.create(methodpointer);
resulttypepass(methodpointer); resulttypepass(methodpointer);
end; end;
end
else
begin
{ not needed anymore }
methodpointer.free;
methodpointer:=nil;
end; end;
{ insert type conversions for parameters } { insert type conversions for parameters }
@ -2450,7 +2445,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.273 2004-12-27 16:36:10 peter Revision 1.274 2005-01-02 16:58:48 peter
* Don't release methodpointer. It is maybe still needed when we need to
convert the calln to loadn
Revision 1.273 2004/12/27 16:36:10 peter
* fix crash with callnode.ppuload when symtableproc=nil * fix crash with callnode.ppuload when symtableproc=nil
Revision 1.272 2004/12/26 16:22:01 peter Revision 1.272 2004/12/26 16:22:01 peter

17
compiler/ncgcal.pas
View File

@ -852,8 +852,11 @@ implementation
{ procedure variable or normal function call ? } { procedure variable or normal function call ? }
if (right=nil) then if (right=nil) then
begin begin
{ When methodpointer is typen we don't need (and can't) load
a pointer. We can directly call the correct procdef (PFV) }
if (po_virtualmethod in procdefinition.procoptions) and if (po_virtualmethod in procdefinition.procoptions) and
assigned(methodpointer) then assigned(methodpointer) and
(methodpointer.nodetype<>typen) then
begin begin
secondpass(methodpointer); secondpass(methodpointer);
location_force_reg(exprasmlist,methodpointer.location,OS_ADDR,false); location_force_reg(exprasmlist,methodpointer.location,OS_ADDR,false);
@ -869,13 +872,7 @@ implementation
if not(is_interface(tprocdef(procdefinition)._class)) and if not(is_interface(tprocdef(procdefinition)._class)) and
not(is_cppclass(tprocdef(procdefinition)._class)) then not(is_cppclass(tprocdef(procdefinition)._class)) then
cg.g_maybe_testvmt(exprasmlist,methodpointer.location.register,tprocdef(procdefinition)._class); cg.g_maybe_testvmt(exprasmlist,methodpointer.location.register,tprocdef(procdefinition)._class);
end;
{$warning fixme regvars}
{ rg.saveotherregvars(exprasmlist,regs_to_push_other);}
if (po_virtualmethod in procdefinition.procoptions) and
assigned(methodpointer) then
begin
vmtreg:=methodpointer.location.register; vmtreg:=methodpointer.location.register;
pvreg:=cg.getintregister(exprasmlist,OS_ADDR); pvreg:=cg.getintregister(exprasmlist,OS_ADDR);
reference_reset_base(href,vmtreg, reference_reset_base(href,vmtreg,
@ -1253,7 +1250,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.190 2004-12-05 12:28:11 peter Revision 1.191 2005-01-02 16:58:48 peter
* Don't release methodpointer. It is maybe still needed when we need to
convert the calln to loadn
Revision 1.190 2004/12/05 12:28:11 peter
* procvar handling for tp procvar mode fixed * procvar handling for tp procvar mode fixed
* proc to procvar moved from addrnode to typeconvnode * proc to procvar moved from addrnode to typeconvnode
* inlininginfo is now allocated only for inline routines that * inlininginfo is now allocated only for inline routines that