paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 13:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* interface trampolines (hopyfully) fixed

Browse Source
This commit is contained in:
florian 2004-03-22 22:19:02 +00:00
parent 16a2071987
commit 3ac0c812e0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/narmobj.pas
View File

@ -106,9 +106,6 @@ procedure tarmclassheader.cgintfwrapper(asmlist: TAAsmoutput; procdef: tprocdef;
{ call/jmp vmtoffs(%eax) ; method offs } { call/jmp vmtoffs(%eax) ; method offs }
reference_reset_base(href,NR_R12,procdef._class.vmtmethodoffset(procdef.extnumber)); reference_reset_base(href,NR_R12,procdef._class.vmtmethodoffset(procdef.extnumber));
cg.a_load_ref_reg(exprasmlist,OS_ADDR,OS_ADDR,href,NR_R12); cg.a_load_ref_reg(exprasmlist,OS_ADDR,OS_ADDR,href,NR_R12);
{ using a_call here causes an internalerror because pi_do_call
isn't set properly }
exprasmlist.concat(taicpu.op_reg_reg(A_MOV,NR_R14,NR_PC));
exprasmlist.concat(taicpu.op_reg_reg(A_MOV,NR_PC,NR_R12)); exprasmlist.concat(taicpu.op_reg_reg(A_MOV,NR_PC,NR_R12));
end; end;
@ -165,7 +162,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.1 2004-03-21 22:40:15 florian Revision 1.2 2004-03-22 22:19:02 florian
* interface trampolines (hopyfully) fixed
Revision 1.1 2004/03/21 22:40:15 florian
+ added interface support for the arm + added interface support for the arm
* added FPC_REQUIRES_PROPER_ALIGNMENT define for targets which require proper alignment * added FPC_REQUIRES_PROPER_ALIGNMENT define for targets which require proper alignment
} }