diff options
| author | John Högberg <[email protected]> | 2019-01-10 17:06:31 +0100 |
|---|---|---|
| committer | John Högberg <[email protected]> | 2019-01-24 08:25:28 +0100 |
| commit | 1c73a313e72909d054f55e321c1929d2be55ff11 (patch) | |
| tree | 7e3a45c2ee9b62ba2a889d4984576b9cee5de438 /lib/compiler/test/test_lib.erl | |
| parent | b7db13e2f3ef6990367fb2cc08263da8a57e7414 (diff) | |
| download | otp-1c73a313e72909d054f55e321c1929d2be55ff11.tar.gz otp-1c73a313e72909d054f55e321c1929d2be55ff11.tar.bz2 otp-1c73a313e72909d054f55e321c1929d2be55ff11.zip | |
beam_ssa_opt: Add a scaffold for module-level optimizations
This serves as a base for the upcoming module-level type
optimization, but may come in handy for other passes like
beam_ssa_funs and beam_ssa_bsm that have their own ad-hoc
implementations.
Diffstat (limited to 'lib/compiler/test/test_lib.erl')
| -rw-r--r-- | lib/compiler/test/test_lib.erl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/compiler/test/test_lib.erl b/lib/compiler/test/test_lib.erl index 4502f5b68a..08f2e8fae9 100644 --- a/lib/compiler/test/test_lib.erl +++ b/lib/compiler/test/test_lib.erl @@ -81,6 +81,7 @@ opt_opts(Mod) -> (no_put_tuple2) -> true; (no_bsm3) -> true; (no_bsm_opt) -> true; + (no_module_opt) -> true; (_) -> false end, Opts). @@ -93,8 +94,9 @@ get_data_dir(Config) -> Opts = [{return,list}], Data1 = re:replace(Data0, "_no_opt_SUITE", "_SUITE", Opts), Data2 = re:replace(Data1, "_post_opt_SUITE", "_SUITE", Opts), - Data = re:replace(Data2, "_inline_SUITE", "_SUITE", Opts), - re:replace(Data, "_r21_SUITE", "_SUITE", Opts). + Data3 = re:replace(Data2, "_inline_SUITE", "_SUITE", Opts), + Data4 = re:replace(Data3, "_r21_SUITE", "_SUITE", Opts), + re:replace(Data4, "_no_module_opt_SUITE", "_SUITE", Opts). is_cloned_mod(Mod) -> is_cloned_mod_1(atom_to_list(Mod)). @@ -105,6 +107,7 @@ is_cloned_mod_1("no_opt_SUITE") -> true; is_cloned_mod_1("post_opt_SUITE") -> true; is_cloned_mod_1("inline_SUITE") -> true; is_cloned_mod_1("21_SUITE") -> true; +is_cloned_mod_1("no_module_opt_SUITE") -> true; is_cloned_mod_1([_|T]) -> is_cloned_mod_1(T); is_cloned_mod_1([]) -> false. |