diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-03 12:57:15 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-03 12:57:15 +0200 |
| commit | 2bf7b92601fd6f33f93609c85a79192f821e6637 (patch) | |
| tree | 0f6812b21fc3a3ca3d9221e599064c797652d338 | |
| parent | 7ae2140a2763f1e646630ceca27c2088aa31cf00 (diff) | |
| download | compcert-kvx-2bf7b92601fd6f33f93609c85a79192f821e6637.tar.gz compcert-kvx-2bf7b92601fd6f33f93609c85a79192f821e6637.zip | |
compatibility with OCaml 4.08
| -rw-r--r-- | mppa_k1c/InstructionScheduler.ml | 5 | ||||
| -rw-r--r-- | mppa_k1c/abstractbb/Impure/ocaml/ImpIOOracles.ml | 2 |
2 files changed, 3 insertions, 4 deletions
diff --git a/mppa_k1c/InstructionScheduler.ml b/mppa_k1c/InstructionScheduler.ml index e182804b..9d3503e2 100644 --- a/mppa_k1c/InstructionScheduler.ml +++ b/mppa_k1c/InstructionScheduler.ml @@ -307,9 +307,8 @@ let priority_list_scheduler (order : list_scheduler_order) let list_scheduler = priority_list_scheduler CRITICAL_PATH_ORDER;; -(* FIXME DUMMY CODE to placate warnings - *) -let _ = priority_list_scheduler INSTRUCTION_ORDER;; +(* dummy code for placating ocaml's warnings *) +let _ = fun x -> priority_list_scheduler INSTRUCTION_ORDER x;; type bundle = int list;; diff --git a/mppa_k1c/abstractbb/Impure/ocaml/ImpIOOracles.ml b/mppa_k1c/abstractbb/Impure/ocaml/ImpIOOracles.ml index 33c3c842..9e63c12d 100644 --- a/mppa_k1c/abstractbb/Impure/ocaml/ImpIOOracles.ml +++ b/mppa_k1c/abstractbb/Impure/ocaml/ImpIOOracles.ml @@ -74,7 +74,7 @@ let println: pstring -> unit = fun l -> print l; print_newline() let read_line () = - CamlStr (Pervasives.read_line());; + CamlStr (Stdlib.read_line());; exception ImpureFail of pstring;; |