mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-27 15:11:38 +01:00
* use float_raise instead of HandleError in fpc_exp_real.
git-svn-id: trunk@6036 -
This commit is contained in:
parent
458abdef3e
commit
fa5865845a
@ -776,9 +776,17 @@ invalid:
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
if d > o_threshold then
|
if d > o_threshold then
|
||||||
HandleError(205); { overflow }
|
begin
|
||||||
|
float_raise(float_flag_overflow); { overflow }
|
||||||
|
result:=huge*huge;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
if d < u_threshold then
|
if d < u_threshold then
|
||||||
HandleError(206); { underflow }
|
begin
|
||||||
|
float_raise(float_flag_underflow); { underflow }
|
||||||
|
result:=twom1000*twom1000;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ argument reduction }
|
{ argument reduction }
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user