Jelajahi Sumber

* use float_raise instead of HandleError in fpc_exp_real.

git-svn-id: trunk@6036 -
yury 18 tahun lalu
induk
melakukan
fa5865845a
1 mengubah file dengan 10 tambahan dan 2 penghapusan
  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 }