diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-03-31 10:56:42 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-03-31 10:56:42 +0200 |
| commit | 8b0d5a0d291c66f05869c15f92539bd1d7082d3a (patch) | |
| tree | 37f92cddae9cfa155d10d6f41edf8c1f9f8ba0a0 /backend/Regalloc.ml | |
| parent | ccd59f7fc19ffe2347724b532d6ce13c8580c2ab (diff) | |
| download | compcert-kvx-8b0d5a0d291c66f05869c15f92539bd1d7082d3a.tar.gz compcert-kvx-8b0d5a0d291c66f05869c15f92539bd1d7082d3a.zip | |
Compatibility with newer ocaml versions. Bug 18313.
Diffstat (limited to 'backend/Regalloc.ml')
| -rw-r--r-- | backend/Regalloc.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Regalloc.ml b/backend/Regalloc.ml index e531a34a..3432b79d 100644 --- a/backend/Regalloc.ml +++ b/backend/Regalloc.ml @@ -1123,7 +1123,7 @@ and success f alloc = end; f' -open Errors +open !Errors let regalloc f = init_trace(); @@ -1131,7 +1131,7 @@ let regalloc f = let f1 = Splitting.rename_function f in match RTLtyping.type_function f1 with | Error msg -> - Error(MSG (coqstring_of_camlstring "RTL code after splitting is ill-typed:") :: msg) + Errors.Error(MSG (coqstring_of_camlstring "RTL code after splitting is ill-typed:") :: msg) | OK tyenv -> let f2 = function_of_RTL_function f1 tyenv in let liveness = liveness_analysis f2 in |