diff options
Diffstat (limited to 'backend/IRC.ml')
| -rw-r--r-- | backend/IRC.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/backend/IRC.ml b/backend/IRC.ml index 6f4bbe29..d9e4651e 100644 --- a/backend/IRC.ml +++ b/backend/IRC.ml @@ -15,6 +15,7 @@ open Camlcoq open AST open Registers open Machregs +open Machregsaux open Locations open Conventions1 open XTL @@ -237,12 +238,6 @@ type graph = { according to their types. A variable can be forced into class 2 by giving it a negative spill cost. *) -let class_of_type = function - | Tint | Tlong -> 0 - | Tfloat | Tsingle -> 1 - | Tany32 -> 0 - | Tany64 -> if Archi.ptr64 then 0 else 1 - let class_of_reg r = if Conventions1.is_float_reg r then 1 else 0 |