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

* fixed class cast errors in range checking code

Browse Source 
git-svn-id: trunk@12720 -
This commit is contained in:
Jonas Maebe 2009-02-08 13:07:12 +00:00
parent 7d459cf12a
commit e672ead77a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/narmcon.pas
View File

@ -80,7 +80,7 @@ interface
{ range checking? } { range checking? }
if ((cs_check_range in current_settings.localswitches) or if ((cs_check_range in current_settings.localswitches) or
(cs_check_overflow in current_settings.localswitches)) and (cs_check_overflow in current_settings.localswitches)) and
(tai_real_32bit(current_asmdata.asmlists[al_typedconsts].last).value=MathInf.Value) then (tai_real_32bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then
Message(parser_e_range_check_error); Message(parser_e_range_check_error);
end; end;
@ -94,7 +94,7 @@ interface
{ range checking? } { range checking? }
if ((cs_check_range in current_settings.localswitches) or if ((cs_check_range in current_settings.localswitches) or
(cs_check_overflow in current_settings.localswitches)) and (cs_check_overflow in current_settings.localswitches)) and
(tai_real_64bit(current_asmdata.asmlists[al_typedconsts].last).value=MathInf.Value) then (tai_real_64bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then
Message(parser_e_range_check_error); Message(parser_e_range_check_error);
end; end;
@ -105,7 +105,7 @@ interface
{ range checking? } { range checking? }
if ((cs_check_range in current_settings.localswitches) or if ((cs_check_range in current_settings.localswitches) or
(cs_check_overflow in current_settings.localswitches)) and (cs_check_overflow in current_settings.localswitches)) and
(tai_real_80bit(current_asmdata.asmlists[al_typedconsts].last).value=MathInf.Value) then (tai_real_80bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then
Message(parser_e_range_check_error); Message(parser_e_range_check_error);
end; end;
{$ifdef cpufloat128} {$ifdef cpufloat128}
@ -116,7 +116,7 @@ interface
{ range checking? } { range checking? }
if ((cs_check_range in current_settings.localswitches) or if ((cs_check_range in current_settings.localswitches) or
(cs_check_overflow in current_settings.localswitches)) and (cs_check_overflow in current_settings.localswitches)) and
(tai_real_128bit(current_asmdata.asmlists[al_typedconsts].last).value=MathInf.Value) then (tai_real_128bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then
Message(parser_e_range_check_error); Message(parser_e_range_check_error);
end; end;
{$endif cpufloat128} {$endif cpufloat128}