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

* Object fields are simple offsets in TP/Delphi mode

Browse Source
This commit is contained in:
pierre 2000-03-28 22:10:12 +00:00
parent 32581d349c
commit a7331ce0eb
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/rautils.pas
View File

@ -749,12 +749,19 @@ Begin
{ this is not allowed, because we don't know if the self { this is not allowed, because we don't know if the self
register is still free, and loading it first is also register is still free, and loading it first is also
not possible, because this could break code } not possible, because this could break code }
{opr.typ:=OPR_CONSTANT; { Be TP/Delphi compatible in Delphi or TP modes }
opr.val:=pvarsym(sym)^.address;} if (m_tp in aktmodeswitches) then
begin
opr.typ:=OPR_CONSTANT;
opr.val:=pvarsym(sym)^.address;
end
{ I do not agree here people using method vars should ensure { I do not agree here people using method vars should ensure
that %esi is valid there } that %esi is valid there }
opr.ref.base:=self_pointer; else
opr.ref.offset:=pvarsym(sym)^.address; begin
opr.ref.base:=self_pointer;
opr.ref.offset:=pvarsym(sym)^.address;
end;
hasvar:=true; hasvar:=true;
SetupVar:=true; SetupVar:=true;
Exit; Exit;
@ -1501,7 +1508,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.37 2000-03-16 15:10:25 pierre Revision 1.38 2000-03-28 22:10:12 pierre
* Object fields are simple offsets in TP/Delphi mode
Revision 1.37 2000/03/16 15:10:25 pierre
* correct the fixups for inlined assembler code * correct the fixups for inlined assembler code
Revision 1.36 2000/03/15 23:10:01 pierre Revision 1.36 2000/03/15 23:10:01 pierre