diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-20 17:01:25 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-20 17:01:25 +0100 |
| commit | ab5528fb4caf637a0c7014d943302198079e7c20 (patch) | |
| tree | 7d5d801f3386b1b54d385b14f24398e9351cf16c /backend/IRC.ml | |
| parent | cfed53ffe9ce572e3a4f54d30bcb97c2044bcb5b (diff) | |
| download | compcert-kvx-ab5528fb4caf637a0c7014d943302198079e7c20.tar.gz compcert-kvx-ab5528fb4caf637a0c7014d943302198079e7c20.zip | |
XLeroy's suggested fix for shared float/int register file.
Diffstat (limited to 'backend/IRC.ml')
| -rw-r--r-- | backend/IRC.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/backend/IRC.ml b/backend/IRC.ml index 43955897..c7b1bf04 100644 --- a/backend/IRC.ml +++ b/backend/IRC.ml @@ -239,11 +239,11 @@ type graph = { let class_of_type = function | Tint | Tlong -> 0 - | Tfloat | Tsingle -> 1 + | Tfloat | Tsingle -> 0 (* normal: 1 *) | Tany32 | Tany64 -> assert false -let class_of_reg r = - if Conventions1.is_float_reg r then 1 else 0 +let class_of_reg r = 0 + (* normal: if Conventions1.is_float_reg r then 1 else 0 *) let class_of_loc = function | R r -> class_of_reg r |