浏览代码

cache files with absolute paths because that what we did before

closes #11497
Simon Krajewski 1 年之前
父节点
当前提交
786db38595
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/compiler/server.ml

+ 1 - 1
src/compiler/server.ml

@@ -77,7 +77,7 @@ let parse_file cs com (rfile : ClassPaths.resolved_file) p =
 							let ident = Hashtbl.find Parser.special_identifier_files fkey in
 							let ident = Hashtbl.find Parser.special_identifier_files fkey in
 							Printf.sprintf "not cached, using \"%s\" define" ident,true
 							Printf.sprintf "not cached, using \"%s\" define" ident,true
 						with Not_found ->
 						with Not_found ->
-							cc#cache_file fkey rfile ftime data pdi;
+							cc#cache_file fkey (ClassPaths.create_resolved_file ffile rfile.class_path) ftime data pdi;
 							"cached",false
 							"cached",false
 						end
 						end
 				in
 				in