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

- method CheckNonCommutativeOpcode removed as not used

Browse Source
This commit is contained in:
mazen 2003-05-07 11:28:26 +00:00
parent e94e497653
commit 60e724a520
1 changed files with 29 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
compiler/sparc/aasmcpu.pas
View File

@ -63,7 +63,6 @@ type
constructor op_caddr_reg(op:TAsmOp;rgb:TRegister;cnst:Integer;reg:TRegister); constructor op_caddr_reg(op:TAsmOp;rgb:TRegister;cnst:Integer;reg:TRegister);
constructor op_raddr_reg(op:TAsmOp;rg1,rg2:TRegister;reg:TRegister); constructor op_raddr_reg(op:TAsmOp;rg1,rg2:TRegister;reg:TRegister);
procedure changeopsize(siz:topsize); procedure changeopsize(siz:topsize);
procedure CheckNonCommutativeOpcodes;
procedure loadcaddr(opidx:longint;aReg:TRegister;cnst:Integer); procedure loadcaddr(opidx:longint;aReg:TRegister;cnst:Integer);
procedure loadraddr(opidx:longint;rg1,rg2:TRegister); procedure loadraddr(opidx:longint;rg1,rg2:TRegister);
private private
@ -310,43 +309,6 @@ procedure taicpu.Swatoperands;
{ This check must be done with the operand in ATT order { This check must be done with the operand in ATT order
i.e.after swapping in the intel reader i.e.after swapping in the intel reader
but before swapping in the NASM and TASM writers PM } but before swapping in the NASM and TASM writers PM }
procedure taicpu.CheckNonCommutativeOpcodes;
begin
{ if ((ops=2) and
(oper[0].typ=top_reg) and
(oper[1].typ=top_reg) and
(oper[0].reg IN [R_F0..RF31])) or
(ops=0) then
if opcode=A_FSUBR then
opcode:=A_FSUB
else if opcode=A_FSUB then
opcode:=A_FSUBR
else if opcode=A_FDIVR then
opcode:=A_FDIV
else if opcode=A_FDIV then
opcode:=A_FDIVR
else if opcode=A_FSUBRP then
opcode:=A_FSUBP
else if opcode=A_FSUBP then
opcode:=A_FSUBRP
else if opcode=A_FDIVRP then
opcode:=A_FDIVP
else if opcode=A_FDIVP then
opcode:=A_FDIVRP;
if ((ops=1) and
(oper[0].typ=top_reg) and
(oper[0].reg in [R_ST1..R_ST7])) then
if opcode=A_FSUBRP then
opcode:=A_FSUBP
else if opcode=A_FSUBP then
opcode:=A_FSUBRP
else if opcode=A_FDIVRP then
opcode:=A_FDIVP
else if opcode=A_FDIVP then
opcode:=A_FDIVRP;}
end;
{***************************************************************************** {*****************************************************************************
Assembler Assembler
*****************************************************************************} *****************************************************************************}
@ -698,7 +660,10 @@ procedure InitAsm;
end. end.
{ {
$Log$ $Log$
Revision 1.23 2003-05-06 20:27:43 mazen Revision 1.24 2003-05-07 11:28:26 mazen
- method CheckNonCommutativeOpcode removed as not used
Revision 1.23 2003/05/06 20:27:43 mazen
* A_BI changed to A_BL * A_BI changed to A_BL
Revision 1.22 2003/05/06 15:00:36 mazen Revision 1.22 2003/05/06 15:00:36 mazen