diff options
| author |  varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-04-04 11:59:41 +0000 |
|---|---|---|
| committer | varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-04-04 11:59:41 +0000 |
| commit | 5a5d16abc786834f5e4f1bfe6412a17900c22ef5 (patch) | |
| tree | 40c9d5ac1a62a568edeb782a5a3804699078b357 /checklink/Check.ml | |
| parent | 32a6fcb12814550633261960b540ffeb8a0fcab5 (diff) | |
Tracing each data chunk in debug mode
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1873 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'checklink/Check.ml')
| -rw-r--r-- | checklink/Check.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/checklink/Check.ml b/checklink/Check.ml index be56fe0..3559980 100644 --- a/checklink/Check.ml +++ b/checklink/Check.ml @@ -2413,6 +2413,13 @@ let compare_data (l: init_data list) (maybebs: maybe_bitstring) (sfw: s_framewor match l with | [] -> OK(sfw, s) | d::l -> + let sfw = + if !debug + then ( + (sf_ef ^%= add_log (DEBUG(string_of_init_data d))) sfw + ) + else sfw + in begin match d with | Init_int8(i) -> ( bitmatch bs with |