From ee9ff644f20818c660cc66d5f155283b91214574 Mon Sep 17 00:00:00 2001 From: Stavros Aronis Date: Sun, 6 Feb 2011 12:28:12 +0200 Subject: Fix Typer's hanging when module name doesn't match filename --- lib/typer/src/typer_info.erl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/typer') diff --git a/lib/typer/src/typer_info.erl b/lib/typer/src/typer_info.erl index df0b4448f3..1387245064 100644 --- a/lib/typer/src/typer_info.erl +++ b/lib/typer/src/typer_info.erl @@ -87,7 +87,7 @@ collect_one_file_info(File, Analysis) -> case dialyzer_utils:get_record_and_type_info(AbstractCode) of {error, Reason} -> typer:compile_error([Reason]); {ok, Records} -> - Mod = list_to_atom(filename:basename(File, ".erl")), + Mod = cerl:concrete(cerl:module_name(Core)), case dialyzer_utils:get_spec_info(Mod, AbstractCode, Records) of {error, Reason} -> typer:compile_error([Reason]); {ok, SpecInfo} -> @@ -100,7 +100,7 @@ collect_one_file_info(File, Analysis) -> end. analyze_core_tree(Core, Records, SpecInfo, ExpTypes, Analysis, File) -> - Module = list_to_atom(filename:basename(File, ".erl")), + Module = cerl:concrete(cerl:module_name(Core)), TmpTree = cerl:from_records(Core), CS1 = Analysis#typer_analysis.code_server, NextLabel = dialyzer_codeserver:get_next_core_label(CS1), -- cgit v1.2.3