diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2020-04-29 15:12:54 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2020-06-28 10:07:02 +0200 |
| commit | ad2ea9c2e701dd82c26e6cd3e8a777be9bdef2a2 (patch) | |
| tree | 128b7e26ed98c6035331adfd880103e89e25200b /x86 | |
| parent | faa1d7fbfd7c9d5aa333d9b353a6118e105c4428 (diff) | |
| download | compcert-kvx-ad2ea9c2e701dd82c26e6cd3e8a777be9bdef2a2.tar.gz compcert-kvx-ad2ea9c2e701dd82c26e6cd3e8a777be9bdef2a2.zip | |
Move shared code in new file.
The name_of_register and register_of_name function are shared between
all architectures and can be moved in a common file.
Diffstat (limited to 'x86')
| -rw-r--r-- | x86/Machregsaux.ml | 16 | ||||
| -rw-r--r-- | x86/Machregsaux.mli | 2 |
2 files changed, 0 insertions, 18 deletions
diff --git a/x86/Machregsaux.ml b/x86/Machregsaux.ml index a273bb51..a48749a5 100644 --- a/x86/Machregsaux.ml +++ b/x86/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) diff --git a/x86/Machregsaux.mli b/x86/Machregsaux.mli index 884100bb..f3d52849 100644 --- a/x86/Machregsaux.mli +++ b/x86/Machregsaux.mli @@ -12,6 +12,4 @@ (** Auxiliary functions on machine registers *) -val name_of_register: Machregs.mreg -> string option -val register_by_name: string -> Machregs.mreg option val is_scratch_register: string -> bool |