paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 16:50:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* experimental sparc interface wrapper patch

Browse Source 
git-svn-id: trunk@10991 -
This commit is contained in:
florian 2008-05-17 20:10:35 +00:00
parent cf220e1044
commit 77e5e0525c
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/sparc/cgcpu.pas
View File

@ -1343,20 +1343,20 @@ implementation
Internalerror(200006139);
{ mov 0(%rdi),%rax ; load vmt}
reference_reset_base(href,NR_O0,0);
cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_L0);
cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_G1);
{ jmp *vmtoffs(%eax) ; method offs }
reference_reset_base(href,NR_L0,procdef._class.vmtmethodoffset(procdef.extnumber));
list.concat(taicpu.op_ref_reg(A_LD,href,NR_L1));
list.concat(taicpu.op_reg(A_JMP,NR_L1));
reference_reset_base(href,NR_G1,procdef._class.vmtmethodoffset(procdef.extnumber));
list.concat(taicpu.op_ref_reg(A_LD,href,NR_G1));
list.concat(taicpu.op_reg(A_JMP,NR_G1));
end
else
begin
reference_reset_symbol(href,current_asmdata.RefAsmSymbol(procdef.mangledname),0);
href.refaddr := addr_hi;
list.concat(taicpu.op_ref_reg(A_SETHI,href,NR_L1));
href.refaddr := addr_lo;
list.concat(taicpu.op_reg_ref_reg(A_OR,NR_G0,href,NR_L1));
list.concat(taicpu.op_reg(A_JMP,NR_L1));
href.refaddr := addr_high;
list.concat(taicpu.op_ref_reg(A_SETHI,href,NR_G1));
href.refaddr := addr_low;
list.concat(taicpu.op_reg_ref_reg(A_OR,NR_G0,href,NR_G1));
list.concat(taicpu.op_reg(A_JMP,NR_G1));
end;
{ Delay slot }
list.Concat(TAiCpu.Op_none(A_NOP));