diff options
| author | Hans Bolinder <[email protected]> | 2014-10-30 08:59:41 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-04-30 12:15:24 +0200 |
| commit | b63838ebab1750171ad60e086126431407f0c1b6 (patch) | |
| tree | cb43539acedb82c5f2e855e130650c0e8c7a5761 /lib/kernel/test/code_SUITE.erl | |
| parent | c09a581ea58eaa120c1e2a0765c4e183f5cb3721 (diff) | |
| download | otp-b63838ebab1750171ad60e086126431407f0c1b6.tar.gz otp-b63838ebab1750171ad60e086126431407f0c1b6.tar.bz2 otp-b63838ebab1750171ad60e086126431407f0c1b6.zip | |
kernel: Use module erl_anno
Diffstat (limited to 'lib/kernel/test/code_SUITE.erl')
| -rw-r--r-- | lib/kernel/test/code_SUITE.erl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/kernel/test/code_SUITE.erl b/lib/kernel/test/code_SUITE.erl index afedc17e57..549c65d034 100644 --- a/lib/kernel/test/code_SUITE.erl +++ b/lib/kernel/test/code_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2013. All Rights Reserved. +%% Copyright Ericsson AB 1996-2015. 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 @@ -1396,8 +1396,9 @@ on_load_binary(_) -> {tuple,6,[{atom,6,Mod},{call,6,{atom,6,self},[]}]}}, {'receive',7,[{clause,8,[{atom,8,go}],[],[{atom,8,ok}]}]}]}]}, {function,11,ok,0,[{clause,11,[],[],[{atom,11,true}]}]}], - {ok,Mod,Bin} = compile:forms(Forms, [report]), - [io:put_chars(erl_pp:form(F)) || F <- Forms], + Forms1 = erl_parse:new_anno(Forms), + {ok,Mod,Bin} = compile:forms(Forms1, [report]), + [io:put_chars(erl_pp:form(F)) || F <- Forms1], {Pid1,Ref1} = spawn_monitor(fun() -> code:load_binary(Mod, File, Bin), |