Remove column from DBG_LOC

This commit is contained in:
Gaith Hallak 2022-12-25 11:11:55 +03:00
parent 81da836b66
commit 90666d3f33
3 changed files with 6 additions and 8 deletions

View File

@ -2,7 +2,7 @@
{erl_opts, [debug_info]}.
{deps, [ {aebytecode, {git, "https://github.com/aeternity/aebytecode.git", {ref, "dc7a7c7"}}}
{deps, [ {aebytecode, {git, "https://github.com/aeternity/aebytecode.git", {ref, "69a1c41"}}}
, {getopt, "1.0.1"}
, {eblake2, "1.0.0"}
, {jsx, {git, "https://github.com/talentdeficit/jsx.git", {tag, "2.8.0"}}}

View File

@ -1,7 +1,7 @@
{"1.2.0",
[{<<"aebytecode">>,
{git,"https://github.com/aeternity/aebytecode.git",
{ref,"dc7a7c7d6f2ccac74572e3fe6f917b348849a83f"}},
{ref,"69a1c41a4fc31c6449bf077532c22de23f2bbe83"}},
0},
{<<"aeserialization">>,
{git,"https://github.com/aeternity/aeserialization.git",

View File

@ -767,11 +767,9 @@ dbg_loc(Env, Ann) ->
F -> F
end,
Line = proplists:get_value(line, Ann),
Col = proplists:get_value(col, Ann),
case {Line, Col} of
{undefined, _} -> [];
{_, undefined} -> [];
{_, _} -> [{'DBG_LOC', {immediate, File}, {immediate, Line}, {immediate, Col}}]
case Line of
undefined -> [];
_ -> [{'DBG_LOC', {immediate, File}, {immediate, Line}}]
end
end.
@ -955,7 +953,7 @@ attributes(I) ->
loop -> Impure(pc, []);
switch_body -> Pure(none, []);
'RETURN' -> Impure(pc, []);
{'DBG_LOC', _, _, _} -> Pure(none, []);
{'DBG_LOC', _, _} -> Pure(none, []);
{'DBG_DEF', _, _} -> Pure(none, []);
{'DBG_UNDEF', _, _} -> Pure(none, []);
{'RETURNR', A} -> Impure(pc, A);