aboutsummaryrefslogtreecommitdiffstats
path: root/backend/IRC.ml
diff options
context:
space:
mode:
Diffstat (limited to 'backend/IRC.ml')
-rw-r--r--backend/IRC.ml6
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