diff options
| author | Hans Bolinder <[email protected]> | 2014-04-15 09:38:41 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2014-04-28 11:56:26 +0200 |
| commit | 146260727638e8a477aeda7828364ce45dc506a0 (patch) | |
| tree | c54b396192cb875eea1c474baff18c136473b95c /lib/dialyzer/src/dialyzer_succ_typings.erl | |
| parent | 3be1dc100140139b2542cd327cf4f8453d43aca1 (diff) | |
| download | otp-146260727638e8a477aeda7828364ce45dc506a0.tar.gz otp-146260727638e8a477aeda7828364ce45dc506a0.tar.bz2 otp-146260727638e8a477aeda7828364ce45dc506a0.zip | |
Introduce the attribute -optional_callbacks in the context of behaviours
Diffstat (limited to 'lib/dialyzer/src/dialyzer_succ_typings.erl')
| -rw-r--r-- | lib/dialyzer/src/dialyzer_succ_typings.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/dialyzer/src/dialyzer_succ_typings.erl b/lib/dialyzer/src/dialyzer_succ_typings.erl index ef9b00e203..fa034816a4 100644 --- a/lib/dialyzer/src/dialyzer_succ_typings.erl +++ b/lib/dialyzer/src/dialyzer_succ_typings.erl @@ -201,7 +201,7 @@ postprocess_dataflow_warns([{?WARN_CONTRACT_RANGE, {CallF, CallL}, Msg}|Rest], Codeserver, WAcc, Acc) -> {contract_range, [Contract, M, F, A, ArgStrings, CRet]} = Msg, case dialyzer_codeserver:lookup_mfa_contract({M,F,A}, Codeserver) of - {ok, {{ContrF, _ContrL} = FileLine, _C}} -> + {ok, {{ContrF, _ContrL} = FileLine, _C, _X}} -> case CallF =:= ContrF of true -> NewMsg = {contract_range, [Contract, M, F, ArgStrings, CallL, CRet]}, @@ -401,7 +401,7 @@ decorate_succ_typings(Contracts, Callgraph, FunTypes, FindOpaques) -> case dialyzer_callgraph:lookup_name(Label, Callgraph) of {ok, MFA} -> case orddict:find(MFA, Contracts) of - {ok, {_FileLine, Contract}} -> + {ok, {_FileLine, Contract, _Xtra}} -> Args = dialyzer_contracts:get_contract_args(Contract), Ret = dialyzer_contracts:get_contract_return(Contract), C = erl_types:t_fun(Args, Ret), |