Selaa lähdekoodia

* use float_raise instead of HandleError in fpc_exp_real.

git-svn-id: trunk@6036 -
yury 18 vuotta sitten
vanhempi
commit
fa5865845a
1 muutettua tiedostoa jossa 10 lisäystä ja 2 poistoa
  1. 10 2
      rtl/inc/genmath.inc

+ 10 - 2
rtl/inc/genmath.inc

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