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. --- .../beam_validator_SUITE_data/accessing_tags.S | 31 ++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 lib/compiler/test/beam_validator_SUITE_data/accessing_tags.S (limited to 'lib/compiler/test/beam_validator_SUITE_data/accessing_tags.S') diff --git a/lib/compiler/test/beam_validator_SUITE_data/accessing_tags.S b/lib/compiler/test/beam_validator_SUITE_data/accessing_tags.S new file mode 100644 index 0000000000..2728a2fa32 --- /dev/null +++ b/lib/compiler/test/beam_validator_SUITE_data/accessing_tags.S @@ -0,0 +1,31 @@ +{module, accessing_tags}. %% version = 0 + +{exports, [{foo,1},{bar,1}]}. + +{attributes, []}. + +{function, foo, 1, 2}. + {label,1}. + {func_info,{atom,accessing_tags},{atom,foo},1}. + {label,2}. + {allocate,1,1}. + {'catch',{y,0},{f,3}}. + {move,{y,0},{x,0}}. %Retrieve the catch tag. + {call,1,{f,2}}. + {label,3}. + {catch_end,{y,0}}. + {deallocate,1}. + return. + +{function, bar, 1, 5}. + {label,4}. + {func_info,{atom,accessing_tags},{atom,bar},1}. + {label,5}. + {allocate,1,1}. + {'try',{y,0},{f,6}}. + {move,{y,0},{x,0}}. %Retrieve the try tag. + {call,5,{f,2}}. + {label,6}. + {catch_end,{y,0}}. + {deallocate,1}. + return. -- cgit v1.2.3