diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2015-06-17 10:37:14 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2015-06-17 10:37:14 +0200 |
| commit | 1638cd602d321903fbf9cb03a83e28ec0d55f965 (patch) | |
| tree | 6caa26d365300e7228db7547f7cd61ab4e34d3cf /lib/compiler/src/beam_jump.erl | |
| parent | 5fc3d37e65d31dea7938750a3d75c7a1f7ebbd25 (diff) | |
| parent | d2c8888a93378b19a3a3ca3be100ff583cff1fd3 (diff) | |
| download | otp-1638cd602d321903fbf9cb03a83e28ec0d55f965.tar.gz otp-1638cd602d321903fbf9cb03a83e28ec0d55f965.tar.bz2 otp-1638cd602d321903fbf9cb03a83e28ec0d55f965.zip | |
Merge branch 'egil/fix-compiler-beam_bool/OTP-12844'
* egil/fix-compiler-beam_bool/OTP-12844:
compiler: Add regressions_SUITE
compiler: Fix beam_bool pass for get_map_elements
Diffstat (limited to 'lib/compiler/src/beam_jump.erl')
| -rw-r--r-- | lib/compiler/src/beam_jump.erl | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lib/compiler/src/beam_jump.erl b/lib/compiler/src/beam_jump.erl index 80b2998ddc..5bfaa41b7d 100644 --- a/lib/compiler/src/beam_jump.erl +++ b/lib/compiler/src/beam_jump.erl @@ -490,16 +490,17 @@ is_label_used_in_1([], _, _) -> false. is_label_used_in_block({set,_,_,Info}, Lbl) -> case Info of - {bif,_,{f,F}} -> F =:= Lbl; - {alloc,_,{gc_bif,_,{f,F}}} -> F =:= Lbl; + {bif,_,{f,F}} -> F =:= Lbl; + {alloc,_,{gc_bif,_,{f,F}}} -> F =:= Lbl; {alloc,_,{put_map,_,{f,F}}} -> F =:= Lbl; - {'catch',{f,F}} -> F =:= Lbl; - {alloc,_,_} -> false; - {put_tuple,_} -> false; - {get_tuple_element,_} -> false; - {set_tuple_element,_} -> false; - {line,_} -> false; - _ when is_atom(Info) -> false + {get_map_elements,{f,F}} -> F =:= Lbl; + {'catch',{f,F}} -> F =:= Lbl; + {alloc,_,_} -> false; + {put_tuple,_} -> false; + {get_tuple_element,_} -> false; + {set_tuple_element,_} -> false; + {line,_} -> false; + _ when is_atom(Info) -> false end. %% remove_unused_labels(Instructions0) -> Instructions |