aboutsummaryrefslogtreecommitdiffstats
path: root/lib/tools/src
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2009-12-14 11:06:16 +0000
committerErlang/OTP <[email protected]>2009-12-14 11:06:16 +0000
commit420b28bb007946307eeda5d4e2bf200fe0ee25ba (patch)
tree9804615cb0a4080f7c34f07b2349fe59fdd49dc1 /lib/tools/src
parent0a498068ecdb871211bc1c69d9c020b3bc9310c6 (diff)
downloadotp-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.erl4
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};