diff options
| author | Hans Bolinder <[email protected]> | 2014-02-24 11:39:50 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2014-02-24 11:39:50 +0100 |
| commit | bfbc7d65c3b2b3741c52047248e193f698287e47 (patch) | |
| tree | d9564794b87fd6b78d573a47c6fd5b286fc37240 /lib/dialyzer/src/dialyzer_analysis_callgraph.erl | |
| parent | 790e3739a14e3e77ab0282d961038714d84c0fb8 (diff) | |
| parent | f4bafbfdc7183b4297b96c884a61545000eb7fbd (diff) | |
| download | otp-bfbc7d65c3b2b3741c52047248e193f698287e47.tar.gz otp-bfbc7d65c3b2b3741c52047248e193f698287e47.tar.bz2 otp-bfbc7d65c3b2b3741c52047248e193f698287e47.zip | |
Merge branch 'hb/dialyzer/fix_on_load/OTP-11743'
* hb/dialyzer/fix_on_load/OTP-11743:
FIx handling of 'on_load' attribute
Diffstat (limited to 'lib/dialyzer/src/dialyzer_analysis_callgraph.erl')
| -rw-r--r-- | lib/dialyzer/src/dialyzer_analysis_callgraph.erl | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lib/dialyzer/src/dialyzer_analysis_callgraph.erl b/lib/dialyzer/src/dialyzer_analysis_callgraph.erl index 3de020cb01..2a633c5e37 100644 --- a/lib/dialyzer/src/dialyzer_analysis_callgraph.erl +++ b/lib/dialyzer/src/dialyzer_analysis_callgraph.erl @@ -172,7 +172,7 @@ analysis_start(Parent, Analysis) -> throw:{error, _ErrorMsg} = Error -> exit(Error) end, NewPlt0 = dialyzer_plt:insert_types(Plt, dialyzer_codeserver:get_records(NewCServer)), - ExpTypes = dialyzer_codeserver:get_exported_types(NewCServer), + ExpTypes = dialyzer_codeserver:get_exported_types(NewCServer), NewPlt1 = dialyzer_plt:insert_exported_types(NewPlt0, ExpTypes), State0 = State#analysis_state{plt = NewPlt1}, dump_callgraph(Callgraph, State0, Analysis), @@ -427,11 +427,8 @@ abs_get_nowarn(Abs, M) -> false -> [{M, F, A} || {function, _, F, A, _} <- Abs]; % all functions true -> - OnLoad = - lists:flatten([{M, F, A} || {attribute, _, on_load, {F, A}} <- Abs]), - OnLoad ++ [{M, F, A} || - {nowarn_unused_function, FAs} <- Opts, - {F, A} <- lists:flatten([FAs])] + [{M, F, A} || {nowarn_unused_function, FAs} <- Opts, + {F, A} <- lists:flatten([FAs])] end. get_exported_types_from_core(Core) -> |