paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 00:07:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

Avoid range check error when compiled with -CR

Browse Source 
git-svn-id: trunk@40000 -
This commit is contained in:
pierre 2018-10-20 18:49:53 +00:00
parent 3715dbdf41
commit 0bcf9a51d9
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/m68k/cgcpu.pas
View File

@ -2549,7 +2549,7 @@ unit cgcpu;
cg.a_load_const_reg(list,OS_S32,longint(highvalue),hreg);
{ don't use cg.a_op_const_reg() here, because a possible optimized
ADDQ/SUBQ wouldn't set the eXtend bit }
list.concat(taicpu.op_const_reg(opcode,S_L,lowvalue,regdst.reglo));
list.concat(taicpu.op_const_reg(opcode,S_L,longint(lowvalue),regdst.reglo));
list.concat(taicpu.op_reg_reg(xopcode,S_L,hreg,regdst.reghi));
end;
OP_AND,OP_OR,OP_XOR: