diff options
| author | Björn Gustavsson <[email protected]> | 2012-01-04 11:40:08 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-01-04 11:40:08 +0100 |
| commit | ca5c9b93a0527c95977cb276ab957acc1ca404fa (patch) | |
| tree | fcd6e64324f25b0a415380764441bc2f0181c303 /lib/compiler/test/compilation_SUITE.erl | |
| parent | c9b489be03b0fce477e807182846c03fb200ef94 (diff) | |
| parent | 726f6e4c7afe8ce37b30eedbebe583e7b9bfc51b (diff) | |
| download | otp-ca5c9b93a0527c95977cb276ab957acc1ca404fa.tar.gz otp-ca5c9b93a0527c95977cb276ab957acc1ca404fa.tar.bz2 otp-ca5c9b93a0527c95977cb276ab957acc1ca404fa.zip | |
Merge branch 'bjorn/compiler/match-fail/OTP-9842' into maint
* bjorn/compiler/match-fail/OTP-9842:
Add the beam_except pass to optimize exceptions
Eliminate the match_fail primop in v3_kernel and later passes
Diffstat (limited to 'lib/compiler/test/compilation_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/compilation_SUITE.erl | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/lib/compiler/test/compilation_SUITE.erl b/lib/compiler/test/compilation_SUITE.erl index 1343fbd1c9..1f17664b54 100644 --- a/lib/compiler/test/compilation_SUITE.erl +++ b/lib/compiler/test/compilation_SUITE.erl @@ -44,7 +44,7 @@ all() -> trycatch_4, opt_crash, otp_5404, otp_5436, otp_5481, otp_5553, otp_5632, otp_5714, otp_5872, otp_6121, otp_6121a, otp_6121b, otp_7202, otp_7345, on_load, - string_table,otp_8949_a,otp_8949_a]. + string_table,otp_8949_a,otp_8949_a,split_cases]. groups() -> [{vsn, [], [vsn_1, vsn_2, vsn_3]}]. @@ -657,5 +657,19 @@ otp_8949_b(A, B) -> id(Var) end. +split_cases(_) -> + dummy1 = do_split_cases(x), + {'EXIT',{{badmatch,b},_}} = (catch do_split_cases(y)), + ok. + +do_split_cases(A) -> + case A of + x -> + Z = dummy1; + _ -> + Z = dummy2, + a=b + end, + Z. id(I) -> I. |