From efd2afc1c11ba2e6f46b25a028b5c1c56f0bc2c1 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Wed, 30 Sep 2015 15:14:36 +0200 Subject: Also add the rest to the producer tag. --- debug/DwarfPrinter.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'debug/DwarfPrinter.ml') diff --git a/debug/DwarfPrinter.ml b/debug/DwarfPrinter.ml index 0a540714..b743eaf5 100644 --- a/debug/DwarfPrinter.ml +++ b/debug/DwarfPrinter.ml @@ -393,7 +393,8 @@ module DwarfPrinter(Target: DWARF_TARGET): 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 + let prod_name = sprintf "AbsInt Angewandte Informatik GmbH:CompCert Version %s:(%s,%s,%s,%s)" + version_string Configuration.arch Configuration.system Configuration.abi Configuration.model in print_string oc (Sys.getcwd ()); print_addr oc tag.compile_unit_low_pc; print_addr oc tag.compile_unit_high_pc; -- cgit