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

* fix previous typeof change

Browse Source
This commit is contained in:
peter 2003-01-31 22:47:27 +00:00
parent b4f01df991
commit ce220c874d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncginl.pas
View File

@ -260,6 +260,7 @@ implementation
begin
{ deref class }
cg.a_load_ref_reg(exprasmlist,OS_ADDR,left.location.reference,hregister);
cg.g_maybe_testself(exprasmlist,hregister);
{ load VMT pointer }
reference_reset_base(hrefvmt,hregister,tobjectdef(left.resulttype.def).vmt_offset);
cg.a_load_ref_reg(exprasmlist,OS_ADDR,hrefvmt,hregister);
@ -275,10 +276,6 @@ implementation
else
internalerror(200301301);
end;
{ load VMT pointer }
inc(left.location.reference.offset,tobjectdef(left.resulttype.def).vmt_offset);
cg.a_load_ref_reg(exprasmlist,OS_ADDR,left.location.reference,hregister);
end;
{ in sizeof load size }
if inlinenumber=in_sizeof_x then
@ -652,7 +649,10 @@ end.
{
$Log$
Revision 1.19 2003-01-30 21:46:57 peter
Revision 1.20 2003-01-31 22:47:27 peter
* fix previous typeof change
Revision 1.19 2003/01/30 21:46:57 peter
* self fixes for static methods (merged)
Revision 1.18 2003/01/08 18:43:56 daniel