From 39c55cc00a35af8677ce3e0661e053e57081b183 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Sat, 6 Jul 2019 09:36:01 +0200 Subject: Clarify "open" statements OCaml 4.08.0 has stricter warnings concerning open statements that shadow module names. --- backend/PrintAsm.ml | 3 +-- backend/PrintCminor.ml | 2 +- driver/Interp.ml | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml index dd428808..155f5e55 100644 --- a/backend/PrintAsm.ml +++ b/backend/PrintAsm.ml @@ -13,7 +13,6 @@ open AST open Camlcoq -open DwarfPrinter open PrintAsmaux open Printf open Sections @@ -177,7 +176,7 @@ module Printer(Target:TARGET) = let address = Target.address end - module DebugPrinter = DwarfPrinter (DwarfTarget) + module DebugPrinter = DwarfPrinter.DwarfPrinter (DwarfTarget) end let print_program oc p = diff --git a/backend/PrintCminor.ml b/backend/PrintCminor.ml index f68c1267..8c255a65 100644 --- a/backend/PrintCminor.ml +++ b/backend/PrintCminor.ml @@ -16,7 +16,7 @@ (** Pretty-printer for Cminor *) open Format -open Camlcoq +open !Camlcoq open Integers open AST open PrintAST diff --git a/driver/Interp.ml b/driver/Interp.ml index 2c0867e3..a6841460 100644 --- a/driver/Interp.ml +++ b/driver/Interp.ml @@ -15,7 +15,7 @@ open Format open Camlcoq open AST -open Integers +open !Integers open Values open Memory open Globalenvs -- cgit