diff options
author | Hans Bolinder <[email protected]> | 2014-10-27 13:46:57 +0100 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2015-04-30 12:14:29 +0200 |
commit | fe070a32f9f685ef4df1a5123e9328bb82e3947a (patch) | |
tree | 988d385bccf5a1b77f35a89826738057f61ce434 /erts/emulator/test/code_parallel_load_SUITE.erl | |
parent | 9e997149c96049fea7214b3a16f7758a01b0f691 (diff) | |
download | otp-fe070a32f9f685ef4df1a5123e9328bb82e3947a.tar.gz otp-fe070a32f9f685ef4df1a5123e9328bb82e3947a.tar.bz2 otp-fe070a32f9f685ef4df1a5123e9328bb82e3947a.zip |
emulator: Use module erl_anno
Diffstat (limited to 'erts/emulator/test/code_parallel_load_SUITE.erl')
-rw-r--r-- | erts/emulator/test/code_parallel_load_SUITE.erl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/erts/emulator/test/code_parallel_load_SUITE.erl b/erts/emulator/test/code_parallel_load_SUITE.erl index 428f1242ab..bcec8fa640 100644 --- a/erts/emulator/test/code_parallel_load_SUITE.erl +++ b/erts/emulator/test/code_parallel_load_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2012-2013. All Rights Reserved. +%% Copyright Ericsson AB 2012-2014. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -190,13 +190,15 @@ handle_cpc_responses(N, Tag, Module) -> generate(Module, Attributes, FunStrings) -> FunForms = function_forms(FunStrings), Forms = [ - {attribute,1,module,Module}, - {attribute,2,export,[FA || {FA,_} <- FunForms]} - ] ++ [{attribute, 3, A, V}|| {A, V} <- Attributes] ++ + {attribute,a(1),module,Module}, + {attribute,a(2),export,[FA || {FA,_} <- FunForms]} + ] ++ [{attribute, a(3), A, V}|| {A, V} <- Attributes] ++ [ Function || {_, Function} <- FunForms], {ok, Module, Bin} = compile:forms(Forms), Bin. +a(L) -> + erl_anno:new(L). function_forms([]) -> []; function_forms([S|Ss]) -> |