Sfoglia il codice sorgente

make sure to remove .map file if we are not compiling with -debug

Nicolas Cannasse 13 anni fa
parent
commit
6186f15eda
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      genjs.ml

+ 1 - 1
genjs.ml

@@ -1195,7 +1195,7 @@ let generate com =
 		print ctx "})()";
 		newline ctx;
 	end;
-	if com.debug then write_mappings ctx;
+	if com.debug then write_mappings ctx else try Sys.remove (com.file ^ ".map") with _ -> ();
 	let ch = open_out_bin com.file in
 	output_string ch (Buffer.contents ctx.buf);
 	close_out ch);