* use float_raise instead of HandleError in fpc_exp_real.

git-svn-id: trunk@6036 -
This commit is contained in:
yury 2007-01-18 00:20:29 +00:00
parent 458abdef3e
commit fa5865845a

View File

@ -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 }