diff options
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 be56fe05..35599807 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 |