diff options
author | varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-04 08:48:17 +0000 |
---|---|---|
committer | varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-04 08:48:17 +0000 |
commit | 2afca3f850d28cd67fd30fe3467d934ebe9dc9f5 (patch) | |
tree | f32e5c52fa416dd390ac42aa73dd16bc60b85b13 /checklink/Check.ml | |
parent | 208c35e5b83d85e17dcbd0b6f3dbcc1f2d28b1bd (diff) |
checklink: some more debug tracing
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1953 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'checklink/Check.ml')
-rw-r--r-- | checklink/Check.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/checklink/Check.ml b/checklink/Check.ml index 9608767..cf6843e 100644 --- a/checklink/Check.ml +++ b/checklink/Check.ml @@ -3004,6 +3004,7 @@ let is_padding bs start stop = Returns a framework where [chkd_bytes_list] is sorted and full. *) let check_padding efw = + print_debug "Checking padding"; let elf = efw.elf in let sndxes = list_n elf.e_hdr.e_shnum in let matching_sections x y = @@ -3161,6 +3162,7 @@ let check_sym_tab_zero efw = not the same, we warn the user. *) let warn_sections_remapping efw = + print_debug "Checking remapped sections"; StringMap.fold (fun c_name e_name efw -> if c_name = e_name @@ -3177,6 +3179,7 @@ let warn_sections_remapping efw = efw let warn_sda_mapping efw = + print_debug "Checking SDA mappings"; if IntMap.is_empty efw.sda_map then efw else ( |