Commit e1b60790 authored by David Bühler's avatar David Bühler

[Ival] Fixes indentation.

parent 957a6506
......@@ -82,7 +82,7 @@ type t =
| Set of Int_set.t
| Float of Fval.t
| Itv of Int_interval.t
(* Binary abstract operations do not model precisely float/integer operations.
(* Binary abstract operations do not model precisely float/integer operations.
It is the responsibility of the callers to have two operands of the same
implicit type. The only exception is for [singleton_zero], which is the
correct representation of [0.] *)
......@@ -113,7 +113,7 @@ let compare e1 e2 =
| Itv _, _ -> -1
| Float(f1), Float(f2) ->
Fval.compare f1 f2
(*| _, Float _ -> 1
(*| _, Float _ -> 1
| Float _, _ -> -1 *)
let equal e1 e2 = compare e1 e2 = 0
......@@ -166,8 +166,8 @@ let cardinal_zero_or_one v =
| Float f -> Fval.is_singleton f
let is_singleton_int v = match v with
| Float _ | Itv _ -> false
| Set s -> Int_set.cardinal s = 1
| Float _ | Itv _ -> false
| Set s -> Int_set.cardinal s = 1
(* TODO *)
let is_bottom x = equal x bottom
......@@ -237,7 +237,7 @@ exception Not_Singleton_Int
let project_int v = match v with
| Set s ->
if Int_set.cardinal s = 1 then Int_set.min s else raise Not_Singleton_Int
| _ -> raise Not_Singleton_Int
| _ -> raise Not_Singleton_Int
let is_small_set = function
| Set _ -> true
......@@ -594,7 +594,7 @@ let join v1 v2 =
else if is_bottom other then ff
else top
in
(* Format.printf "mod_join %a %a -> %a@."
(* Format.printf "mod_join %a %a -> %a@."
pretty v1 pretty v2 pretty result; *)
result
......@@ -957,7 +957,7 @@ let cast_float_to_float fkind v =
| Set _ | Itv _ -> top_float
(* TODO rename to mul_int *)
(* TODO rename to mul_int *)
let mul v1 v2 =
(* Format.printf "mul. Args: '%a' '%a'@\n" pretty v1 pretty v2; *)
let result =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment