Skip to content

Commit

Permalink
remove debug print
Browse files Browse the repository at this point in the history
  • Loading branch information
reb-ddm committed Sep 10, 2024
1 parent 07ab99a commit e22a989
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions src/cdomains/unionFind.ml
Original file line number Diff line number Diff line change
Expand Up @@ -100,9 +100,6 @@ module T = struct
| Nequal (t1,t2,r) -> show t1 ^ " != " ^ Z.to_string r ^ "+" ^ show t2
| BlNequal (t1,t2) -> "bl(" ^ show t1 ^ ") != bl(" ^ show t2 ^ ")"

let equal_v_prop a b = let res = equal_v_prop a b in
print_string ((show_prop a)^"; "^(show_prop b)^"; "^string_of_bool res ^"\n"); res

(** Returns true if the first parameter is a subterm of the second one. *)
let rec is_subterm st term = equal st term || match term with
| Deref (t, _, _) -> is_subterm st t
Expand Down

0 comments on commit e22a989

Please sign in to comment.