paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: added a simple unaryminusnode which can utilize FNEG instruction for floats on 68881

Browse Source 
git-svn-id: trunk@30044 -
This commit is contained in:
Károly Balogh 2015-03-01 15:00:07 +00:00
parent 36086cc183
commit 997ec578e0
2 changed files with 46 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/m68k/aasmcpu.pas
View File

@ -496,7 +496,7 @@ type
// FPU opcodes
A_FSXX, A_FSEQ, A_FSNE, A_FSLT, A_FSLE, A_FSGT, A_FSGE:
result:=operand_write;
A_FABS,A_FSQRT:
A_FABS,A_FSQRT,A_FNEG:
if ops = 1 then
begin
if opnr = 0 then
@ -511,7 +511,7 @@ type
A_FADD, A_FSUB, A_FMUL, A_FDIV:
if opnr=1 then
result:=operand_readwrite;
A_FCMP:
A_FCMP, A_FTST:
begin end; { operand_read }
else begin

45
compiler/m68k/n68kmat.pas
View File

@ -42,6 +42,10 @@ interface
procedure emit_mod_reg_reg(signed: boolean;denum,num : tregister);override;
end;
tm68kunaryminusnode = class(tcgunaryminusnode)
procedure second_float;override;
end;
tm68kshlshrnode = class(tshlshrnode)
procedure pass_generate_code;override;
{ everything will be handled in pass_2 }
@ -172,6 +176,44 @@ implementation
end;
{*****************************************************************************
TM68KUNARYMINUSNODE
*****************************************************************************}
procedure tm68kunaryminusnode.second_float;
var
href: treference;
begin
secondpass(left);
location_reset(location,LOC_FPUREGISTER,def_cgsize(resultdef));
current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('unaryminus second_float called!')));
case left.location.loc of
LOC_REFERENCE,
LOC_CREFERENCE :
begin
location.register:=cg.getfpuregister(current_asmdata.CurrAsmList,location.size);
href:=left.location.reference;
tcg68k(cg).fixref(current_asmdata.CurrAsmList,href);
current_asmdata.CurrAsmList.concat(taicpu.op_ref_reg(A_FNEG,tcgsize2opsize[left.location.size],href,location.register));
end;
LOC_FPUREGISTER:
begin
location.register:=left.location.register;
current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_FNEG,S_FX,location.register));
end;
LOC_CFPUREGISTER:
begin
location.register:=cg.getfpuregister(current_asmdata.CurrAsmList,location.size);
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_FNEG,S_FX,left.location.register,location.register));
end;
else
internalerror(200306021);
end;
end;
{*****************************************************************************
TM68KSHLRSHRNODE
*****************************************************************************}
@ -207,7 +249,7 @@ implementation
hreg64lo:=left.location.register64.reglo;
shiftval := tordconstnode(right).value.svalue;
shiftval := shiftval and 63;
shiftval := shiftval and 63;
if shiftval > 31 then
begin
if nodetype = shln then
@ -284,5 +326,6 @@ implementation
begin
cnotnode:=tm68knotnode;
cmoddivnode:=tm68kmoddivnode;
cunaryminusnode:=tm68kunaryminusnode;
cshlshrnode:=tm68kshlshrnode;
end.