diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-30 15:05:11 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-30 15:05:11 +0200 |
commit | 6f1a2438a1c9598eab26e0cf43375a83fd547d35 (patch) | |
tree | a514af2fee324d38380b356e6406de85df2fc7d1 /debug/DwarfPrinter.ml | |
parent | a4edc066cf42af9e86643d9ddfe815c42798d4c7 (diff) | |
download | compcert-kvx-6f1a2438a1c9598eab26e0cf43375a83fd547d35.tar.gz compcert-kvx-6f1a2438a1c9598eab26e0cf43375a83fd547d35.zip |
Removed newline in version string and add buildnr and tag if existing to
Producer as well as target system.
Diffstat (limited to 'debug/DwarfPrinter.ml')
-rw-r--r-- | debug/DwarfPrinter.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/debug/DwarfPrinter.ml b/debug/DwarfPrinter.ml index a95c71a1..0a540714 100644 --- a/debug/DwarfPrinter.ml +++ b/debug/DwarfPrinter.ml @@ -388,7 +388,12 @@ module DwarfPrinter(Target: DWARF_TARGET): print_string oc bt.base_type_name let print_compilation_unit oc tag = - let prod_name = sprintf "AbsInt Angewandte Informatik GmbH:CompCert Version %s:%s" Version.version Configuration.arch in + let version_string = + if Version.buildnr <> "" && Version.tag <> "" then + sprintf "%s, Build: %s, Tag: %s" Version.version Version.buildnr Version.tag + else + Version.version in + let prod_name = sprintf "AbsInt Angewandte Informatik GmbH:CompCert Version %s:%s-%s" version_string Configuration.arch Configuration.system in print_string oc (Sys.getcwd ()); print_addr oc tag.compile_unit_low_pc; print_addr oc tag.compile_unit_high_pc; |