stdlib: Use module erl_anno

1 files changed, 25 insertions, 10 deletions

diff --git a/lib/stdlib/src/erl_eval.erl b/lib/stdlib/src/erl_eval.erl
index e86e10b170..39f833009f 100644
--- a/lib/stdlib/src/erl_eval.erl
+++ b/lib/stdlib/src/erl_eval.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
@@ -479,12 +479,13 @@ expr({value,_,Val}, Bs, _Lf, _Ef, RBs) ->    % Special case straight values.
 
 find_maxline(LC) ->
     put('$erl_eval_max_line', 0),
-    F = fun(L) ->
+    F = fun(A) ->
+                L = erl_anno:line(A),
                 case is_integer(L) and (L > get('$erl_eval_max_line')) of
                     true -> put('$erl_eval_max_line', L);
                     false -> ok
                 end end,
-    _ = erl_lint:modify_line(LC, F),
+    _ = erl_parse:map_anno(F, LC),
     erase('$erl_eval_max_line').
 
 hide_calls(LC, MaxLine) ->
@@ -494,14 +495,16 @@ hide_calls(LC, MaxLine) ->
 
 %% v/1 and local calls are hidden.
 hide({value,L,V}, Id, D) ->
-    {{atom,Id,ok}, Id+1, dict:store(Id, {value,L,V}, D)};
+    A = erl_anno:new(Id),
+    {{atom,A,ok}, Id+1, dict:store(Id, {value,L,V}, D)};
 hide({call,L,{atom,_,N}=Atom,Args}, Id0, D0) ->
     {NArgs, Id, D} = hide(Args, Id0, D0),
     C = case erl_internal:bif(N, length(Args)) of
             true ->
                 {call,L,Atom,NArgs};
             false -> 
-                {call,Id,{remote,L,{atom,L,m},{atom,L,f}},NArgs}
+                A = erl_anno:new(Id),
+                {call,A,{remote,L,{atom,L,m},{atom,L,f}},NArgs}
         end,
     {C, Id+1, dict:store(Id, {call,Atom}, D)};
 hide(T0, Id0, D0) when is_tuple(T0) -> 
@@ -514,11 +517,23 @@ hide([E0 | Es0], Id0, D0) ->
 hide(E, Id, D) -> 
     {E, Id, D}.
 
-unhide_calls({atom,Id,ok}, MaxLine, D) when Id > MaxLine ->
-    dict:fetch(Id, D);
-unhide_calls({call,Id,{remote,L,_M,_F},Args}, MaxLine, D) when Id > MaxLine ->
-    {call,Atom} = dict:fetch(Id, D),
-    {call,L,Atom,unhide_calls(Args, MaxLine, D)};
+unhide_calls({atom,A,ok}=E, MaxLine, D) ->
+    L = erl_anno:line(A),
+    if
+        L > MaxLine ->
+            dict:fetch(L, D);
+        true ->
+            E
+    end;
+unhide_calls({call,A,{remote,L,{atom,L,m},{atom,L,f}}=F,Args}, MaxLine, D) ->
+    Line = erl_anno:line(A),
+    if
+        Line > MaxLine ->
+            {call,Atom} = dict:fetch(Line, D),
+            {call,L,Atom,unhide_calls(Args, MaxLine, D)};
+        true ->
+            {call,A,F,unhide_calls(Args, MaxLine, D)}
+    end;
 unhide_calls(T, MaxLine, D) when is_tuple(T) -> 
     list_to_tuple(unhide_calls(tuple_to_list(T), MaxLine, D));
 unhide_calls([E | Es], MaxLine, D) ->