aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/src/erl_lint.erl
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2017-02-13 10:38:23 +0100
committerHans Bolinder <[email protected]>2017-03-08 14:11:49 +0100
commitde736de7b0eee391e3411ecd515d7bdae1bdc16c (patch)
tree651f27dcc8dfff134ca2aeb133d93ddf757b951b /lib/stdlib/src/erl_lint.erl
parent5a2c12d6b26bd5f2c7e0ab75b44749acf1b788e0 (diff)
downloadotp-de736de7b0eee391e3411ecd515d7bdae1bdc16c.tar.gz
otp-de736de7b0eee391e3411ecd515d7bdae1bdc16c.tar.bz2
otp-de736de7b0eee391e3411ecd515d7bdae1bdc16c.zip
stdlib: Fix handling of locations and annotations
Diffstat (limited to 'lib/stdlib/src/erl_lint.erl')
-rw-r--r--lib/stdlib/src/erl_lint.erl9
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/stdlib/src/erl_lint.erl b/lib/stdlib/src/erl_lint.erl
index 1b84234fac..0ffca0886f 100644
--- a/lib/stdlib/src/erl_lint.erl
+++ b/lib/stdlib/src/erl_lint.erl
@@ -2,7 +2,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 1996-2016. All Rights Reserved.
+%% Copyright Ericsson AB 1996-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.
@@ -737,7 +737,12 @@ start_state({attribute,_,module,M}, St0) ->
St1 = St0#lint{module=M},
St1#lint{state=attribute};
start_state(Form, St) ->
- St1 = add_error(element(2, Form), undefined_module, St),
+ Anno = case Form of
+ {eof, L} -> erl_anno:new(L);
+ %% {warning, Warning} and {error, Error} not possible here.
+ _ -> element(2, Form)
+ end,
+ St1 = add_error(Anno, undefined_module, St),
attribute_state(Form, St1#lint{state=attribute}).
%% attribute_state(Form, State) ->