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

* set result of exp() to 0 in case of underflow with masked exceptions

Browse Source 
(mantis #21265)

git-svn-id: trunk@20368 -
This commit is contained in:
Jonas Maebe 2012-02-17 13:07:50 +00:00
parent cd44c5f45c
commit e8dae4f30a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/genmath.inc
View File

@ -799,6 +799,7 @@ invalid:
end; end;
if d < u_threshold then begin if d < u_threshold then begin
float_raise(float_flag_underflow); { underflow } float_raise(float_flag_underflow); { underflow }
result:=0; { Result if underflow masked }
exit; exit;
end; end;
end; end;
@ -913,6 +914,7 @@ invalid:
if( d < MINLOG ) then if( d < MINLOG ) then
begin begin
float_raise(float_flag_underflow); float_raise(float_flag_underflow);
result:=0; { Result if underflow masked }
end end
else else
begin begin