From 88d88de52edb3a2652a83e6e2bcfa422dddfa0bf Mon Sep 17 00:00:00 2001 From: pierre Date: Fri, 30 Apr 2021 09:55:11 +0000 Subject: Avoid range/overflow error after commit #49290 git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49298 3ad0048d-3df7-0310-abae-a5850022a9f2 --- compiler/aarch64/ncpumat.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/aarch64/ncpumat.pas b/compiler/aarch64/ncpumat.pas index 6395a7f009..e2c22435c7 100644 --- a/compiler/aarch64/ncpumat.pas +++ b/compiler/aarch64/ncpumat.pas @@ -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 -- cgit v1.2.1