diff options
| author | Björn Gustavsson <[email protected]> | 2016-03-03 12:00:07 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2016-03-03 12:00:07 +0100 |
| commit | 98581d468ad9d3b8221128071c1eb8526dcc8f7e (patch) | |
| tree | 047145becf30489aaa8e0cf0186c30cb2854c8ab /lib/tools/src/cover.erl | |
| parent | 0c330d97894b214bd78ec6a2afd207a7c20c5140 (diff) | |
| parent | 205405f0bf1d2fa37d4c8170c11689a2937f5d9c (diff) | |
| download | otp-98581d468ad9d3b8221128071c1eb8526dcc8f7e.tar.gz otp-98581d468ad9d3b8221128071c1eb8526dcc8f7e.tar.bz2 otp-98581d468ad9d3b8221128071c1eb8526dcc8f7e.zip | |
Merge branch 'bjorn/compiler/binary-comprehensions/OTP-13289'
* bjorn/compiler/binary-comprehensions/OTP-13289:
Generalize bit string comprehensions
Diffstat (limited to 'lib/tools/src/cover.erl')
| -rw-r--r-- | lib/tools/src/cover.erl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/tools/src/cover.erl b/lib/tools/src/cover.erl index 3732b0fc85..87de31919f 100644 --- a/lib/tools/src/cover.erl +++ b/lib/tools/src/cover.erl @@ -2002,9 +2002,7 @@ munge_expr({lc,Line,Expr,Qs}, Vars) -> {MungedQs, Vars3} = munge_qualifiers(Qs, Vars2), {{lc,Line,MungedExpr,MungedQs}, Vars3}; munge_expr({bc,Line,Expr,Qs}, Vars) -> - {bin,BLine,[{bin_element,EL,Val,Sz,TSL}|Es]} = Expr, - Expr2 = {bin,BLine,[{bin_element,EL,Val,Sz,TSL}|Es]}, - {MungedExpr,Vars2} = munge_expr(Expr2, Vars), + {MungedExpr,Vars2} = munge_expr(?BLOCK1(Expr), Vars), {MungedQs, Vars3} = munge_qualifiers(Qs, Vars2), {{bc,Line,MungedExpr,MungedQs}, Vars3}; munge_expr({block,Line,Body}, Vars) -> |