diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-02-05 14:08:10 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-02-05 14:08:10 +0000 |
commit | 187aacedcf9c166ff55a7548c5c5725e41e4d094 (patch) | |
tree | f761f27e70c01064129f9e5ba986b3bfbc301470 /backend/PrintAnnot.ml | |
parent | f9d92a67dd765fad9b980a933887477b3c3e6f40 (diff) | |
download | compcert-187aacedcf9c166ff55a7548c5c5725e41e4d094.tar.gz compcert-187aacedcf9c166ff55a7548c5c5725e41e4d094.zip |
Recognize .i and .p source files as C sources not to be preprocessed.
Add CompCert version number and command line as comments in generated asm.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2407 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/PrintAnnot.ml')
-rw-r--r-- | backend/PrintAnnot.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/backend/PrintAnnot.ml b/backend/PrintAnnot.ml index 1ebb51f5..d24635a6 100644 --- a/backend/PrintAnnot.ml +++ b/backend/PrintAnnot.ml @@ -74,3 +74,14 @@ let print_annot_stmt print_preg sp_reg_name oc txt tmpl args = let print_annot_val print_preg oc txt args = print_annot_text print_preg "<internal error>" oc txt (List.map (fun r -> Reg r) args) + +(* Print CompCert version and command-line as asm comment *) + +let print_version_and_options oc comment = + fprintf oc "%s File generated by CompCert %s\n" comment Configuration.version; + fprintf oc "%s Command line:" comment; + for i = 1 to Array.length Sys.argv - 1 do + fprintf oc " %s" Sys.argv.(i) + done; + fprintf oc "\n" + |