diff options
author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2018-06-20 17:27:38 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-06-20 17:27:38 +0200 |
commit | a55025d1ab6f7b3525ccf42c874086d3a3da21c9 (patch) | |
tree | c4286f1d3a604dc0e0e56eefe16858f01725d91b /exportclight/Clightgen.ml | |
parent | b193660372d87a6587b96d84980d8f8b1b175948 (diff) | |
download | compcert-a55025d1ab6f7b3525ccf42c874086d3a3da21c9.tar.gz compcert-a55025d1ab6f7b3525ccf42c874086d3a3da21c9.zip |
clightgen: add info on configuration and platform to generated .v files (#238)
Information about the run of clightgen is added to the generated .v file as definitions within a sub-module named Info.
Closes: #226.
Diffstat (limited to 'exportclight/Clightgen.ml')
-rw-r--r-- | exportclight/Clightgen.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/exportclight/Clightgen.ml b/exportclight/Clightgen.ml index 9cb0674e..1eb4fe03 100644 --- a/exportclight/Clightgen.ml +++ b/exportclight/Clightgen.ml @@ -53,7 +53,8 @@ let compile_c_ast sourcename csyntax ofile = end; (* Print Clight in Coq syntax *) let oc = open_out ofile in - ExportClight.print_program (Format.formatter_of_out_channel oc) clight; + ExportClight.print_program (Format.formatter_of_out_channel oc) + clight sourcename !option_normalize; close_out oc (* From C source to Clight *) |