diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2001-07-24 08:01:25 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2001-07-24 08:01:25 +0000 |
| commit | fd0cfdce5f189ff04d7a8213e19c15d1cd0118c2 (patch) | |
| tree | f773a7c880e64a1543a75e3c9ffdc34fd2df863c /asmcomp | |
| parent | 280231b664209aaeebb4caef8d35174e6371f5f3 (diff) | |
| download | ocaml-fd0cfdce5f189ff04d7a8213e19c15d1cd0118c2.tar.gz | |
Dans select_addressing, reconnaitre aussi les Caddi (produits par Cmmgen pour les acces aux chaines)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3593 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmcomp')
| -rw-r--r-- | asmcomp/alpha/selection.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/asmcomp/alpha/selection.ml b/asmcomp/alpha/selection.ml index 857b4c1567..6bea0f192f 100644 --- a/asmcomp/alpha/selection.ml +++ b/asmcomp/alpha/selection.ml @@ -31,11 +31,11 @@ method select_addressing = function this allows our scheduler to do a better job. *) Cconst_symbol s when digital_asm -> (Ibased(s, 0), Ctuple []) - | Cop(Cadda, [Cconst_symbol s; Cconst_int n]) when digital_asm -> + | Cop((Cadda | Caddi), [Cconst_symbol s; Cconst_int n]) when digital_asm -> (Ibased(s, n), Ctuple []) - | Cop(Cadda, [arg; Cconst_int n]) -> + | Cop((Cadda | Caddi), [arg; Cconst_int n]) -> (Iindexed n, arg) - | Cop(Cadda, [arg1; Cop(Caddi, [arg2; Cconst_int n])]) -> + | Cop((Cadda | Caddi), [arg1; Cop(Caddi, [arg2; Cconst_int n])]) -> (Iindexed n, Cop(Cadda, [arg1; arg2])) | arg -> (Iindexed 0, arg) |