Simon Krajewski 1 год назад
Родитель
Сommit
8ab63f13ac
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      src/codegen/codegen.ml

+ 1 - 1
src/codegen/codegen.ml

@@ -393,7 +393,7 @@ module Dump = struct
 		List.iter (fun m ->
 			print "%s:\n" (Path.UniqueKey.lazy_path m.m_extra.m_file);
 			PMap.iter (fun _ (sign,mpath) ->
-				let m2 = (com.cs#get_context sign)#find_module mpath in
+				let m2 = com.module_lut#find mpath in
 				let file = Path.UniqueKey.lazy_path m2.m_extra.m_file in
 				print "\t%s\n" file;
 				let l = try Hashtbl.find dep file with Not_found -> [] in