Rectif de float_needs

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@608 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1996-01-09 20:45:09 +00:00 · 1996-01-09 20:45:09 +00:00 · 8edc1e2149
parent b79f609a22
commit 8edc1e2149
1 changed files with 1 additions and 3 deletions
--- a/asmcomp/proc_i386.ml
+++ b/asmcomp/proc_i386.ml
@ -169,9 +169,7 @@ let rec float_needs = function
    Cop((Caddf | Csubf | Cmulf | Cdivf), [arg1; arg2]) ->
      let n1 = float_needs arg1 in
      let n2 = float_needs arg2 in
-      if n1 = n2 then 1 + n1 else max n1 n2
-  | Cop(Cfloatofint, [arg]) ->
-      float_needs arg
+      if n1 = n2 then 1 + n1 else if n1 > n2 then n1 else n2
  | _ ->
      1