diff options
| author | Erlang/OTP <[email protected]> | 2019-07-10 18:05:11 +0200 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2019-07-10 18:05:11 +0200 |
| commit | 0a1020a860576502ca2c442b2ffd6faba3207217 (patch) | |
| tree | e26660518783d87e46262d38d51207e73e7f582e /lib/compiler/src/beam_ssa_pre_codegen.erl | |
| parent | fa5e2cae48323a391ff65512a972d6c9f4ba4119 (diff) | |
| parent | 9ca0e82455297040069b8274649e7ddd28a5d65b (diff) | |
| download | otp-0a1020a860576502ca2c442b2ffd6faba3207217.tar.gz otp-0a1020a860576502ca2c442b2ffd6faba3207217.tar.bz2 otp-0a1020a860576502ca2c442b2ffd6faba3207217.zip | |
Merge branch 'john/compiler/fix-bad-try_catch-recv-fix/OTP-15953/ERL-999' into maint-22
* john/compiler/fix-bad-try_catch-recv-fix/OTP-15953/ERL-999:
compiler: Fix compiler crash introduced by OTP-15952
Diffstat (limited to 'lib/compiler/src/beam_ssa_pre_codegen.erl')
| -rw-r--r-- | lib/compiler/src/beam_ssa_pre_codegen.erl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/compiler/src/beam_ssa_pre_codegen.erl b/lib/compiler/src/beam_ssa_pre_codegen.erl index a2e687930b..7ef604d444 100644 --- a/lib/compiler/src/beam_ssa_pre_codegen.erl +++ b/lib/compiler/src/beam_ssa_pre_codegen.erl @@ -1472,10 +1472,14 @@ find_loop_exit([L1,L2|_Ls], Blocks) -> find_loop_exit_1(Path1, cerl_sets:from_list(Path2)); find_loop_exit(_, _) -> none. +find_loop_exit_1([?BADARG_BLOCK | T], OtherPath) -> + %% ?BADARG_BLOCK is a marker and not an actual block, so we can't consider + %% it to be a common block even if both paths cross it. + find_loop_exit_1(T, OtherPath); find_loop_exit_1([H|T], OtherPath) -> case cerl_sets:is_element(H, OtherPath) of true -> H; - false -> find_loop_exit_1(T, OtherPath) + false -> find_loop_exit_1(T, OtherPath) end; find_loop_exit_1([], _) -> none. |