Merge branch 'fix/blanchard/all/warnings' into 'master'

Fix warnings 67 and 69

See merge request frama-c/frama-c!4287

src/plugins/impact/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/inout/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/instantiate/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/instantiate/instantiator_builder.mli

@@ -137,4 +137,4 @@ end
     cache and function definition generation, as well as specification
     registration. This should only be used by [Transform].
 *)
-module Make_instantiator (G: Generator_sig) : Instantiator
+module Make_instantiator (_: Generator_sig) : Instantiator

src/plugins/instantiate/options.mli

@@ -33,6 +33,6 @@ module Kfs : Parameter_sig.Kernel_function_set
     to true.
 *)
 module NewInstantiator
-    (B : sig val function_name: string end) : Parameter_sig.Bool
+    (_ : sig val function_name: string end) : Parameter_sig.Bool
 
 val emitter: Emitter.t

src/plugins/instantiate/string/mem_utils.mli

@@ -41,7 +41,7 @@ module type Function = sig
   val well_typed: typ option -> typ list -> bool
 end
 
-module Make (F: Function) : sig
+module Make (_: Function) : sig
   val generate_function_type : typ -> typ
   val generate_prototype : typ -> string * typ
   val well_typed_call : lval option -> varinfo -> exp list -> bool

src/plugins/loop_analysis/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/markdown-report/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/metrics/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/nonterm/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/obfuscator/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/occurrence/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/pdg/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/postdominators/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/reduc/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/report/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/rte/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/scope/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/security_slicing/dune-project

-(lang dune 3.2)
+(lang dune 3.3)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;  This file is part of Frama-C.                                         ;;

src/plugins/server/data.mli

@@ -368,11 +368,11 @@ sig
 end
 
 (** Builds an indexer that {i does not} depend on current project. *)
-module Static(M : Map)(I : Info) :
+module Static(M : Map)(_ : Info) :
   Index with type t = M.key and type tag := int
 
 (** Builds a {i projectified} index. *)
-module Index(M : Map)(I : Info) :
+module Index(M : Map)(_ : Info) :
   Index with type t = M.key and type tag := int
 
 (** Datatype already identified by unique integers. *)
@@ -383,7 +383,7 @@ sig
 end
 
 (** Builds a {i projectified} index on types with {i unique} identifiers. *)
-module Identified(A : IdentifiedType)(I : Info) :
+module Identified(A : IdentifiedType)(_ : Info) :
   Index with type t = A.t and type tag := int
 
 (** Datatype already identified by unique integers. *)
@@ -394,7 +394,7 @@ sig
 end
 
 (** Builds a {i projectified} index on types with {i unique} identifiers. *)
-module Tagged(A : TaggedType)(I : Info) :
+module Tagged(A : TaggedType)(_ : Info) :
   Index with type t = A.t and type tag := string
 
 (* -------------------------------------------------------------------------- *)