|
@@ -576,6 +576,7 @@ implementation
|
|
|
begin
|
|
begin
|
|
|
location_release(exprasmlist,selfloc);
|
|
location_release(exprasmlist,selfloc);
|
|
|
location_copy(selfloc,vmtloc);
|
|
location_copy(selfloc,vmtloc);
|
|
|
|
|
+ selfrefaddr:=vmtrefaddr;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
{ when we need the vmt in a register then we already
|
|
{ when we need the vmt in a register then we already
|
|
@@ -1414,7 +1415,10 @@ begin
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.45 2003-04-21 13:53:16 jonas
|
|
|
|
|
|
|
+ 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
|
|
|
- removed copying of all paras when secondpassing a callnode (this used
|
|
- removed copying of all paras when secondpassing a callnode (this used
|
|
|
to be necessary for inlinign support, but currently the whole inlined
|
|
to be necessary for inlinign support, but currently the whole inlined
|
|
|
procedure is already copied in advance). Note that the compiler crashes
|
|
procedure is already copied in advance). Note that the compiler crashes
|
peter