diff options
Diffstat (limited to 'kvx/Machregsaux.ml')
| -rw-r--r-- | kvx/Machregsaux.ml | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/kvx/Machregsaux.ml b/kvx/Machregsaux.ml index 76956959..e3b18181 100644 --- a/kvx/Machregsaux.ml +++ b/kvx/Machregsaux.ml @@ -27,14 +27,6 @@ let _ = let is_scratch_register r = false -let name_of_register r = - try Some (Hashtbl.find register_names r) with Not_found -> None - -let register_by_name s = - Machregs.register_by_name (coqstring_uppercase_ascii_of_camlstring s) - -let can_reserve_register r = Conventions1.is_callee_save r - let class_of_type = function | AST.Tint | AST.Tlong | AST.Tfloat | AST.Tsingle -> 0 |