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. --- .../test/guard_SUITE_data/guard_SUITE_tuple_size.S | 30 ++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 lib/compiler/test/guard_SUITE_data/guard_SUITE_tuple_size.S (limited to 'lib/compiler/test/guard_SUITE_data/guard_SUITE_tuple_size.S') diff --git a/lib/compiler/test/guard_SUITE_data/guard_SUITE_tuple_size.S b/lib/compiler/test/guard_SUITE_data/guard_SUITE_tuple_size.S new file mode 100644 index 0000000000..c0bf04ed8f --- /dev/null +++ b/lib/compiler/test/guard_SUITE_data/guard_SUITE_tuple_size.S @@ -0,0 +1,30 @@ +{module, guard_SUITE_tuple_size}. %% version = 0 + +{exports, [{t,1}]}. + +{attributes, []}. + +{labels, 5}. + + +{function, t, 1, 2}. + {label,1}. + {func_info,{atom,guard_SUITE_tuple_size},{atom,t},1}. + {label,2}. + {bif,tuple_size,{f,4},[{x,0}],{x,1}}. + {test,is_eq_exact,{f,4},[{x,1},{integer,4}]}. + {test,is_tuple,{f,3},[{x,0}]}. + {test,test_arity,{f,3},[{x,0},4]}. + {get_tuple_element,{x,0},0,{x,5}}. + {get_tuple_element,{x,0},1,{x,2}}. + {get_tuple_element,{x,0},2,{x,3}}. + {get_tuple_element,{x,0},3,{x,4}}. + {gc_bif,'+',{f,0},5,[{x,1},{x,2}],{x,0}}. + {gc_bif,'+',{f,0},5,[{x,0},{x,3}],{x,0}}. + {gc_bif,'+',{f,0},5,[{x,0},{x,4}],{x,0}}. + {gc_bif,'+',{f,0},5,[{x,0},{x,5}],{x,0}}. + return. + {label,3}. + {badmatch,{x,0}}. + {label,4}. + {jump,{f,1}}. -- cgit v1.2.3