diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-02-06 14:10:54 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-02-06 14:10:54 +0100 |
commit | 26908c322fd817007f3a8e7ef99108cc2d52b317 (patch) | |
tree | e46d0c9c111a2baefcd331352e954a0c6b959f5d | |
parent | 7adad809b9f300ce6db1ea0a7cdcacfb334729d5 (diff) | |
download | compcert-26908c322fd817007f3a8e7ef99108cc2d52b317.tar.gz compcert-26908c322fd817007f3a8e7ef99108cc2d52b317.zip |
Inlined open of AST
-rw-r--r-- | cfrontend/PrintClight.ml | 13 |
1 files changed, 6 insertions, 7 deletions
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>"; |