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 /mppa_k1c/InstructionScheduler.ml | |
parent | 7ae2140a2763f1e646630ceca27c2088aa31cf00 (diff) | |
download | compcert-kvx-2bf7b92601fd6f33f93609c85a79192f821e6637.tar.gz compcert-kvx-2bf7b92601fd6f33f93609c85a79192f821e6637.zip |
compatibility with OCaml 4.08
Diffstat (limited to 'mppa_k1c/InstructionScheduler.ml')
-rw-r--r-- | mppa_k1c/InstructionScheduler.ml | 5 |
1 files changed, 2 insertions, 3 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;; |