git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1773 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1997-11-17 14:21:05 +00:00
parent f9d6235c66
commit 86cd1df7ba
1 changed files with 1 additions and 1 deletions

View File

@ -140,7 +140,7 @@ method select_store addr exp =
Cconst_int n -> (Ispecific(Istore_int(n, addr)), Ctuple []) Cconst_int n -> (Ispecific(Istore_int(n, addr)), Ctuple [])
| Cconst_pointer n -> (Ispecific(Istore_int(n, addr)), Ctuple []) | Cconst_pointer n -> (Ispecific(Istore_int(n, addr)), Ctuple [])
| Cconst_symbol s -> (Ispecific(Istore_symbol(s, addr)), Ctuple []) | Cconst_symbol s -> (Ispecific(Istore_symbol(s, addr)), Ctuple [])
| _ -> raise Use_default | _ -> super#select_store addr exp
(* Deal with register constraints *) (* Deal with register constraints *)