diff options
| author | Björn Gustavsson <[email protected]> | 2019-08-16 13:20:45 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2019-08-16 13:20:45 +0200 |
| commit | 6ac50b6386149b6825996d58a9c24d442b1b7824 (patch) | |
| tree | cb29923febe1842359562345122dfee1ce0aeca2 | |
| parent | d68d23a129b4c916105a1eff7323a4338092dd2c (diff) | |
| parent | a536cb2201d7d0d35408799a0f126afd7064a1c3 (diff) | |
| download | otp-6ac50b6386149b6825996d58a9c24d442b1b7824.tar.gz otp-6ac50b6386149b6825996d58a9c24d442b1b7824.tar.bz2 otp-6ac50b6386149b6825996d58a9c24d442b1b7824.zip | |
Merge branch 'maint'
* maint:
Fix an internal consistency check failure caused by beam_except
| -rw-r--r-- | lib/compiler/test/beam_except_SUITE.erl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/compiler/test/beam_except_SUITE.erl b/lib/compiler/test/beam_except_SUITE.erl index 67947dc292..f52239f2a8 100644 --- a/lib/compiler/test/beam_except_SUITE.erl +++ b/lib/compiler/test/beam_except_SUITE.erl @@ -72,11 +72,25 @@ bs_get_tail(Config) -> {function_clause, [{?MODULE,bs_get_tail_1,[<<>>,0,0,Config],_}|_]}} = (catch bs_get_tail_1(id(<<>>), 0, 0, Config)), + + ok = bs_get_tail_2(<<"W">>, <<"X">>, <<"Z">>), + ok = bs_get_tail_2(<<"M">>, <<"X">>, <<"Z">>), + {'EXIT', + {function_clause, + [{?MODULE,do_get_bs_tail_2,[<<"A">>,<<"B">>,[],<<"C">>],_}|_]}} = + (catch bs_get_tail_2(<<"A">>, <<"B">>, <<"C">>)), + ok. bs_get_tail_1(<<_:32, Rest/binary>>, Z1, Z2, F1) -> {Rest,Z1,Z2,F1}. +bs_get_tail_2(A, B, C) -> + do_get_bs_tail_2(A, B, [], C). + +do_get_bs_tail_2(<<"W">>, <<"X">>, _, <<"Z">>) -> ok; +do_get_bs_tail_2(<<"M">>, <<"X">>, _, <<"Z">>) -> ok. + coverage(_) -> File = {file,"fake.erl"}, ok = fc(a), |