stdlib: Use module erl_anno

1 files changed, 20 insertions, 8 deletions

diff --git a/lib/stdlib/src/escript.erl b/lib/stdlib/src/escript.erl
index 90e1f3a8d6..f0827009a5 100644
--- a/lib/stdlib/src/escript.erl
+++ b/lib/stdlib/src/escript.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2007-2014. All Rights Reserved.
+%% Copyright Ericsson AB 2007-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
@@ -620,12 +620,13 @@ parse_source(S, File, Fd, StartLine, HeaderSz, CheckOnly) ->
                     {ok, {attribute,_, module, M} = Form} ->
                         epp_parse_file(Epp, S2#state{module = M}, [Form, FileForm]);
                     {ok, _} ->
-                        ModForm = {attribute,1,module, Module},
+                        ModForm = {attribute,a1(),module, Module},
                         epp_parse_file2(Epp, S2, [ModForm, FileForm], OptModRes);
                     {error, _} ->
                         epp_parse_file2(Epp, S2, [FileForm], OptModRes);
-                    {eof, _LastLine} = Eof ->
-                        S#state{forms_or_bin = [FileForm, Eof]}
+                    {eof, LastLine} ->
+                        Anno = anno(LastLine),
+                        S#state{forms_or_bin = [FileForm, {eof, Anno}]}
                 end,
             ok = epp:close(Epp),
             ok = file:close(Fd),
@@ -644,7 +645,7 @@ check_source(S, CheckOnly) ->
 	    %% Optionally add export of main/1
 	    Forms2 =
 		case ExpMain of
-		    false -> [{attribute,0,export, [{main,1}]} | Forms];
+		    false -> [{attribute, a0(), export, [{main,1}]} | Forms];
 		    true  -> Forms
 		end,
 	    Forms3 = [FileForm2, ModForm2 | Forms2],
@@ -722,8 +723,9 @@ epp_parse_file2(Epp, S, Forms, Parsed) ->
             io:format("~ts:~w: ~ts\n",
                       [S#state.file,Ln,Mod:format_error(Args)]),
             epp_parse_file(Epp, S#state{n_errors = S#state.n_errors + 1}, [Form | Forms]);
-        {eof, _LastLine} = Eof ->
-            S#state{forms_or_bin = lists:reverse([Eof | Forms])}
+        {eof, LastLine} ->
+            Anno = anno(LastLine),
+            S#state{forms_or_bin = lists:reverse([{eof, Anno} | Forms])}
     end.
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -778,7 +780,8 @@ interpret(Forms, HasRecs,  File, Args) ->
 	end,
     Dict = parse_to_dict(Forms2),
     ArgsA = erl_parse:abstract(Args, 0),
-    Call = {call,0,{atom,0,main},[ArgsA]},
+    Anno = a0(),
+    Call = {call,Anno,{atom,Anno,main},[ArgsA]},
     try
         _ = erl_eval:expr(Call,
                           erl_eval:new_bindings(),
@@ -890,6 +893,15 @@ enc() ->
         Enc -> [Enc]
     end.
 
+a0() ->
+    anno(0).
+
+a1() ->
+    anno(1).
+
+anno(L) ->
+    erl_anno:new(L).
+
 fatal(Str) ->
     throw(Str).