mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 17:49:27 +02: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;
|
||||
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
|
||||
HandleError(206); { underflow }
|
||||
begin
|
||||
float_raise(float_flag_underflow); { underflow }
|
||||
result:=twom1000*twom1000;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ argument reduction }
|
||||
|
Loading…
Reference in New Issue
Block a user