From 304490110509324a20c7c2c3be9bf61931fa3a1c Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Sat, 17 Dec 2022 10:50:43 +0100
Subject: Make minor modifications and generate code for loops

---
 compiler/Driver.ml | 52 ++++++++++++++++++++++++++++------------------------
 1 file changed, 28 insertions(+), 24 deletions(-)

(limited to 'compiler')

diff --git a/compiler/Driver.ml b/compiler/Driver.ml
index f870659a..3d2e84ad 100644
--- a/compiler/Driver.ml
+++ b/compiler/Driver.ml
@@ -11,6 +11,34 @@ module PrePasses = Aeneas.PrePasses
 module Translate = Aeneas.Translate
 open Aeneas.Config
 
+(** The local logger *)
+let log = main_log
+
+let _ =
+  (* Set up the logging - for now we use default values - TODO: use the
+   * command-line arguments *)
+  (* By setting a level for the main_logger_handler, we filter everything *)
+  Easy_logging.Handlers.set_level main_logger_handler EL.Debug;
+  main_log#set_level EL.Info;
+  llbc_of_json_logger#set_level EL.Info;
+  pre_passes_log#set_level EL.Info;
+  interpreter_log#set_level EL.Info;
+  statements_log#set_level EL.Info;
+  loops_log#set_level EL.Info;
+  paths_log#set_level EL.Info;
+  expressions_log#set_level EL.Info;
+  expansion_log#set_level EL.Info;
+  projectors_log#set_level EL.Info;
+  borrows_log#set_level EL.Info;
+  invariants_log#set_level EL.Info;
+  pure_utils_log#set_level EL.Info;
+  symbolic_to_pure_log#set_level EL.Info;
+  pure_micro_passes_log#set_level EL.Info;
+  pure_to_extract_log#set_level EL.Info;
+  translate_log#set_level EL.Info;
+  scc_log#set_level EL.Info;
+  reorder_decls_log#set_level EL.Info
+
 (* This is necessary to have a backtrace when raising exceptions - for some
  * reason, the -g option doesn't work.
  * TODO: run with OCAMLRUNPARAM=b=1? *)
@@ -139,30 +167,6 @@ let () =
     if !dest_dir = "" then Filename.dirname filename else !dest_dir
   in
 
-  (* Set up the logging - for now we use default values - TODO: use the
-   * command-line arguments *)
-  (* By setting a level for the main_logger_handler, we filter everything *)
-  Easy_logging.Handlers.set_level main_logger_handler EL.Debug;
-  let level = EL.Info in
-  main_log#set_level level;
-  llbc_of_json_logger#set_level level;
-  pre_passes_log#set_level level;
-  interpreter_log#set_level level;
-  statements_log#set_level level;
-  loops_log#set_level level;
-  paths_log#set_level level;
-  expressions_log#set_level level;
-  expansion_log#set_level level;
-  projectors_log#set_level level;
-  borrows_log#set_level level;
-  invariants_log#set_level level;
-  pure_utils_log#set_level level;
-  symbolic_to_pure_log#set_level level;
-  pure_micro_passes_log#set_level level;
-  pure_to_extract_log#set_level level;
-  translate_log#set_level level;
-  let log = main_log in
-
   (* Load the module *)
   let json = Yojson.Basic.from_file filename in
   match crate_of_json json with
-- 
cgit v1.2.3