diff options
| author | Hans Bolinder <hasse@erlang.org> | 2020-10-21 11:45:15 +0200 |
|---|---|---|
| committer | Hans Bolinder <hasse@erlang.org> | 2021-01-26 11:57:13 +0100 |
| commit | fd88dd5d1301888217759cca623d270b85de2d24 (patch) | |
| tree | f22c8d0aa81003dc02f4bbbf63a267a419b1bf4d /lib/compiler/src/beam_kernel_to_ssa.erl | |
| parent | fa161793ed4e4020458c27c992a7f16b1a4ebfe3 (diff) | |
| download | erlang-fd88dd5d1301888217759cca623d270b85de2d24.tar.gz | |
compiler: Make minimal adjustments for column numbers
Diffstat (limited to 'lib/compiler/src/beam_kernel_to_ssa.erl')
| -rw-r--r-- | lib/compiler/src/beam_kernel_to_ssa.erl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/compiler/src/beam_kernel_to_ssa.erl b/lib/compiler/src/beam_kernel_to_ssa.erl index 2d3e6b730a..e104a1e0d6 100644 --- a/lib/compiler/src/beam_kernel_to_ssa.erl +++ b/lib/compiler/src/beam_kernel_to_ssa.erl @@ -1276,6 +1276,9 @@ new_label(#cg{lcount=Next}=St) -> line_anno([Line,{file,Name}]) when is_integer(Line) -> line_anno_1(Name, Line); +line_anno([{Line,Column},{file,Name}]) when is_integer(Line), + is_integer(Column) -> + line_anno_1(Name, Line); line_anno([_|_]=A) -> {Name,Line} = find_loc(A, no_file, 0), line_anno_1(Name, Line); @@ -1292,6 +1295,9 @@ line_anno_1(Name, Line) -> find_loc([Line|T], File, _) when is_integer(Line) -> find_loc(T, File, Line); +find_loc([{Line, Column}|T], File, _) when is_integer(Line), + is_integer(Column) -> + find_loc(T, File, Line); find_loc([{file,File}|T], _, Line) -> find_loc(T, File, Line); find_loc([_|T], File, Line) -> |