Cosmetique dans div_float

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1989 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 1 insertions, 3 deletions

diff --git a/byterun/floats.c b/byterun/floats.c
index 75e46a375..63ef4e925 100644
--- a/byterun/floats.c
+++ b/byterun/floats.c
@@ -141,8 +141,7 @@ value mul_float(value f, value g)         /* ML */
 
 value div_float(value f, value g)         /* ML */
 {
-  double dg = Double_val(g);
-  return copy_double(Double_val(f) / dg);
+  return copy_double(Double_val(f) / Double_val(g));
 }
 
 value exp_float(value f)              /* ML */
@@ -165,7 +164,6 @@ value frexp_float(value f)              /* ML */
   int exponent;
   value res;
   value mantissa = copy_double(frexp (Double_val(f), &exponent));
-
   Begin_root(mantissa);
     res = alloc_tuple(2);
     Field(res, 0) = mantissa;