diff options
author | John Högberg <[email protected]> | 2018-09-24 08:03:21 +0200 |
---|---|---|
committer | John Högberg <[email protected]> | 2018-09-28 11:40:12 +0200 |
commit | afa36d2081927c46a4c3ddceb40276fc7756bb51 (patch) | |
tree | 91b9b44beb2291e5fbc086be9951937a636fc449 /lib/hipe/test/basic_SUITE_data | |
parent | 1fbaf155b579bfb1fdec4ac97f7b5fa2211673c6 (diff) | |
download | otp-afa36d2081927c46a4c3ddceb40276fc7756bb51.tar.gz otp-afa36d2081927c46a4c3ddceb40276fc7756bb51.tar.bz2 otp-afa36d2081927c46a4c3ddceb40276fc7756bb51.zip |
hipe: Document new limitations and disable known failing tests
Diffstat (limited to 'lib/hipe/test/basic_SUITE_data')
-rw-r--r-- | lib/hipe/test/basic_SUITE_data/basic_inline_function.erl | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/lib/hipe/test/basic_SUITE_data/basic_inline_function.erl b/lib/hipe/test/basic_SUITE_data/basic_inline_function.erl deleted file mode 100644 index 4c08064670..0000000000 --- a/lib/hipe/test/basic_SUITE_data/basic_inline_function.erl +++ /dev/null @@ -1,73 +0,0 @@ -%%% -*- erlang-indent-level: 2 -*- -%%%------------------------------------------------------------------- -%%% Author: Kostis Sagonas -%%% -%%% Contains tests that depend on the compiler inliner being turned on. -%%%------------------------------------------------------------------- --module(basic_inline_function). - --export([test/0]). - --compile({inline, [{to_objects, 3}]}). - -test() -> - ok = test_inline_match(), - ok. - -%%-------------------------------------------------------------------- - -test_inline_match() -> - bad_object = test1(a, {binary, foo, set}, c), - bad_object = test2(a, {binary, foo, set}, c), - bad_object = test3(a, {binary, foo, set}, c), - ok. - -%% Inlined -test1(KeysObjs, C, Ts) -> - case catch to_objects(KeysObjs, C, Ts) of - {'EXIT', _} -> - bad_object; - ok -> - ok - end. - -%% "Inlined" by hand -test2(KeysObjs, C, _Ts) -> - case catch (case C of - {binary, _, set} -> - <<_ObjSz0:32, _T/binary>> = KeysObjs; - _ -> ok - end) of - {'EXIT', _} -> - bad_object; - ok -> - ok - end. - -%% Not inlined -test3(KeysObjs, C, Ts) -> - case catch fto_objects(KeysObjs, C, Ts) of - {'EXIT', _} -> - bad_object; - ok -> - ok - end. - -%% Inlined. -to_objects(Bin, {binary, _, set}, _Ts) -> - <<_ObjSz0:32, _T/binary>> = Bin, - ok; -to_objects(<<_ObjSz0:32, _T/binary>> ,_, _) -> - ok; -to_objects(_Bin, _, _Ts) -> - ok. - -%% Not Inlined. -fto_objects(Bin, {binary, _, set}, _Ts) -> - <<_ObjSz0:32, _T/binary>> = Bin, - ok; -fto_objects(<<_ObjSz0:32, _T/binary>> ,_,_) -> - ok; -fto_objects(_Bin, _, _Ts) -> - ok. - |