diff options
Diffstat (limited to 'aarch64/Machregsaux.ml')
| -rw-r--r-- | aarch64/Machregsaux.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/aarch64/Machregsaux.ml b/aarch64/Machregsaux.ml index 5f3c1a8d..98e461eb 100644 --- a/aarch64/Machregsaux.ml +++ b/aarch64/Machregsaux.ml @@ -14,3 +14,11 @@ let is_scratch_register s = s = "X16" || s = "x16" || s = "X30" || s = "x30" + +let class_of_type = function + | AST.Tint | AST.Tlong -> 0 + | AST.Tfloat | AST.Tsingle -> 1 + | AST.Tany32 | AST.Tany64 -> assert false + +(* number of available registers per class *) +let nr_regs = [| 29; 32 |] |