From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001 From: Erlang/OTP Date: Fri, 20 Nov 2009 14:54:40 +0000 Subject: The R13B03 release. --- lib/compiler/test/bs_shadowed_size_var.core | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 lib/compiler/test/bs_shadowed_size_var.core (limited to 'lib/compiler/test/bs_shadowed_size_var.core') diff --git a/lib/compiler/test/bs_shadowed_size_var.core b/lib/compiler/test/bs_shadowed_size_var.core new file mode 100644 index 0000000000..d1d5ebba6d --- /dev/null +++ b/lib/compiler/test/bs_shadowed_size_var.core @@ -0,0 +1,25 @@ +module 'bs_shadowed_size_var' ['filter_essentials'/1] + attributes [] + +%% Reduced code from beam_asm inlined using the old inliner. + +'filter_essentials'/1 = + fun (_cor0) -> + case _cor0 of + <[#{#(32,1,'integer',['unsigned','big']) }#|T]> when 'true' -> + let <_cor4> = + case T of + %% Variable 'Sz' repeated here. Should work. + <#{#(32,1,'integer',['unsigned','big']), + #(Sz,8,'binary',['unsigned','big'])}#> when 'true' -> + Data + <_cor5> when 'true' -> + primop 'match_fail' + ({'case_clause',{_cor5}}) + end + in [Sz|_cor4] + <_cor5> when 'true' -> + primop 'match_fail' + ({'function_clause',_cor5}) + end +end -- cgit v1.2.3