diff options
author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2021-09-16 14:54:22 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2021-09-22 16:06:39 +0200 |
commit | dffc9885e54f9c68af23ec79023dfe8516a4cc32 (patch) | |
tree | f7a3755303b6a14b039d90f335d4b860da93ac1e /export/ExportBase.ml | |
parent | d32955030937937706b71a96dc6584800f0b8722 (diff) | |
download | compcert-dffc9885e54f9c68af23ec79023dfe8516a4cc32.tar.gz compcert-dffc9885e54f9c68af23ec79023dfe8516a4cc32.zip |
Add support to clightgen for generating Csyntax AST as .v files
As proposed in #404.
This is presented as a new option `-clight` to the existing `clightgen` tool.
Revise clightgen testing to test the Csyntax output in addition to
the Clight output.
Diffstat (limited to 'export/ExportBase.ml')
-rw-r--r-- | export/ExportBase.ml | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/export/ExportBase.ml b/export/ExportBase.ml index b7d0170d..4b93d8a9 100644 --- a/export/ExportBase.ml +++ b/export/ExportBase.ml @@ -17,6 +17,7 @@ open Format open Camlcoq open AST +open Values (* Options, lists, pairs *) @@ -239,9 +240,19 @@ let print_variable print_info p (id, v) = fprintf p " gvar_volatile := %B@ " v.gvar_volatile; fprintf p "|}.@ @ " -(* Information about this run of clightgen *) +(* Values *) -let print_clightgen_info ~sourcefile ?normalized p = +let val_ p = function + | Vundef -> fprintf p "Vundef" + | Vint i -> fprintf p "(Vint %a)" coqint i + | Vlong l -> fprintf p "(Vlong %a)" coqint64 l + | Vfloat f -> fprintf p "(Vfloat %a)" coqfloat f + | Vsingle s -> fprintf p "(Vsingle %a)" coqsingle s + | Vptr(b, o) -> fprintf p "(Vptr %a %a)" positive b coqptrofs o + +(* Information about this run of clightgen or csyntaxgen *) + +let print_gen_info ~sourcefile ?normalized p = fprintf p "@[<v 2>Module Info."; fprintf p "@ Definition version := %S." Version.version; fprintf p "@ Definition build_number := %S." Version.buildnr; |