diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-21 22:39:27 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-21 22:39:27 +0100 |
| commit | 23fa2a18e015b9d330ad6f1f08cf50adf90bd80b (patch) | |
| tree | e3e39eebc5164b967db9b16504bfe19edc4d2bdc /backend/Regalloc.ml | |
| parent | ab5528fb4caf637a0c7014d943302198079e7c20 (diff) | |
| download | compcert-kvx-23fa2a18e015b9d330ad6f1f08cf50adf90bd80b.tar.gz compcert-kvx-23fa2a18e015b9d330ad6f1f08cf50adf90bd80b.zip | |
try to be portable across archs
Diffstat (limited to 'backend/Regalloc.ml')
| -rw-r--r-- | backend/Regalloc.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Regalloc.ml b/backend/Regalloc.ml index 19aba4f6..7db8a866 100644 --- a/backend/Regalloc.ml +++ b/backend/Regalloc.ml @@ -1067,7 +1067,7 @@ let make_parmove srcs dsts itmp ftmp k = | Locations.S(sl, ofs, ty), R rd -> code := LTL.Lgetstack(sl, ofs, ty, rd) :: !code | Locations.S(sls, ofss, tys), Locations.S(sld, ofsd, tyd) -> - let tmp = temp_for (class_of_type tys) in + let tmp = temp_for (Machregsaux.class_of_type tys) in (* code will be reversed at the end *) code := LTL.Lsetstack(tmp, sld, ofsd, tyd) :: LTL.Lgetstack(sls, ofss, tys, tmp) :: !code |