Rectif de float_needs
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@608 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
b79f609a22
commit
8edc1e2149
|
@ -169,9 +169,7 @@ let rec float_needs = function
|
||||||
Cop((Caddf | Csubf | Cmulf | Cdivf), [arg1; arg2]) ->
|
Cop((Caddf | Csubf | Cmulf | Cdivf), [arg1; arg2]) ->
|
||||||
let n1 = float_needs arg1 in
|
let n1 = float_needs arg1 in
|
||||||
let n2 = float_needs arg2 in
|
let n2 = float_needs arg2 in
|
||||||
if n1 = n2 then 1 + n1 else max n1 n2
|
if n1 = n2 then 1 + n1 else if n1 > n2 then n1 else n2
|
||||||
| Cop(Cfloatofint, [arg]) ->
|
|
||||||
float_needs arg
|
|
||||||
| _ ->
|
| _ ->
|
||||||
1
|
1
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue