Commit 929db309 authored by MARCHE Claude's avatar MARCHE Claude

Remove a few compilation warnings

parent 8bf94dcd
......@@ -349,7 +349,7 @@ let read_channel env path file c =
Debug.dprintf debug "%s parsed successfully.@." file;
let file = Filename.basename file in
let file = Filename.chop_extension file in
let name = String.capitalize file in
let name = Strings.capitalize file in
Debug.dprintf debug "building module %s.@." name;
let inc = Mlw_typing.open_file env path in
let loc = Why3.Loc.user_position file 0 0 0 in
......
......@@ -71,8 +71,10 @@ module Pos = struct
end
module Mpos = Extmap.Make(Pos)
(*
module Spos = Extset.MakeOfMap(Mpos)
module Hpos = Exthtbl.Make(Pos)
*)
type meta_args = meta_arg list
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment