diff options
| author | Sverker Eriksson <[email protected]> | 2011-05-06 15:50:32 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2011-05-06 16:31:25 +0200 |
| commit | 9b1910d81ae53a4141ab84be6e1b4dd92bf3dde0 (patch) | |
| tree | 450856e714264b1678adbcdb2df304a8535d5d26 /erts/emulator/beam/erl_db_hash.c | |
| parent | 913f72a8c9e1827c812c4795c76a0e57b5ac0eeb (diff) | |
| download | otp-9b1910d81ae53a4141ab84be6e1b4dd92bf3dde0.tar.gz otp-9b1910d81ae53a4141ab84be6e1b4dd92bf3dde0.tar.bz2 otp-9b1910d81ae53a4141ab84be6e1b4dd92bf3dde0.zip | |
ETS usage of erts_printf %R
Diffstat (limited to 'erts/emulator/beam/erl_db_hash.c')
| -rw-r--r-- | erts/emulator/beam/erl_db_hash.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/erts/emulator/beam/erl_db_hash.c b/erts/emulator/beam/erl_db_hash.c index 9ef990cc4f..694348e31d 100644 --- a/erts/emulator/beam/erl_db_hash.c +++ b/erts/emulator/beam/erl_db_hash.c @@ -2085,7 +2085,14 @@ static void db_print_hash(int to, void *to_arg, int show, DbTable *tbl) while(list != 0) { if (list->hvalue == INVALID_HASH) erts_print(to, to_arg, "*"); - erts_print(to, to_arg, "%T", make_tuple(list->dbterm.tpl)); + if (tb->common.compress) { + Eterm key = GETKEY(tb, list->dbterm.tpl); + erts_print(to, to_arg, "key=%R", key, list->dbterm.tpl); + } + else { + Eterm obj = make_tuple_rel(list->dbterm.tpl,list->dbterm.tpl); + erts_print(to, to_arg, "%R", obj, list->dbterm.tpl); + } if (list->next != 0) erts_print(to, to_arg, ","); list = list->next; |