File 2537-debugger-Fix-handling-of-locations-and-annotations.patch of Package erlang

From bce73eb11441c3593304ccc88d6145ba1fbeffa1 Mon Sep 17 00:00:00 2001
From: Hans Bolinder <hasse@erlang.org>
Date: Fri, 10 Feb 2017 16:00:32 +0100
Subject: [PATCH 07/15] debugger: Fix handling of locations and annotations

---
 lib/debugger/src/dbg_wx_win.erl | 4 ++--
 lib/debugger/test/int_SUITE.erl | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/lib/debugger/src/dbg_wx_win.erl b/lib/debugger/src/dbg_wx_win.erl
index d30242307..2c9d83ea7 100644
--- a/lib/debugger/src/dbg_wx_win.erl
+++ b/lib/debugger/src/dbg_wx_win.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2008-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2008-2017. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -276,7 +276,7 @@ verify(Type, Str) ->
     case erl_scan:string(Str) of
 	{ok, Tokens, _EndLine} when Type==term ->
 	    
-	    case erl_parse:parse_term(Tokens++[{dot, 1}]) of
+	    case erl_parse:parse_term(Tokens++[{dot, erl_anno:new(1)}]) of
 		{ok, Value} -> {edit, Value};
 		_Error -> 
 		    ignore
diff --git a/lib/debugger/test/int_SUITE.erl b/lib/debugger/test/int_SUITE.erl
index f697ace4e..cb1fcb83f 100644
--- a/lib/debugger/test/int_SUITE.erl
+++ b/lib/debugger/test/int_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 1998-2016. All Rights Reserved.
+%% Copyright Ericsson AB 1998-2017. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -241,7 +241,8 @@ interpretable(Config) when is_list(Config) ->
     true = code:del_path(PrivDir),
 
     %% {error, no_src}
-    {ok, lists2, Binary} = compile:forms([{attribute,1,module,lists2}], []),
+    A1 = erl_anno:new(1),
+    {ok, lists2, Binary} = compile:forms([{attribute,A1,module,lists2}], []),
     code:load_binary(lists2, "unknown", Binary),
     {error, no_src} = int:interpretable(lists2),
 
-- 
2.12.0