diff options
Diffstat (limited to 'x86/Machregsaux.ml')
| -rw-r--r-- | x86/Machregsaux.ml | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/x86/Machregsaux.ml b/x86/Machregsaux.ml index 80066b00..84a6c299 100644 --- a/x86/Machregsaux.ml +++ b/x86/Machregsaux.ml @@ -14,23 +14,8 @@ open Camlcoq open Machregs - -let register_names : (mreg, string) Hashtbl.t = Hashtbl.create 31 - -let _ = - List.iter - (fun (s, r) -> Hashtbl.add register_names r (camlstring_of_coqstring s)) - Machregs.register_names 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 -> 0 |