diff options
Diffstat (limited to 'riscV/Machregsaux.ml')
-rw-r--r-- | riscV/Machregsaux.ml | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/riscV/Machregsaux.ml b/riscV/Machregsaux.ml index a273bb51..a48749a5 100644 --- a/riscV/Machregsaux.ml +++ b/riscV/Machregsaux.ml @@ -12,20 +12,4 @@ (** Auxiliary functions on machine registers *) -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 = - Hashtbl.find_opt register_names r - -let register_by_name s = - Machregs.register_by_name (coqstring_uppercase_ascii_of_camlstring s) |