aboutsummaryrefslogtreecommitdiffstats
path: root/debug
diff options
context:
space:
mode:
authorBernhard Schommer <bernhardschommer@gmail.com>2015-09-30 15:14:36 +0200
committerBernhard Schommer <bernhardschommer@gmail.com>2015-09-30 15:14:36 +0200
commitefd2afc1c11ba2e6f46b25a028b5c1c56f0bc2c1 (patch)
treedeb48ab5d307942c62fe984a280e8ca49845c4f8 /debug
parent6f1a2438a1c9598eab26e0cf43375a83fd547d35 (diff)
downloadcompcert-kvx-efd2afc1c11ba2e6f46b25a028b5c1c56f0bc2c1.tar.gz
compcert-kvx-efd2afc1c11ba2e6f46b25a028b5c1c56f0bc2c1.zip
Also add the rest to the producer tag.
Diffstat (limited to 'debug')
-rw-r--r--debug/DwarfPrinter.ml3
1 files changed, 2 insertions, 1 deletions
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;