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/escript.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/escript.erl')
| -rw-r--r-- | lib/stdlib/src/escript.erl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/stdlib/src/escript.erl b/lib/stdlib/src/escript.erl index c42ae981e7..6e8f780f7c 100644 --- a/lib/stdlib/src/escript.erl +++ b/lib/stdlib/src/escript.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2007-2016. All Rights Reserved. +%% Copyright Ericsson AB 2007-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. @@ -629,8 +629,7 @@ parse_source(S, File, Fd, StartLine, HeaderSz, CheckOnly) -> {error, _} -> epp_parse_file2(Epp, S2, [FileForm], OptModRes); {eof, LastLine} -> - Anno = anno(LastLine), - S#state{forms_or_bin = [FileForm, {eof, Anno}]} + S#state{forms_or_bin = [FileForm, {eof, LastLine}]} end, ok = epp:close(Epp), ok = file:close(Fd), @@ -728,8 +727,7 @@ epp_parse_file2(Epp, S, Forms, Parsed) -> [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} -> - Anno = anno(LastLine), - S#state{forms_or_bin = lists:reverse([{eof, Anno} | Forms])} + S#state{forms_or_bin = lists:reverse([{eof, LastLine} | Forms])} end. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |