aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAnthony Ramine <[email protected]>2014-02-01 18:53:54 +0100
committerAnthony Ramine <[email protected]>2014-02-01 20:11:19 +0100
commit2cf4803f3e49eeadda29b50b6b26370312e8a482 (patch)
tree3de97414d4a81fe6020fc9b7c14b2371fb338fc2
parent555b40a98c4181416c54d5c121c229f593a72cfc (diff)
downloadotp-2cf4803f3e49eeadda29b50b6b26370312e8a482.tar.gz
otp-2cf4803f3e49eeadda29b50b6b26370312e8a482.tar.bz2
otp-2cf4803f3e49eeadda29b50b6b26370312e8a482.zip
Properly munge record updates in cover
Trees {record,Line,Arg,Name,Fields} were not munged.
-rw-r--r--lib/tools/src/cover.erl5
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/tools/src/cover.erl b/lib/tools/src/cover.erl
index cd5e3b9955..62e78703a9 100644
--- a/lib/tools/src/cover.erl
+++ b/lib/tools/src/cover.erl
@@ -1804,6 +1804,11 @@ munge_expr({record,Line,Name,Exprs}, Vars) ->
%% Only for Vsn=raw_abstract_v1
{MungedExprFields, Vars2} = munge_exprs(Exprs, Vars, []),
{{record,Line,Name,MungedExprFields}, Vars2};
+munge_expr({record,Line,Arg,Name,Exprs}, Vars) ->
+ %% Only for Vsn=raw_abstract_v1
+ {MungedArg, Vars2} = munge_expr(Arg, Vars),
+ {MungedExprFields, Vars3} = munge_exprs(Exprs, Vars2, []),
+ {{record,Line,MungedArg,Name,MungedExprFields}, Vars3};
munge_expr({record_field,Line,ExprL,ExprR}, Vars) ->
%% Only for Vsn=raw_abstract_v1
{MungedExprR, Vars2} = munge_expr(ExprR, Vars),