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

Avoid range/overflow error after commit #49290

Browse Source 
git-svn-id: trunk@49298 -
This commit is contained in:
pierre 2021-04-30 09:55:11 +00:00
parent c9b90ccde0
commit 5ef44c550a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aarch64/ncpumat.pas
View File

@ -337,8 +337,8 @@ implementation
else
begin
calc_divconst_magic_unsigned(resultdef.size * 8, tordconstnode(right).value, reciprocal, magic_add, shift);
cg.a_load_const_reg(current_asmdata.CurrAsmList, opsize, reciprocal, resultreg);
{ Add explicit typecast to tcgint type, to avoid range or overflow check }
cg.a_load_const_reg(current_asmdata.CurrAsmList, opsize, tcgint(reciprocal), resultreg);
{ UMULH is only available for the full 64-bit registers }
if opsize in [OS_64, OS_S64] then
begin