diff options
author | Björn Gustavsson <[email protected]> | 2016-11-23 12:16:25 +0100 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2016-11-23 12:16:25 +0100 |
commit | 480ddeaa1217411e07d694595e458a084c44b4f1 (patch) | |
tree | e9a4e6451e732559d46b86fb23dd1f356c114d2f /lib/compiler/test | |
parent | 3c8ba27ed87707942c357ade1d1f2471700f4203 (diff) | |
parent | 9cac4f15d84a7682f17dee01c0ce4a12bac5d9ff (diff) | |
download | otp-480ddeaa1217411e07d694595e458a084c44b4f1.tar.gz otp-480ddeaa1217411e07d694595e458a084c44b4f1.tar.bz2 otp-480ddeaa1217411e07d694595e458a084c44b4f1.zip |
Merge branch 'maint'
* maint:
Update primary bootstrap
document {yield/nb_yield}() limitation
Suppress warnings from v3_kernel when inlining is turned on
Diffstat (limited to 'lib/compiler/test')
-rw-r--r-- | lib/compiler/test/warnings_SUITE.erl | 28 |
1 files changed, 26 insertions, 2 deletions
diff --git a/lib/compiler/test/warnings_SUITE.erl b/lib/compiler/test/warnings_SUITE.erl index 35f7db82bd..72ead22191 100644 --- a/lib/compiler/test/warnings_SUITE.erl +++ b/lib/compiler/test/warnings_SUITE.erl @@ -42,7 +42,7 @@ comprehensions/1,maps/1,maps_bin_opt_info/1, redundant_boolean_clauses/1, latin1_fallback/1,underscore/1,no_warnings/1, - bit_syntax/1]). + bit_syntax/1,inlining/1]). init_per_testcase(_Case, Config) -> Config. @@ -65,7 +65,7 @@ groups() -> bin_opt_info,bin_construction,comprehensions,maps, maps_bin_opt_info, redundant_boolean_clauses,latin1_fallback, - underscore,no_warnings,bit_syntax]}]. + underscore,no_warnings,bit_syntax,inlining]}]. init_per_suite(Config) -> Config. @@ -822,6 +822,30 @@ bit_syntax(Config) -> run(Config, Ts), ok. +inlining(Config) -> + %% Make sure that no spurious warnings are generated + %% when inlining. + Ts = [{inlining_1, + <<"-compile(inline). + compute1(X) -> add(X, 0). + add(1, 0) -> 1; + add(1, Y) -> 1 + Y; + add(X, Y) -> X + Y. + ">>, + [], + []}, + {inlining_2, + <<"-compile({inline,[add/2]}). + compute1(X) -> add(X, 0). + add(1, 0) -> 1; + add(1, Y) -> 1 + Y; + add(X, Y) -> X + Y. + ">>, + [], + []} + ], + run(Config, Ts), + ok. %%% %%% End of test cases. |