diff options
author | Sverker Eriksson <sverker@erlang.org> | 2012-08-14 12:28:22 +0200 |
---|---|---|
committer | Sverker Eriksson <sverker@erlang.org> | 2012-08-14 14:28:08 +0200 |
commit | 29921882be8873f763f6135badc864442de74304 (patch) | |
tree | 446232fcbc0d0a86a15e7ed2c7f256aa58a3ff0a /erts/emulator/beam | |
parent | b163b5e9d80861272a9b1253e48175cc31294378 (diff) | |
download | otp-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.c | 2 |
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); |