From 26908c322fd817007f3a8e7ef99108cc2d52b317 Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Mon, 6 Feb 2017 14:10:54 +0100
Subject: Inlined open of AST

---
 cfrontend/PrintClight.ml | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'cfrontend/PrintClight.ml')

diff --git a/cfrontend/PrintClight.ml b/cfrontend/PrintClight.ml
index 7fa35f16..ecfaf0df 100644
--- a/cfrontend/PrintClight.ml
+++ b/cfrontend/PrintClight.ml
@@ -17,16 +17,15 @@
 
 open Format
 open Camlcoq
-open AST
 open PrintAST
-open !Ctypes
+open Ctypes
 open Cop
 open PrintCsyntax
-open !Clight
+open Clight
 
 (* Naming temporaries *)
 
-let temp_name (id: ident) = "$" ^ Z.to_string (Z.Zpos id)
+let temp_name (id: AST.ident) = "$" ^ Z.to_string (Z.Zpos id)
 
 (* Declarator (identifier + type) -- reuse from PrintCsyntax *)
 
@@ -254,7 +253,7 @@ let print_function p id f =
 
 let print_fundef p id fd =
   match fd with
-  | Ctypes.External((EF_external _ | EF_runtime _), args, res, cconv) ->
+  | Ctypes.External((AST.EF_external _ | AST.EF_runtime _), args, res, cconv) ->
       fprintf p "extern %s;@ @ "
                 (name_cdecl (extern_atom id) (Tfunction(args, res, cconv)))
   | Ctypes.External(_, _, _, _) ->
@@ -264,8 +263,8 @@ let print_fundef p id fd =
 
 let print_globdef p (id, gd) =
   match gd with
-  | Gfun f -> print_fundef p id f
-  | Gvar v -> print_globvar p id v  (* from PrintCsyntax *)
+  | AST.Gfun f -> print_fundef p id f
+  | AST.Gvar v -> print_globvar p id v  (* from PrintCsyntax *)
 
 let print_program p prog =
   fprintf p "@[<v 0>";
-- 
cgit