diff options
| author | Björn Gustavsson <[email protected]> | 2016-08-16 08:27:39 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2016-09-01 15:16:03 +0200 |
| commit | ae3e177c514c35483184b0cb52c00b4452ca72ac (patch) | |
| tree | 16f509d73b5d8a42b90599acb27f120001e61965 /lib/compiler/test | |
| parent | 73ff49a343c4f18f53e2a923783372e565fcb9d2 (diff) | |
| download | otp-ae3e177c514c35483184b0cb52c00b4452ca72ac.tar.gz otp-ae3e177c514c35483184b0cb52c00b4452ca72ac.tar.bz2 otp-ae3e177c514c35483184b0cb52c00b4452ca72ac.zip | |
compiler: Eliminate use of sys_pre_expand
sys_pre_expand previously did a lot more work, for example,
translating records and funs, but now is merely a grab bag
of small transformations. Move those transformations to
v3_core.
Diffstat (limited to 'lib/compiler/test')
| -rw-r--r-- | lib/compiler/test/compile_SUITE.erl | 9 | ||||
| -rw-r--r-- | lib/compiler/test/compiler.cover | 2 |
2 files changed, 5 insertions, 6 deletions
diff --git a/lib/compiler/test/compile_SUITE.erl b/lib/compiler/test/compile_SUITE.erl index b0148f7103..28a353d27b 100644 --- a/lib/compiler/test/compile_SUITE.erl +++ b/lib/compiler/test/compile_SUITE.erl @@ -403,12 +403,11 @@ other_output(Config) when is_list(Config) -> end], io:put_chars("to_exp (file)"), - {ok,simple,Expand} = compile:file(Simple, [to_exp,binary,time]), - case Expand of - {simple,Exports,Forms} when is_list(Exports), is_list(Forms) -> ok - end, + {ok,[],Expand} = compile:file(Simple, [to_exp,binary,time]), + true = is_list(Expand), + {attribute,_,module,simple} = lists:keyfind(module, 3, Expand), io:put_chars("to_exp (forms)"), - {ok,simple,Expand} = compile:forms(PP, [to_exp,binary,time]), + {ok,[],Expand} = compile:forms(PP, [to_exp,binary,time]), io:put_chars("to_core (file)"), {ok,simple,Core} = compile:file(Simple, [to_core,binary,time]), diff --git a/lib/compiler/test/compiler.cover b/lib/compiler/test/compiler.cover index 3fd7fc1937..2be079944f 100644 --- a/lib/compiler/test/compiler.cover +++ b/lib/compiler/test/compiler.cover @@ -1,5 +1,5 @@ {incl_app,compiler,details}. %% -*- erlang -*- -{excl_mods,compiler,[core_scan,core_parse]}. +{excl_mods,compiler,[core_scan,core_parse,sys_pre_expand]}. |