paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 17:19:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed float_error() to call HandleError instead of RunError so that they are properly converted to exceptions

Browse Source 
git-svn-id: trunk@6032 -
This commit is contained in:
tom_at_work 2007-01-17 22:08:36 +00:00
parent 42cf5f7b2b
commit 67e6d8d2da
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/genmath.inc
View File

@ -102,19 +102,19 @@ procedure float_raise(i: shortint);
Begin
softfloat_exception_flags := softfloat_exception_flags or i;
if ((softfloat_exception_flags and not(softfloat_exception_mask)) and float_flag_invalid) <> 0 then
RunError(207)
HandleError(207)
else
if ((softfloat_exception_flags and not(softfloat_exception_mask)) and float_flag_divbyzero) <> 0 then
RunError(200)
HandleError(200)
else
if ((softfloat_exception_flags and not(softfloat_exception_mask)) and float_flag_overflow) <> 0 then
RunError(205)
HandleError(205)
else
if ((softfloat_exception_flags and not(softfloat_exception_mask)) and float_flag_underflow) <> 0 then
RunError(206)
HandleError(206)
else
if ((softfloat_exception_flags and not(softfloat_exception_mask)) and float_flag_inexact) <> 0 then
RunError(207);
HandleError(207);
end;