diff options
| author | Hans Bolinder <[email protected]> | 2009-12-14 11:06:16 +0000 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2009-12-14 11:06:16 +0000 |
| commit | 420b28bb007946307eeda5d4e2bf200fe0ee25ba (patch) | |
| tree | 9804615cb0a4080f7c34f07b2349fe59fdd49dc1 /lib/tools/src | |
| parent | 0a498068ecdb871211bc1c69d9c020b3bc9310c6 (diff) | |
| download | otp-420b28bb007946307eeda5d4e2bf200fe0ee25ba.tar.gz otp-420b28bb007946307eeda5d4e2bf200fe0ee25ba.tar.bz2 otp-420b28bb007946307eeda5d4e2bf200fe0ee25ba.zip | |
OTP-8340 A bug concerning bit comprehensions has been fixed in Cover. The
bug was introduced in R13B03. (Thanks to Matthew Sackman.)
Diffstat (limited to 'lib/tools/src')
| -rw-r--r-- | lib/tools/src/cover.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/tools/src/cover.erl b/lib/tools/src/cover.erl index aff3927db3..1a7ebdc69a 100644 --- a/lib/tools/src/cover.erl +++ b/lib/tools/src/cover.erl @@ -1685,8 +1685,8 @@ 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}]} = Expr, - Expr2 = {bin,BLine,[{bin_element,EL,?BLOCK1(Val),Sz,TSL}]}, + {bin,BLine,[{bin_element,EL,Val,Sz,TSL}|Es]} = Expr, + Expr2 = {bin,BLine,[{bin_element,EL,?BLOCK1(Val),Sz,TSL}|Es]}, {MungedExpr,Vars2} = munge_expr(Expr2, Vars), {MungedQs, Vars3} = munge_qualifiers(Qs, Vars2), {{bc,Line,MungedExpr,MungedQs}, Vars3}; |