Trim trailing whitespace in int domains (PR #1739)

Author: sim642

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

@@ -470,7 +470,7 @@ struct
     | `Bot -> `Bot
 
   let logand ik x y = norm ik (match x,y with
-      | `Excluded (_, r), `Definite i 
+      | `Excluded (_, r), `Definite i
       | `Definite i, `Excluded (_, r) ->
         if Z.equal i Z.zero then
           `Definite Z.zero

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

@@ -244,7 +244,7 @@ struct
     | result when not (is_top_of ik result) && not (is_bot result) -> result
     | _ ->
       match i1, i2 with
-      | Some (x1, x2), Some (y1, y2) -> 
+      | Some (x1, x2), Some (y1, y2) ->
         let is_nonneg x = Ints_t.compare x Ints_t.zero >= 0 in
         begin match is_nonneg x1, is_nonneg x2, is_nonneg y1, is_nonneg y2 with
           | true, _, true, _ ->
@@ -290,11 +290,11 @@ struct
         end
       | _ -> top_of ik
 
-  let logor ik i1 i2 = 
+  let logor ik i1 i2 =
     match bit (fun _ik -> Ints_t.logor) ik i1 i2 with
     | result when not (is_top_of ik result) && not (is_bot result) -> result
     | _ ->
-      match i1, i2 with 
+      match i1, i2 with
       | Some (x1, x2), Some (y1, y2) ->
         let is_nonneg x = Ints_t.compare x Ints_t.zero >= 0 in
         begin match is_nonneg x1, is_nonneg x2, is_nonneg y1, is_nonneg y2 with
@@ -309,7 +309,7 @@ struct
             of_interval ik (lower, upper) |> fst
         end
       | _ -> top_of ik
-        
+
   let bit1 f ik i1 f' =
     if is_bot i1 then
       bot_of ik
@@ -335,7 +335,7 @@ struct
       | Some x, Some y -> (try of_int ik (Ints_t.shift_right x (Ints_t.to_int y)) with Division_by_zero | Invalid_argument _ -> (top_of ik, {underflow=false; overflow=false}))
       | _, _->
         let is_nonneg x = Ints_t.compare x Ints_t.zero >= 0 in
-        match i1, i2 with 
+        match i1, i2 with
         | Some (x1, x2), Some (y1,y2) when is_nonneg x1 && is_nonneg y1 ->
           of_interval ik (Ints_t.zero, Ints_t.div x2 (Ints_t.shift_left Ints_t.one (Ints_t.to_int y1)))
         | _ -> (top_of ik, {underflow=false; overflow=false})

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

@@ -342,7 +342,7 @@ struct
       let (x1, x2), (y1, y2) = i1, i2 in
       let is_nonneg x = Ints_t.compare x Ints_t.zero >= 0 in
       match is_nonneg x1, is_nonneg x2, is_nonneg y1, is_nonneg y2 with
-      | true, _, true, _ -> 
+      | true, _, true, _ ->
         of_interval ik (Ints_t.zero, Ints_t.min x2 y2) |> fst
       | _, false, _, false ->
         of_interval ik (min_val_bit_constrained @@ Ints_t.min x1 y1, Ints_t.zero) |> fst

src/cdomain/value/cdomains/valueDomain.ml

@@ -979,7 +979,7 @@ struct
     do_eval_offset ask f x offs exp l o v t
 
   let update_offset ?(blob_destructive=false) (ask: VDQ.t) (x:t) (offs:offs) (value:t) (exp:exp option) (v:lval) (t:typ): t =
-    let rec do_update_offset ?(bitfield:int option=None) (ask:VDQ.t) (x:t) (offs:offs) (value:t) (exp:exp option) (l:lval option) (o:offset option) (v:lval) (t:typ):t = 
+    let rec do_update_offset ?(bitfield:int option=None) (ask:VDQ.t) (x:t) (offs:offs) (value:t) (exp:exp option) (l:lval option) (o:offset option) (v:lval) (t:typ):t =
       if M.tracing then M.traceli "update_offset" "do_update_offset %a %a (%a) %a" pretty x Offs.pretty offs (Pretty.docOpt (CilType.Exp.pretty ())) exp pretty value;
       let mu = function Blob (Blob (y, s', zeroinit), s, _) -> Blob (y, ID.join s s', zeroinit) | x -> x in
       let r =