diff options
Diffstat (limited to 'x86/Machregsaux.ml')
| -rw-r--r-- | x86/Machregsaux.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/x86/Machregsaux.ml b/x86/Machregsaux.ml index a48749a5..84a6c299 100644 --- a/x86/Machregsaux.ml +++ b/x86/Machregsaux.ml @@ -12,4 +12,12 @@ (** Auxiliary functions on machine registers *) +open Camlcoq +open Machregs + let is_scratch_register r = false + +let class_of_type = function + | AST.Tint | AST.Tlong -> 0 + | AST.Tfloat | AST.Tsingle -> 1 + | AST.Tany32 | AST.Tany64 -> assert false |