paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-31 13:27:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* register call fix

Browse Source
This commit is contained in:
peter 2003-12-17 21:59:59 +00:00
parent bc4f29e15c
commit a529392b93
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/i386/n386obj.pas
View File

@ -104,8 +104,11 @@ procedure ti386classheader.cgintfwrapper(asmlist: TAAsmoutput; procdef: tprocdef
href : treference; href : treference;
begin begin
{ mov offset(%esp),%eax } { mov offset(%esp),%eax }
reference_reset_base(href,NR_ESP,getselfoffsetfromsp(procdef)+offs); if (procdef.proccalloption<>pocall_register) then
cg.a_load_ref_reg(exprasmlist,OS_ADDR,OS_ADDR,href,NR_EAX); begin
reference_reset_base(href,NR_ESP,getselfoffsetfromsp(procdef)+offs);
cg.a_load_ref_reg(exprasmlist,OS_ADDR,OS_ADDR,href,NR_EAX);
end;
end; end;
procedure loadvmttoeax; procedure loadvmttoeax;
@ -186,7 +189,8 @@ begin
adjustselfvalue(procdef,-ioffset); adjustselfvalue(procdef,-ioffset);
end end
{ case 3 } { case 3 }
else if [po_virtualmethod,po_saveregisters]*procdef.procoptions=[po_virtualmethod,po_saveregisters] then else if (procdef.proccalloption=pocall_register) or
([po_virtualmethod,po_saveregisters]*procdef.procoptions=[po_virtualmethod,po_saveregisters]) then
begin begin
emit_reg(A_PUSH,S_L,NR_EBX); { allocate space for address} emit_reg(A_PUSH,S_L,NR_EBX); { allocate space for address}
emit_reg(A_PUSH,S_L,NR_EAX); emit_reg(A_PUSH,S_L,NR_EAX);
@ -223,7 +227,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.27 2003-10-10 17:48:14 peter Revision 1.28 2003-12-17 21:59:59 peter
* register call fix
Revision 1.27 2003/10/10 17:48:14 peter
* old trgobj moved to x86/rgcpu and renamed to trgx86fpu * old trgobj moved to x86/rgcpu and renamed to trgx86fpu
* tregisteralloctor renamed to trgobj * tregisteralloctor renamed to trgobj
* removed rgobj from a lot of units * removed rgobj from a lot of units