emulator: Use module erl_anno

1 files changed, 8 insertions, 4 deletions

diff --git a/erts/emulator/test/op_SUITE.erl b/erts/emulator/test/op_SUITE.erl
index ef4689b850..26f6837f19 100644
--- a/erts/emulator/test/op_SUITE.erl
+++ b/erts/emulator/test/op_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %% 
-%% Copyright Ericsson AB 1999-2011. All Rights Reserved.
+%% Copyright Ericsson AB 1999-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
@@ -273,7 +273,8 @@ run_test_module(Cases, GuardsOk) ->
     ?line Bbts = lists:foldr(fun internal_bif/2, [Ok], Es),
     ?line Fun3 = make_function(bif_tests, Bbts),
     ?line Id = {function,1,id,1,[{clause,1,[{var,1,'I'}],[],[{var,1,'I'}]}]},
-    ?line Module = make_module(op_tests, [Fun1,Fun2,Fun3,Id]),
+    Module0 = make_module(op_tests, [Fun1,Fun2,Fun3,Id]),
+    Module = erl_parse:new_anno(Module0),
     ?line lists:foreach(fun(F) -> io:put_chars([erl_pp:form(F),"\n"]) end, Module),
 
     %% Compile, load, and run the generated module.
@@ -365,13 +366,16 @@ make_module(Name, Funcs) ->
 make_function(Name, Body) ->
     {function,1,Name,0,[{clause,1,[],[],Body}]}.
        
-eval(E) ->
+eval(E0) ->
+    E = erl_parse:new_anno(E0),
     ?line case catch erl_eval:exprs(E, []) of
 	      {'EXIT',Reason} -> {'EXIT',Reason};
 	      {value,Val,_Bs} -> Val
 	  end.
 
-unvalue(V) -> erl_parse:abstract(V).
+unvalue(V) ->
+    Abstr = erl_parse:abstract(V),
+    erl_parse:anno_to_term(Abstr).
     
 value({nil,_}) -> [];
 value({integer,_,X}) -> X;