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

Merge commit 47798 to fixes branch

Browse Source 
------------------------------------------------------------------------
r47798 | pierre | 2020-12-16 23:16:37 +0000 (Wed, 16 Dec 2020) | 1 line

 Try to fix sparc32 code generation error for overflow test
------------------------------------------------------------------------
--- Merging r47798 into '.':
U    compiler/sparcgen/cgsparc.pas
--- Recording mergeinfo for merge of r47798 into '.':
 U   .

git-svn-id: branches/fixes_3_2@47825 -
This commit is contained in:
pierre 2020-12-20 22:04:33 +00:00
parent 918ca565f2
commit 8e9f91ee79
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/sparcgen/cgsparc.pas
View File

@ -795,7 +795,7 @@ implementation
tmpreg1:=GetIntRegister(list,OS_INT);
tmpreg2:=GetIntRegister(list,OS_INT);
list.concat(taicpu.op_reg_reg(A_MOV,NR_Y,tmpreg1));
list.concat(taicpu.op_reg_const_reg(A_SRL,dst,31,tmpreg2));
list.concat(taicpu.op_reg_const_reg(A_SRA,dst,31,tmpreg2));
list.concat(taicpu.op_reg_reg(A_CMP,tmpreg1,tmpreg2));
ovloc.loc:=LOC_FLAGS;
ovloc.resflags.Init(NR_ICC,F_NE);