[Eva] Fixes indentation.

src/plugins/value/domains/cvalue/builtins_print_c.ml

@@ -283,7 +283,7 @@ let state_pretty cas fmt m =
                 | Z.Overflow
                 | Too_large_to_enumerate ->
                   Self.warning "base %s too large, \
-                                            will not print it" name
+                                will not print it" name
               end
           | _ -> ())
        m

src/plugins/value/domains/cvalue/cvalue_init.ml

@@ -87,7 +87,7 @@ let create_hidden_base ~libc ~valid ~hidden_var_name ~name_desc pointed_typ =
       )
     | Base.Unknown _ -> (* Unknown validity is caused by strange type *)
       Self.result ~dkey "creating variable %s with imprecise \
-                                     size (type %a)" hidden_var_name Printer.pp_typ pointed_typ;
+                         size (type %a)" hidden_var_name Printer.pp_typ pointed_typ;
       validity
     | Base.Empty | Base.Known _ | Base.Invalid -> validity
     | Base.Variable _ -> (* should never happen (validity_from_type cannot

src/plugins/value/domains/cvalue/cvalue_specification.ml

@@ -67,7 +67,7 @@ let check_from pre_state asgn assigns_zone from found_froms =
   let found_indirect_deps = found_deps.Function_Froms.Deps.indirect in
   let res_for_unknown txt =
     Self.debug "found_direct deps %a stated_direct_deps %a \
-                            found_indirect_deps %a stated_indirect_deps %a"
+                found_indirect_deps %a stated_indirect_deps %a"
       Zone.pretty found_direct_deps Zone.pretty stated_direct_deps
       Zone.pretty found_indirect_deps Zone.pretty stated_indirect_deps;
     "unknown (cannot validate "^txt^" dependencies)",

src/plugins/value/engine/abstractions.ml

@@ -387,7 +387,7 @@ let add_domain (type v) dname mode (abstraction: v abstraction) (module Acc: Acc
 let warn_experimental flag =
   if flag.experimental then
     Self.(warning ~wkey:wkey_experimental
-                        "The %s domain is experimental." flag.name)
+            "The %s domain is experimental." flag.name)
 
 let build_domain config abstract =
   let build (Flag flag, mode) acc =

src/plugins/value/engine/compute_functions.ml

@@ -48,8 +48,8 @@ let options_ok () =
   let check_assigns kf =
     if need_assigns kf then
       Self.error "@[no assigns@ specified@ for function '%a',@ for \
-                              which@ a builtin@ or the specification@ will be used.@ \
-                              Potential unsoundness.@]" Kernel_function.pretty kf
+                  which@ a builtin@ or the specification@ will be used.@ \
+                  Potential unsoundness.@]" Kernel_function.pretty kf
   in
   Parameters.BuiltinsOverrides.iter (fun (kf, _) -> check_assigns kf);
   Parameters.UsePrototype.iter (fun kf -> check_assigns kf)
@@ -67,7 +67,7 @@ let generate_specs () =
     if need_assigns kf then begin
       let spec = Annotations.funspec ~populate:false kf in
       Self.warning "Generating potentially incorrect assigns \
-                                for function '%a' for which option %s is set"
+                    for function '%a' for which option %s is set"
         Kernel_function.pretty kf Parameters.UsePrototype.option_name;
       (* The function populate_spec may emit a warning. Position a loc. *)
       Cil.CurrentLoc.set (Kernel_function.get_location kf);
@@ -382,7 +382,7 @@ module Make (Abstract: Abstractions.Eva) = struct
     | `Bottom ->
       Abstract.Dom.Store.mark_as_computed ();
       Self.result "Eva not started because globals \
-                               initialization is not computable.";
+                   initialization is not computable.";
       Eval_annots.mark_invalid_initializers ()
     | `Value init_state ->
       compute kf init_state

src/plugins/value/engine/initialization.ml

@@ -274,7 +274,7 @@ module Make
   let add_supplied_main_formals kf actuals state =
     match Domain.get_cvalue with
     | None -> Self.abort "Function Db.Value.fun_set_args cannot be \
-                                      used without the Cvalue domain"
+                          used without the Cvalue domain"
     | Some get_cvalue ->
       let formals = Kernel_function.get_formals kf in
       if (List.length formals) <> List.length actuals then