diff options
| author | Hans Bolinder <[email protected]> | 2018-02-05 12:34:26 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2018-02-05 14:45:37 +0100 |
| commit | 35fa9cbcb2b8299ada7e5a9d9db3f70ff47f5444 (patch) | |
| tree | 11bd1b64859c4d2375af144b36127726db73cd20 /lib/dialyzer/test/behaviour_SUITE_data | |
| parent | 9cadd05e3ef7ee93d409b7e4ddb7c0b83b84bce0 (diff) | |
| download | otp-35fa9cbcb2b8299ada7e5a9d9db3f70ff47f5444.tar.gz otp-35fa9cbcb2b8299ada7e5a9d9db3f70ff47f5444.tar.bz2 otp-35fa9cbcb2b8299ada7e5a9d9db3f70ff47f5444.zip | |
dialyzer: Do not call erlang:get_stacktrace()
Diffstat (limited to 'lib/dialyzer/test/behaviour_SUITE_data')
| -rw-r--r-- | lib/dialyzer/test/behaviour_SUITE_data/src/proper/proper_typeserver.erl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/dialyzer/test/behaviour_SUITE_data/src/proper/proper_typeserver.erl b/lib/dialyzer/test/behaviour_SUITE_data/src/proper/proper_typeserver.erl index b16075763f..12f6532c0c 100644 --- a/lib/dialyzer/test/behaviour_SUITE_data/src/proper/proper_typeserver.erl +++ b/lib/dialyzer/test/behaviour_SUITE_data/src/proper/proper_typeserver.erl @@ -539,7 +539,7 @@ apply_spec_test({Mod,Fun,_Arity}=MFA, {_Domain,Range}, SpecTimeout, FalsePositiv try apply(Mod, Fun, Args) of X -> {ok, X} catch - X:Y -> {X, Y} + X:Y:S -> {{X, Y}, S} end, case Result of {ok, Z} -> @@ -551,15 +551,15 @@ apply_spec_test({Mod,Fun,_Arity}=MFA, {_Domain,Range}, SpecTimeout, FalsePositiv false -> false end; - Exception when is_function(FalsePositiveMFAs) -> + {Exception, S2} when is_function(FalsePositiveMFAs) -> case FalsePositiveMFAs(MFA, Args, Exception) of true -> true; false -> - error(Exception, erlang:get_stacktrace()) + error(Exception, S2) end; - Exception -> - error(Exception, erlang:get_stacktrace()) + {Exception, S3} -> + error(Exception, S3) end end). |