diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-06-21 15:49:07 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-06-21 15:49:07 +0200 |
| commit | 7237ccb621d58b2c86ef250f1c3e3ffd29260955 (patch) | |
| tree | e770b9a015468751e0b006496fa7518402c88c96 /ia32/Machregsaux.ml | |
| parent | 8f444dec7112e5b125bf3ead8481ae0f698bbb96 (diff) | |
| download | compcert-7237ccb621d58b2c86ef250f1c3e3ffd29260955.tar.gz compcert-7237ccb621d58b2c86ef250f1c3e3ffd29260955.zip | |
Remove code that will is deprecated in ocaml 4.03
Most of the code can be String.uppercase usages can either be
replaced by a more specialized version of coqstring_of_camlstring
(which is also slightly more effecient) or by specialized checks
that reject wrong code earlier.
Bug 19187
Diffstat (limited to 'ia32/Machregsaux.ml')
| -rw-r--r-- | ia32/Machregsaux.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ia32/Machregsaux.ml b/ia32/Machregsaux.ml index 3ec9596a..473e0602 100644 --- a/ia32/Machregsaux.ml +++ b/ia32/Machregsaux.ml @@ -22,12 +22,12 @@ let _ = (fun (s, r) -> Hashtbl.add register_names r (camlstring_of_coqstring s)) Machregs.register_names -let scratch_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_of_camlstring (String.uppercase s)) + Machregs.register_by_name (coqstring_uppercase_ascii_of_camlstring s) let can_reserve_register r = Conventions1.is_callee_save r |