Merge pull request erlang#8284 from bjorng/bjorn/compiler/fix-bs_ensure/

erlangGH-8280/OTP-19035

Fix failing binary match

lib/compiler/src/beam_ssa_codegen.erl

@@ -2260,6 +2260,10 @@ bs_translate([]) -> [].
 
 bs_translate_collect([I|Is]=Is0, Ctx, Fail, Acc) ->
     case bs_translate_instr(I) of
+        {Ctx,_,{ensure_at_least,_,_}} ->
+            %% There should only be a single `ensure_at_least`
+            %% instruction in each `bs_match` instruction.
+            {bs_translate_fixup(Acc),Fail,Is0};
         {Ctx,Fail,Instr} ->
             bs_translate_collect(Is, Ctx, Fail, [Instr|Acc]);
         {Ctx,{f,0},Instr} ->

lib/compiler/src/beam_ssa_opt.erl

@@ -304,8 +304,8 @@ late_epilogue_passes(Opts) ->
           ?PASS(ssa_opt_sink),
           ?PASS(ssa_opt_blockify),
           ?PASS(ssa_opt_redundant_br),
-          ?PASS(ssa_opt_bs_ensure),
           ?PASS(ssa_opt_merge_blocks),
+          ?PASS(ssa_opt_bs_ensure),
           ?PASS(ssa_opt_try),
           ?PASS(ssa_opt_get_tuple_element),
           ?PASS(ssa_opt_tail_literals),
@@ -3321,14 +3321,23 @@ redundant_br_safe_bool(Is, Bool) ->
     end.
 
 %%%
-%%% Add the bs_ensure instruction before a sequence of `bs_match`
+%%% Add the `bs_ensure` instruction before a sequence of `bs_match`
 %%% (SSA) instructions, each having a literal size and the
 %%% same failure label.
 %%%
 %%% This is the first part of building the `bs_match` (BEAM)
 %%% instruction that can match multiple segments having the same
 %%% failure label.
 %%%
+%%% It is beneficial but not essential to run this pass after
+%%% the `merge_blocks/1` pass. For the following example, two separate
+%%% `bs_match/1` instructions will emitted if blocks have not been
+%%% merged before this pass:
+%%%
+%%%    A = 0,
+%%%    B = <<1, 2, 3>>,
+%%%    <<A, B:(byte_size(B))/binary>> = <<0, 1, 2, 3>>
+%%%
 
 ssa_opt_bs_ensure({#opt_st{ssa=Blocks0,cnt=Count0}=St, FuncDb}) when is_map(Blocks0) ->
     RPO = beam_ssa:rpo(Blocks0),

lib/compiler/test/bs_match_SUITE.erl

@@ -2726,6 +2726,8 @@ bs_match(_Config) ->
 
     {'EXIT',{{badmatch,<<>>},_}} = catch do_bs_match_gh_7467(<<>>),
 
+    {0,<<1,2,3>>} = do_bs_match_gh_8280(),
+
     ok.
 
 do_bs_match_1(_, X) ->
@@ -2800,6 +2802,12 @@ do_bs_match_gh_6755(B) ->
 do_bs_match_gh_7467(A) ->
     do_bs_match_gh_7467(<<_:1/bits>> = A).
 
+do_bs_match_gh_8280() ->
+    A = 0,
+    B = <<1, 2, 3>>,
+    <<A, B:(byte_size(B))/binary>> = id(<<0, 1, 2, 3>>),
+    {A, B}.
+
 %% GH-6348/OTP-18297: Allow aliases for binaries.
 -record(ba_foo, {a,b,c}).