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

Disable overflow for UDIVX ans SDIVX 64-bit instructions

Browse Source 
git-svn-id: trunk@39731 -
This commit is contained in:
pierre 2018-09-11 08:00:54 +00:00
parent cb8f6f637c
commit d46536817c
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/sparcgen/ncpumat.pas
View File

@ -94,6 +94,7 @@ implementation
resultreg : tregister;
overflowlabel : tasmlabel;
ai : taicpu;
no_overflow : boolean;
begin
secondpass(left);
secondpass(right);
@ -140,6 +141,14 @@ implementation
op := divops[true, is_signed(right.resultdef),
cs_check_overflow in current_settings.localswitches];
if op=A_NOP then
{ current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('Wrong code generated here'))); }
begin
no_overflow:=true;
op:=divops[true,is_signed(right.resultdef),false];
end
else
no_overflow:=false;
if (divider<>NR_NO) then
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(op,numerator,divider,resultreg))
else
@ -147,12 +156,16 @@ implementation
if (nodetype = modn) then
begin
current_asmdata.getjumplabel(overflowlabel);
ai:=taicpu.op_cond_sym(A_Bxx,C_VS,overflowlabel);
ai.delayslot_annulled:=true;
current_asmdata.CurrAsmList.concat(ai);
if not no_overflow then
begin
current_asmdata.getjumplabel(overflowlabel);
ai:=taicpu.op_cond_sym(A_Bxx,C_VS,overflowlabel);
ai.delayslot_annulled:=true;
current_asmdata.CurrAsmList.concat(ai);
end;
current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_NOT,resultreg));
cg.a_label(current_asmdata.CurrAsmList,overflowlabel);
if not no_overflow then
cg.a_label(current_asmdata.CurrAsmList,overflowlabel);
if (divider<>NR_NO) then
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(A_MULX,resultreg,divider,resultreg))
else