diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-03-16 12:23:29 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-03-16 12:23:29 +0100 |
commit | b3c67667b7121b7f2e50700ec6da4bd780dee426 (patch) | |
tree | fbd6cfe3b6cfda555ca9389e58a2b226df480013 /checklink/Check.ml | |
parent | a84576b219c797467e480508fc99ba78260062df (diff) | |
download | compcert-b3c67667b7121b7f2e50700ec6da4bd780dee426.tar.gz compcert-b3c67667b7121b7f2e50700ec6da4bd780dee426.zip |
Started implementing the printing functions for the debug info. Added a global target dependend option to activate the printing only for targets wher it works.
Diffstat (limited to 'checklink/Check.ml')
-rw-r--r-- | checklink/Check.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/checklink/Check.ml b/checklink/Check.ml index db0159c4..4924744c 100644 --- a/checklink/Check.ml +++ b/checklink/Check.ml @@ -75,6 +75,8 @@ let name_of_section_Linux: section_name -> string = function | Section_literal -> ".rodata.cst8" | Section_jumptable -> ".text" | Section_user(s, wr, ex) -> s +| Section_debug_info -> ".debug_info" +| Section_debug_abbrev -> ".debug_abbrev" (** Adapted from CompCert *) let name_of_section_Diab: section_name -> string = function @@ -87,6 +89,8 @@ let name_of_section_Diab: section_name -> string = function | Section_literal -> ".text" | Section_jumptable -> ".text" | Section_user(s, wr, ex) -> s +| Section_debug_info -> ".debug_info" +| Section_debug_abbrev -> ".debug_abbrev" (** Taken from CompCert *) let name_of_section: section_name -> string = |