diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/latex.ml | 2 | ||||
| -rw-r--r-- | src/ocaml_backend.ml | 2 | ||||
| -rw-r--r-- | src/pretty_print_lem.ml | 2 | ||||
| -rw-r--r-- | src/process_file.ml | 4 | ||||
| -rw-r--r-- | src/rewrites.ml | 2 |
5 files changed, 6 insertions, 6 deletions
diff --git a/src/latex.ml b/src/latex.ml index 0520d074..39db43db 100644 --- a/src/latex.ml +++ b/src/latex.ml @@ -126,7 +126,7 @@ let rec latex_command ?prefix:(prefix="") ?label:(label=None) dir cmd no_loc ((l | Some l -> Printf.sprintf "\\label{%s}" l in let cmd = !opt_prefix_latex ^ prefix ^ cmd in - let lcmd = String.lowercase cmd in (* lowercase to avoid file names differing only by case *) + let lcmd = String.lowercase_ascii cmd in (* lowercase to avoid file names differing only by case *) if StringSet.mem lcmd !commands then latex_command ~label:label dir (cmd ^ "v") no_loc annot else diff --git a/src/ocaml_backend.ml b/src/ocaml_backend.ml index 0ed60e10..479fc821 100644 --- a/src/ocaml_backend.ml +++ b/src/ocaml_backend.ml @@ -678,7 +678,7 @@ let ocaml_main spec sail_dir = with | End_of_file -> close_in chan; lines := List.rev !lines end; - (("open " ^ String.capitalize spec ^ ";;\n\n") :: !lines + (("open " ^ String.capitalize_ascii spec ^ ";;\n\n") :: !lines @ [ " zinitializze_registers ();"; if !opt_trace_ocaml then " Sail_lib.opt_trace := true;" else " ();"; " Printexc.record_backtrace true;"; diff --git a/src/pretty_print_lem.ml b/src/pretty_print_lem.ml index 578a770a..d7f403a4 100644 --- a/src/pretty_print_lem.ml +++ b/src/pretty_print_lem.ml @@ -130,7 +130,7 @@ let doc_id_lem_ctor (Id_aux(i,_)) = | Id("nat") -> string "integer" | Id("Some") -> string "Just" | Id("None") -> string "Nothing" - | Id i -> string (fix_id false (String.capitalize i)) + | Id i -> string (fix_id false (String.capitalize_ascii i)) | DeIid x -> string (Util.zencode_string ("op " ^ x)) let deinfix = function diff --git a/src/process_file.ml b/src/process_file.ml index 096c4151..f3fe2dfa 100644 --- a/src/process_file.ml +++ b/src/process_file.ml @@ -288,14 +288,14 @@ let output_lem filename libs defs = operators_module ] @ monad_modules in - let isa_thy_name = String.capitalize filename ^ "_lemmas" in + let isa_thy_name = String.capitalize_ascii filename ^ "_lemmas" in let isa_lemmas = separate hardline [ string ("theory " ^ isa_thy_name); string " imports"; string " Sail.Sail2_values_lemmas"; string " Sail.Sail2_state_lemmas"; - string (" " ^ String.capitalize filename); + string (" " ^ String.capitalize_ascii filename); string "begin"; string ""; State.generate_isa_lemmas !Pretty_print_lem.opt_mwords defs; diff --git a/src/rewrites.ml b/src/rewrites.ml index e8b85ba5..f02943a5 100644 --- a/src/rewrites.ml +++ b/src/rewrites.ml @@ -172,7 +172,7 @@ let vector_string_to_bit_list l lit = | _ -> raise (Reporting_basic.err_unreachable l __POS__ "hexchar_to_binlist given unrecognized character") in let s_bin = match lit with - | L_hex s_hex -> List.flatten (List.map hexchar_to_binlist (explode (String.uppercase s_hex))) + | L_hex s_hex -> List.flatten (List.map hexchar_to_binlist (explode (String.uppercase_ascii s_hex))) | L_bin s_bin -> explode s_bin | _ -> raise (Reporting_basic.err_unreachable l __POS__ "s_bin given non vector literal") in |