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

* ARM: Test if range check of floating point constants is necessary in the same way as on other targets. This should have been part of r10940 6 years ago...

Browse Source 
git-svn-id: trunk@27630 -
This commit is contained in:
sergei 2014-04-22 06:51:54 +00:00
parent 313240b9e8
commit 196436b7e7
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/arm/narmcon.pas
View File

@ -77,8 +77,7 @@ interface
begin
current_procinfo.aktlocaldata.concat(Tai_real_32bit.Create(ts32real(value_real)));
{ range checking? }
if ((cs_check_range in current_settings.localswitches) or
(cs_check_overflow in current_settings.localswitches)) and
if floating_point_range_check_error and
(tai_real_32bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then
Message(parser_e_range_check_error);
end;
@ -91,8 +90,7 @@ interface
current_procinfo.aktlocaldata.concat(Tai_real_64bit.Create(ts64real(value_real)));
{ range checking? }
if ((cs_check_range in current_settings.localswitches) or
(cs_check_overflow in current_settings.localswitches)) and
if floating_point_range_check_error and
(tai_real_64bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then
Message(parser_e_range_check_error);
end;
@ -102,8 +100,7 @@ interface
current_procinfo.aktlocaldata.concat(Tai_real_80bit.Create(value_real,tfloatdef(resultdef).size));
{ range checking? }
if ((cs_check_range in current_settings.localswitches) or
(cs_check_overflow in current_settings.localswitches)) and
if floating_point_range_check_error and
(tai_real_80bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then
Message(parser_e_range_check_error);
end;
@ -113,8 +110,7 @@ interface
current_procinfo.aktlocaldata.concat(Tai_real_128bit.Create(value_real));
{ range checking? }
if ((cs_check_range in current_settings.localswitches) or
(cs_check_overflow in current_settings.localswitches)) and
if floating_point_range_check_error and
(tai_real_128bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then
Message(parser_e_range_check_error);
end;