paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 04:58:48 +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;
begin
{ mov offset(%esp),%eax }
reference_reset_base(href,NR_ESP,getselfoffsetfromsp(procdef)+offs);
cg.a_load_ref_reg(exprasmlist,OS_ADDR,OS_ADDR,href,NR_EAX);
if (procdef.proccalloption<>pocall_register) then
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;
procedure loadvmttoeax;
@ -186,7 +189,8 @@ begin
adjustselfvalue(procdef,-ioffset);
end
{ 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
emit_reg(A_PUSH,S_L,NR_EBX); { allocate space for address}
emit_reg(A_PUSH,S_L,NR_EAX);
@ -223,7 +227,10 @@ initialization
end.
{
$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
* tregisteralloctor renamed to trgobj
* removed rgobj from a lot of units