Interdire les stack-to-stack moves.

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

asmcomp/proc_i386nt.ml

@@ -406,10 +406,6 @@ let reload_operation makereg round op arg res =
       if stackp arg.(0) & stackp arg.(1)
       then ([|arg.(0); makereg arg.(1)|], res)
       else (arg, res)
-  | Imove | Ireload | Ispill ->
-      (* Stack-to-stack moves are possible, but costly.
-         Don't support them on the first round. *)
-      if round <= 1 then raise Use_default else (arg, res)
   | Iintop(Ilsl|Ilsr|Iasr) | Iintop_imm(_, _) | Ifloatofint | Iintoffloat |
     Ispecific(Ipush) ->
       (* The argument(s) can be either in register or on stack *)