Skip to content

Commit f5cebf7

Browse files
committed
Trim trailing whitespace in affine equality domain
1 parent 44ba988 commit f5cebf7

File tree

4 files changed

+8
-8
lines changed

4 files changed

+8
-8
lines changed

src/cdomains/affineEquality/arrayImplementation/arrayMatrix.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ open Batteries
66

77
let timing_wrap = Vector.timing_wrap
88

9-
module type ArrayMatrix =
9+
module type ArrayMatrix =
1010
sig
1111
include Matrix
1212
val get_col: t -> int -> vec
@@ -61,7 +61,7 @@ module ArrayMatrix: ArrayMatrixFunctor =
6161
Array.length m
6262

6363
let compare_num_rows m1 m2 =
64-
Int.compare (Array.length m1) (Array.length m2)
64+
Int.compare (Array.length m1) (Array.length m2)
6565

6666
let is_empty m =
6767
(num_rows m = 0)

src/cdomains/affineEquality/arrayImplementation/arrayVector.ml

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3,8 +3,8 @@ open RatOps
33

44
open Batteries
55

6-
module type ArrayVector =
7-
sig
6+
module type ArrayVector =
7+
sig
88
include Vector
99
val mapi_with: (int -> num -> num) -> t -> unit
1010

@@ -117,7 +117,7 @@ module ArrayVector: ArrayVectorFunctor =
117117
List.iter (fun (idx, value) -> vec.(idx) <- value) ls;
118118
vec
119119

120-
let to_sparse_list v =
120+
let to_sparse_list v =
121121
let rec aux idx acc =
122122
if idx < 0 then acc
123123
else

src/cdomains/affineEquality/matrix.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@ sig
99

1010
val copy: t -> t
1111

12-
val empty: unit -> t
12+
val empty: unit -> t
1313

1414
val is_empty: t -> bool
1515

src/cdomains/apron/affineEqualityDenseDomain.apron.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -450,8 +450,8 @@ struct
450450
let assigned_vars = List.map fst vv's in
451451
let t = add_vars t assigned_vars in (* introduce all lhs-variables to the relation data structure *)
452452
let primed_vars = List.init (* create a list with primed variables "i'" for each lhs-variable *)
453-
(List.length assigned_vars)
454-
(fun i -> Var.of_string (Int.to_string i ^"'"))
453+
(List.length assigned_vars)
454+
(fun i -> Var.of_string (Int.to_string i ^"'"))
455455
in (* TODO: we use primed integers as var names, conflict? *)
456456
let t_primed = add_vars t primed_vars in (* introduce primed variables to the relation data structure *)
457457
(* sequence of assignments: i' = snd vv_i : *)

0 commit comments

Comments
 (0)