From 7237ccb621d58b2c86ef250f1c3e3ffd29260955 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Tue, 21 Jun 2016 15:49:07 +0200 Subject: 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 --- cparser/ExtendedAsm.ml | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'cparser/ExtendedAsm.ml') diff --git a/cparser/ExtendedAsm.ml b/cparser/ExtendedAsm.ml index c3d80272..fc228aca 100644 --- a/cparser/ExtendedAsm.ml +++ b/cparser/ExtendedAsm.ml @@ -159,10 +159,9 @@ let transf_outputs loc env = function let check_clobbers loc clob = List.iter (fun c -> - let c' = String.uppercase c in - if Machregsaux.register_by_name c' <> None - || List.mem c' Machregsaux.scratch_register_names - || c' = "MEMORY" || c' = "CC" + if Machregsaux.register_by_name c <> None + || Machregsaux.is_scratch_register c + || c = "memory" || c = "cc" (* GCC does not accept MEMORY or CC *) then () else error "%aError: unrecognized asm register clobber '%s'" formatloc loc c) -- cgit