diff options
Diffstat (limited to 'backend')
| -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 1ebb51f..d24635a 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" + |