diff options
| author | Hans Bolinder <[email protected]> | 2017-02-13 10:38:23 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2017-03-08 14:11:49 +0100 |
| commit | de736de7b0eee391e3411ecd515d7bdae1bdc16c (patch) | |
| tree | 651f27dcc8dfff134ca2aeb133d93ddf757b951b /lib/stdlib/src/erl_lint.erl | |
| parent | 5a2c12d6b26bd5f2c7e0ab75b44749acf1b788e0 (diff) | |
| download | otp-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.erl | 9 |
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) -> |