Merge pull request #4042 from nadako/development

use FindFirstFile to get proper module name casing

libs

@@ -1 +1 @@
-Subproject commit 371962aacc1bcd1b5578df62a1500f436d6f0c73
+Subproject commit 8bba5315cabf666f94031436653ee0c6115a1762

main.ml

@@ -1402,10 +1402,6 @@ try
 		com.error <- error ctx;
 		com.main_class <- None;
 		let real = get_real_path (!Parser.resume_display).Ast.pfile in
-		(* try to fix issue on windows when get_real_path fails (8.3 DOS names disabled) *)
-		let real = (match List.rev (ExtString.String.nsplit real path_sep) with
-		| file :: path when String.length file > 0 && file.[0] >= 'a' && file.[1] <= 'z' -> file.[0] <- char_of_int (int_of_char file.[0] - int_of_char 'a' + int_of_char 'A'); String.concat path_sep (List.rev (file :: path))
-		| _ -> real) in
 		classes := lookup_classes com real;
 		if !classes = [] then begin
 			if not (Sys.file_exists real) then failwith "Display file does not exist";