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

Use correct check for unsigned size in a_op64_{const/reg}_reg_reg_checkoverflow methods

Browse Source
This commit is contained in:
Pierre Muller 2024-04-03 23:41:50 +02:00
parent 8511b0fc7b
commit f56587bddd
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/sparc/cgcpu.pas
View File

@ -258,6 +258,7 @@ interface
procedure tcg64sparc.a_op64_const_reg_reg_checkoverflow(list: TAsmList;op:TOpCG;size : tcgsize;value : int64;regsrc,regdst : tregister64;setflags : boolean;var ovloc : tlocation);
var
op1,op2:TAsmOp;
fl:TSparcFlags;
begin
case op of
OP_NEG,
@ -277,7 +278,13 @@ interface
if setflags then
begin
ovloc.loc:=LOC_FLAGS;
ovloc.resflags.Init(NR_ICC,F_VS);
if size=OS_S64 then
fl:=F_VS
else if size=OS_64 then
fl:=F_B
else
internalerror(2024040301);
ovloc.resflags.Init(NR_ICC,fl);
end
else
ovloc.loc:=LOC_INVALID;
@ -287,6 +294,7 @@ interface
procedure tcg64sparc.a_op64_reg_reg_reg_checkoverflow(list: TAsmList;op:TOpCG;size : tcgsize;regsrc1,regsrc2,regdst : tregister64;setflags : boolean;var ovloc : tlocation);
var
op1,op2:TAsmOp;
fl:TSparcFlags;
begin
case op of
OP_NEG,
@ -302,7 +310,13 @@ interface
if setflags then
begin
ovloc.loc:=LOC_FLAGS;
ovloc.resflags.Init(NR_ICC,F_VS);
if size=OS_S64 then
fl:=F_VS
else if size=OS_64 then
fl:=F_B
else
internalerror(2024040301);
ovloc.resflags.Init(NR_ICC,fl);
end
else
ovloc.loc:=LOC_INVALID;