diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2015-03-27 17:27:28 +0100 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2015-03-27 17:27:28 +0100 |
| commit | 740f19448e936d9f03ceb50d27ec1a76749dda6a (patch) | |
| tree | e6e5f471de23490c4cdbb604e417b5caad206da0 /erts | |
| parent | f299a96c88eccbcfce1deed1bbf20d20f455805c (diff) | |
| download | otp-740f19448e936d9f03ceb50d27ec1a76749dda6a.tar.gz otp-740f19448e936d9f03ceb50d27ec1a76749dda6a.tar.bz2 otp-740f19448e936d9f03ceb50d27ec1a76749dda6a.zip | |
erts: Fix make_internal_hash for 0.0 vs -0.0
The internal_hash should produce the same hash value for
identical terms, in this case 0.0 =:= -0.0.
Diffstat (limited to 'erts')
| -rw-r--r-- | erts/emulator/beam/utils.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/erts/emulator/beam/utils.c b/erts/emulator/beam/utils.c index 8fc8962e4f..91f4accd30 100644 --- a/erts/emulator/beam/utils.c +++ b/erts/emulator/beam/utils.c @@ -1894,10 +1894,12 @@ make_internal_hash(Eterm term) { FloatDef ff; GET_DOUBLE(term, ff); + if (ff.fd == 0.0) { + ff.fd = 0.0; /* ensure pos. 0.0 */ + } UINT32_HASH_2(ff.fw[0], ff.fw[1], HCONST_12); goto pop_next; } - default: erl_exit(1, "Invalid tag in make_hash2(0x%X)\n", term); } |