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

* fix jump. tables for sparc64

Browse Source 
git-svn-id: trunk@36997 -
This commit is contained in:
florian 2017-08-20 20:35:08 +00:00
parent c8e448345a
commit 08fd0b1c5c
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/sparcgen/ncpuset.pas
View File

@ -109,11 +109,15 @@ unit ncpuset;
end;
current_asmdata.getjumplabel(table);
indexreg:=cg.getaddressregister(current_asmdata.CurrAsmList);
{$ifdef SPARC64}
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_SHL,OS_ADDR,3,hregister,indexreg);
{$else SPARC64}
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_SHL,OS_ADDR,2,hregister,indexreg);
{$endif SPARC64}
{ create reference }
current_asmdata.getjumplabel(base);
cg.a_label(current_asmdata.CurrAsmList,base);
reference_reset_symbol(href,table,(-aint(min_))*4,sizeof(pint),[]);
reference_reset_symbol(href,table,(-aint(min_))*sizeof(pint),sizeof(pint),[]);
href.relsymbol:=base;
{ Generate the following code:
.Lbase:
@ -133,6 +137,7 @@ unit ncpuset;
current_asmdata.CurrAsmList.concat(taicpu.op_ref_reg(A_SETHI,href,basereg));
href.refaddr:=addr_low;
current_asmdata.CurrAsmList.concat(taicpu.op_reg_ref_reg(A_OR,basereg,href,basereg));
{ add index }
cg.a_op_reg_reg_reg(current_asmdata.CurrAsmList,OP_ADD,OS_ADDR,basereg,indexreg,basereg);
@ -143,10 +148,13 @@ unit ncpuset;
href.index:=jmpreg;
href.refaddr:=addr_full;
current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_JMP,href));
{ Delay slot }
current_asmdata.CurrAsmList.concat(taicpu.op_none(A_NOP));
cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_O7);
{ generate jump table }
current_asmdata.CurrAsmList.Concat(tai_align.Create(sizeof(pint)));
cg.a_label(current_asmdata.CurrAsmList,table);
genitem(current_asmdata.CurrAsmList,hp);
end;