From 6318211b480cec0b74170d4db962e7e9b374f895 Mon Sep 17 00:00:00 2001 From: Patrik Nyblom Date: Mon, 10 Jun 2013 14:48:37 +0200 Subject: term_to_binary: Remove debug code and set production trap levels --- erts/emulator/beam/erl_gc.c | 3 --- erts/emulator/beam/external.c | 11 ++++++----- 2 files changed, 6 insertions(+), 8 deletions(-) (limited to 'erts') diff --git a/erts/emulator/beam/erl_gc.c b/erts/emulator/beam/erl_gc.c index 7b463958d2..8ba94d89e9 100644 --- a/erts/emulator/beam/erl_gc.c +++ b/erts/emulator/beam/erl_gc.c @@ -1969,9 +1969,6 @@ setup_rootset(Process *p, Eterm *objv, int nobj, Rootset *rootset) * in the process_structure. */ if (p->extra_root != NULL) { -#ifdef HARDDEBUG - erts_fprintf(stderr,"GC with extra root 0x%xl\n", p->extra_root->objv); -#endif roots[n].v = p->extra_root->objv; roots[n].sz = p->extra_root->sz; ++n; diff --git a/erts/emulator/beam/external.c b/erts/emulator/beam/external.c index de2aacfa7b..45025ad631 100644 --- a/erts/emulator/beam/external.c +++ b/erts/emulator/beam/external.c @@ -1469,12 +1469,13 @@ erts_term_to_binary(Process* p, Eterm Term, int level, Uint flags) { return erts_term_to_binary_simple(p, Term, size, level, flags); } -#define EXTREME_TTB_TRAPPING 1 +/* Define for testing */ +/* #define EXTREME_TTB_TRAPPING 1 */ #ifndef EXTREME_TTB_TRAPPING -#define TERM_TO_BINARY_LOOP_FACTOR 10 -#define TERM_TO_BINARY_SIZE_FACTOR 10000 -#define TERM_TO_BINARY_COMPRESS_CHUNK 10000 +#define TERM_TO_BINARY_LOOP_FACTOR 500 +#define TERM_TO_BINARY_SIZE_FACTOR 500000 +#define TERM_TO_BINARY_COMPRESS_CHUNK 500000 #else #define TERM_TO_BINARY_LOOP_FACTOR 1 #define TERM_TO_BINARY_SIZE_FACTOR 10 @@ -1556,7 +1557,7 @@ static Eterm erts_term_to_binary_int(Process* p, Eterm Term, int level, Uint fla #ifndef EXTREME_TTB_TRAPPING Sint reds = (Sint) (ERTS_BIF_REDS_LEFT(p) * TERM_TO_BINARY_LOOP_FACTOR); #else - Sint reds = 20; /* XXX */ + Sint reds = 20; /* For testing */ #endif Sint initial_reds = reds; TTBContext c_buff; -- cgit v1.2.3