aboutsummaryrefslogtreecommitdiffstats
path: root/erts/emulator/beam
diff options
context:
space:
mode:
authorSverker Eriksson <sverker@erlang.org>2012-08-14 12:28:22 +0200
committerSverker Eriksson <sverker@erlang.org>2012-08-14 14:28:08 +0200
commit29921882be8873f763f6135badc864442de74304 (patch)
tree446232fcbc0d0a86a15e7ed2c7f256aa58a3ff0a /erts/emulator/beam
parentb163b5e9d80861272a9b1253e48175cc31294378 (diff)
downloadotp-29921882be8873f763f6135badc864442de74304.tar.gz
otp-29921882be8873f763f6135badc864442de74304.tar.bz2
otp-29921882be8873f763f6135badc864442de74304.zip
Fix corrupted binaries in compressed ETS tables
Diffstat (limited to 'erts/emulator/beam')
-rw-r--r--erts/emulator/beam/external.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/erts/emulator/beam/external.c b/erts/emulator/beam/external.c
index 4348578694..52f45b924f 100644
--- a/erts/emulator/beam/external.c
+++ b/erts/emulator/beam/external.c
@@ -1889,7 +1889,9 @@ enc_term(ErtsAtomCacheMap *acmp, Eterm obj, byte* ep, Uint32 dflags,
*ep++ = BINARY_INTERNAL_REF;
}
if (pb->flags) {
+ char* before_realloc = pb->val->orig_bytes;
erts_emasculate_writable_binary(pb);
+ bytes += (pb->val->orig_bytes - before_realloc);
}
erts_refc_inc(&pb->val->refc, 2);