[e-acsl] lint

src/plugins/e-acsl/src/analyses/typing.ml

@@ -191,11 +191,11 @@ end = struct
      useless. However:
      - type info of many terms are accessed several times
      - the translation of E-ACSL guarded quantifications generates
-     new terms (see module {!Quantif}) which must be typed. The term
-     corresponding to the bound variable [x] is actually used twice: once in the
-     guard and once for encoding [x+1] when incrementing it. The memoization is
-     only useful here and indeed prevent the generation of one extra variable in
-     some cases. *)
+       new terms (see module {!Quantif}) which must be typed. The term
+       corresponding to the bound variable [x] is actually used twice: once in the
+       guard and once for encoding [x+1] when incrementing it. The memoization is
+       only useful here and indeed prevent the generation of one extra variable in
+       some cases. *)
   let tbl = Misc.Id_term.Hashtbl.create 97
 
   let get t =

src/plugins/e-acsl/src/main.ml

@@ -158,7 +158,7 @@ let generate_code =
             Options.feedback "translation done in project \"%s\"."
               (Options.Project_name.get ());
             copied_prj)
-())
+         ())
 
 let generate_code =
   Dynamic.register

src/plugins/e-acsl/src/project_initializer/prepare_ast.ml

@@ -245,9 +245,9 @@ let align_error s = raise (Alignment_error s)
    of [algn] or greater. Returns false otherwise.
    Throws an exception if
    - [attrs] contains several [align] attributes specifying different
-   alignments
+     alignments
    - [attrs] has a single align attribute with a value which is less than
-   [algn] *)
+     [algn] *)
 let sufficiently_aligned attrs algn =
   let alignment =
     List.fold_left

src/plugins/e-acsl/src/project_initializer/prepare_ast.mli

@@ -29,7 +29,7 @@
       statements to upper scopes;
     - storing what is necessary to translate in [Keep_status]
     - in case of temporal validity checks, adding the attribute "aligned" to
-    variables that are not sufficiently aligned. *)
+      variables that are not sufficiently aligned. *)
 
 val prepare: unit -> unit