Browse Source

* use float_raise instead of HandleError in fpc_exp_real.

git-svn-id: trunk@6036 -
yury 18 năm trước cách đây
mục cha
commit
fa5865845a
1 tập tin đã thay đổi với 10 bổ sung2 xóa
  1. 10 2
      rtl/inc/genmath.inc

+ 10 - 2
rtl/inc/genmath.inc

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