diff --git a/compiler/arm/narmcon.pas b/compiler/arm/narmcon.pas index e87a38b639..dfdba724df 100644 --- a/compiler/arm/narmcon.pas +++ b/compiler/arm/narmcon.pas @@ -108,10 +108,6 @@ interface aitrealconst_s32bit : begin current_procinfo.aktlocaldata.concat(tai_realconst.create_s32real(ts32real(value_real))); - { range checking? } - if floating_point_range_check_error and - (tai_realconst(current_procinfo.aktlocaldata.last).value.s32val=MathInf.Value) then - Message(parser_e_range_check_error); end; aitrealconst_s64bit : @@ -120,31 +116,16 @@ interface current_procinfo.aktlocaldata.concat(tai_realconst.create_s64real_hiloswapped(ts64real(value_real))) else current_procinfo.aktlocaldata.concat(tai_realconst.create_s64real(ts64real(value_real))); - - { range checking? } - if floating_point_range_check_error and - (tai_realconst(current_procinfo.aktlocaldata.last).value.s64val=MathInf.Value) then - Message(parser_e_range_check_error); end; aitrealconst_s80bit : begin current_procinfo.aktlocaldata.concat(tai_realconst.create_s80real(value_real,tfloatdef(resultdef).size)); - - { range checking? } - if floating_point_range_check_error and - (tai_realconst(current_procinfo.aktlocaldata.last).value.s80val=MathInf.Value) then - Message(parser_e_range_check_error); end; {$ifdef cpufloat128} aitrealconst_s128bit : begin current_procinfo.aktlocaldata.concat(tai_realconst.create_s128real(value_real)); - - { range checking? } - if floating_point_range_check_error and - (tai_realconst(current_procinfo.aktlocaldata.last).value.s128val=MathInf.Value) then - Message(parser_e_range_check_error); end; {$endif cpufloat128}