diff options
| author | Kathy Gray | 2015-08-06 16:24:28 +0100 |
|---|---|---|
| committer | Kathy Gray | 2015-08-06 16:24:28 +0100 |
| commit | d4d2e262f96a8eef543c017c8df08c25f2715118 (patch) | |
| tree | b768f8818157caf1389d782d4f3070a2f80eab4d /src/pretty_print.ml | |
| parent | 43427019f9f2c1e64a07ec6ee3caef8bd1a5c165 (diff) | |
Update analysis to merge states and values after branches taken due to unknown conditions.
Does not merge if one path has resulted in an exit
Diffstat (limited to 'src/pretty_print.ml')
| -rw-r--r-- | src/pretty_print.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/pretty_print.ml b/src/pretty_print.ml index 182c1929..266e8141 100644 --- a/src/pretty_print.ml +++ b/src/pretty_print.ml @@ -65,14 +65,14 @@ let pp_format_var (Kid_aux(Var v,_)) = v let rec pp_format_l_lem = function | Parse_ast.Unknown -> "Unknown" - | _ -> "Unknown" -(* | Parse_ast.Int(s,None) -> "(Int \"" ^ s ^ "\" Nothing)" +(* | _ -> "Unknown"*) + | Parse_ast.Int(s,None) -> "(Int \"" ^ s ^ "\" Nothing)" | Parse_ast.Int(s,(Some l)) -> "(Int \"" ^ s ^ "\" (Just " ^ (pp_format_l_lem l) ^ "))" | Parse_ast.Range(p1,p2) -> "(Range \"" ^ p1.Lexing.pos_fname ^ "\" " ^ (string_of_int p1.Lexing.pos_lnum) ^ " " ^ (string_of_int (p1.Lexing.pos_cnum - p1.Lexing.pos_bol)) ^ " " ^ (string_of_int p2.Lexing.pos_lnum) ^ " " ^ - (string_of_int (p2.Lexing.pos_cnum - p2.Lexing.pos_bol)) ^ ")"*) + (string_of_int (p2.Lexing.pos_cnum - p2.Lexing.pos_bol)) ^ ")" let pp_lem_l ppf l = base ppf (pp_format_l_lem l) |