diff options
| author | Anthony Ramine <[email protected]> | 2014-02-01 18:53:54 +0100 |
|---|---|---|
| committer | Anthony Ramine <[email protected]> | 2014-02-01 20:11:19 +0100 |
| commit | 2cf4803f3e49eeadda29b50b6b26370312e8a482 (patch) | |
| tree | 3de97414d4a81fe6020fc9b7c14b2371fb338fc2 | |
| parent | 555b40a98c4181416c54d5c121c229f593a72cfc (diff) | |
| download | otp-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.erl | 5 |
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), |