Display a warning the compiler descriptions have a wrong 'name' field

src/core/opamCompiler.ml

@@ -48,18 +48,18 @@ end
 
 include OpamMisc.Base
 
+let of_filename =
+  OpamFilename.chop_extension
+  |> OpamFilename.basename
+  |> OpamFilename.Base.to_string
+  |> of_string
+
 let list t =
   log "list dir=%s" (OpamFilename.Dir.to_string t);
   if OpamFilename.exists_dir t then (
     let files = OpamFilename.list_files t in
     let files = List.filter (fun f -> OpamFilename.check_suffix f ".comp") files in
-    let l =
-      List.map
-        (OpamFilename.chop_extension
-        |> OpamFilename.basename
-        |> OpamFilename.Base.to_string
-        |> of_string)
-        files in
+    let l = List.map of_filename files in
     Set.of_list l
   ) else
     Set.empty

src/core/opamCompiler.mli

@@ -37,6 +37,9 @@ end
 (** Compiler names *)
 include OpamMisc.ABSTRACT
 
+(** Convert a filename into a compiler name *)
+val of_filename: OpamFilename.t -> t
+
 (** List the compiler available in a directory *)
 val list: OpamFilename.Dir.t -> Set.t
 

src/core/opamFile.ml

@@ -1192,6 +1192,11 @@ module Comp = struct
       | Some (n,_) -> OpamCompiler.of_string base, OpamCompiler.Version.of_string n in
     let name =
       OpamFormat.assoc_default name_d s s_name (OpamFormat.parse_string |> OpamCompiler.of_string) in
+    if OpamCompiler.of_filename filename <> name then
+      OpamGlobals.warning "The file %s contains a bad 'name' field: %s instead of %s"
+        (OpamFilename.to_string filename)
+        (OpamCompiler.to_string name)
+        (OpamCompiler.to_string (OpamCompiler.of_filename filename));
     let version =
       OpamFormat.assoc_default version_d s s_version
         (OpamFormat.parse_string |> OpamCompiler.Version.of_string) in