paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 14:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed jump table for sparc

Browse Source
This commit is contained in:
florian 2004-10-31 14:24:47 +00:00
parent c8d7f6be2b
commit a684d2669d
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/sparc/ncpuset.pas
View File

@ -110,7 +110,12 @@ unit ncpuset;
cg.a_loadaddr_ref_reg(exprasmlist,href,basereg);
jmpreg:=cg.getaddressregister(exprasmlist);
cg.a_op_reg_reg_reg(exprasmlist,OP_ADD,OS_ADDR,indexreg,basereg,jmpreg);
reference_reset(href);
href.index:=indexreg;
href.base:=basereg;
cg.a_load_ref_reg(exprasmlist,OS_ADDR,OS_ADDR,href,jmpreg);
exprasmlist.concat(taicpu.op_reg(A_JMP,jmpreg));
{ Delay slot }
exprasmlist.concat(taicpu.op_none(A_NOP));
@ -129,7 +134,10 @@ begin
end.
{
$Log$
Revision 1.2 2004-10-30 22:01:11 florian
Revision 1.3 2004-10-31 14:24:47 florian
* fixed jump table for sparc
Revision 1.2 2004/10/30 22:01:11 florian
* jmp table code generation for case statement on sparc
Revision 1.1 2004/10/30 17:50:53 florian