Indentation (#1623)

Author: michael-schwarz

src/cdomain/value/cdomains/int/intervalDomain.ml

@@ -79,35 +79,37 @@ struct
   let to_int x = Option.bind x (IArith.to_int)
   let of_interval ?(suppress_ovwarn=false) ik (x,y) = norm ~suppress_ovwarn ik @@ Some (x,y)
 
-  let of_bitfield ik x =     
-    let min ik (z,o) = 
-      let signBit = Ints_t.shift_left Ints_t.one ((Size.bit ik) - 1) in 
+  let of_bitfield ik x =
+    let min ik (z,o) =
+      let signBit = Ints_t.shift_left Ints_t.one ((Size.bit ik) - 1) in
       let signMask = Ints_t.lognot (Ints_t.of_bigint (snd (Size.range ik))) in
       let isNegative = Ints_t.logand signBit o <> Ints_t.zero in
-      if GoblintCil.isSigned ik && isNegative then 
+      if GoblintCil.isSigned ik && isNegative then
         Ints_t.logor signMask (Ints_t.lognot z)
-      else 
+      else
         Ints_t.lognot z
-    in let max ik (z,o) =
-         let signBit = Ints_t.shift_left Ints_t.one ((Size.bit ik) - 1) in 
-         let signMask = Ints_t.of_bigint (snd (Size.range ik)) in
-         let isPositive = Ints_t.logand signBit z <> Ints_t.zero in
-         if GoblintCil.isSigned ik && isPositive 
-          then Ints_t.logand signMask o
-         else 
-          o 
-    in fst (norm ik (Some (min ik x, max ik x)))
+    in
+    let max ik (z,o) =
+      let signBit = Ints_t.shift_left Ints_t.one ((Size.bit ik) - 1) in
+      let signMask = Ints_t.of_bigint (snd (Size.range ik)) in
+      let isPositive = Ints_t.logand signBit z <> Ints_t.zero in
+      if GoblintCil.isSigned ik && isPositive then
+        Ints_t.logand signMask o
+      else
+        o
+    in
+    fst (norm ik (Some (min ik x, max ik x)))
 
   let of_int ik (x: int_t) = of_interval ik (x,x)
   let zero = Some IArith.zero
   let one  = Some IArith.one
   let top_bool = Some IArith.top_bool
 
-  let to_bitfield ik z = 
-    match z with 
-    | None -> (Ints_t.lognot Ints_t.zero, Ints_t.lognot Ints_t.zero) 
+  let to_bitfield ik z =
+    match z with
+    | None -> (Ints_t.lognot Ints_t.zero, Ints_t.lognot Ints_t.zero)
     | Some (x,y) ->
-      let (z,o) = fst(BitfieldDomain.Bitfield.of_interval ik (Ints_t.to_bigint x, Ints_t.to_bigint y)) in 
+      let (z,o) = fst(BitfieldDomain.Bitfield.of_interval ik (Ints_t.to_bigint x, Ints_t.to_bigint y)) in
       (Ints_t.of_bigint z, Ints_t.of_bigint o)
 
   let of_bool _ik = function true -> one | false -> zero
@@ -407,8 +409,8 @@ struct
     if M.tracing then M.trace "refine" "int_refine_with_congruence %a %a -> %a" pretty x pretty y pretty refn;
     refn
 
-  let refine_with_bitfield ik a b = 
-    let interv = of_bitfield ik b in 
+  let refine_with_bitfield ik a b =
+    let interv = of_bitfield ik b in
     meet ik a interv
 
   let refine_with_interval ik a b = meet ik a b

src/cdomain/value/cdomains/int/intervalSetDomain.ml

@@ -513,7 +513,7 @@ struct
   let refine_with_bitfield ik x y = 
     let interv = of_bitfield ik y in 
     norm_intvs ik (meet ik x interv) |> fst
-    
+
   let refine_with_incl_list ik intvs  = function
     | None -> intvs
     | Some xs -> meet ik intvs (List.map (fun x -> (x,x)) xs)