aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code/steptest.c
diff options
context:
space:
mode:
Diffstat (limited to 'mps/code/steptest.c')
-rw-r--r--mps/code/steptest.c13
1 files changed, 6 insertions, 7 deletions
diff --git a/mps/code/steptest.c b/mps/code/steptest.c
index 34b78a344e5..d9e6bf6fd9b 100644
--- a/mps/code/steptest.c
+++ b/mps/code/steptest.c
@@ -26,7 +26,7 @@
26#define objCOUNT 2000000 26#define objCOUNT 2000000
27#define clockSetFREQ 10000 27#define clockSetFREQ 10000
28#define multiStepFREQ 500000 28#define multiStepFREQ 500000
29#define multiStepSTEPS 100 29#define multiStepMULT 100
30 30
31#define genCOUNT 3 31#define genCOUNT 3
32#define gen1SIZE 750 /* kB */ 32#define gen1SIZE 750 /* kB */
@@ -273,11 +273,11 @@ static mps_addr_t make(void)
273 273
274/* call mps_arena_step() */ 274/* call mps_arena_step() */
275 275
276static void test_step(mps_arena_t arena) 276static void test_step(mps_arena_t arena, double multiplier)
277{ 277{
278 mps_bool_t res; 278 mps_bool_t res;
279 double t1 = my_clock(); 279 double t1 = my_clock();
280 res = mps_arena_step(arena, 0.1); 280 res = mps_arena_step(arena, 0.1, multiplier);
281 t1 = time_since(t1); 281 t1 = time_since(t1);
282 if (res) { 282 if (res) {
283 if (t1 > max_step_time) 283 if (t1 > max_step_time)
@@ -301,7 +301,7 @@ static void *test(void *arg, size_t s)
301 mps_chain_t chain; 301 mps_chain_t chain;
302 mps_root_t exactRoot, ambigRoot; 302 mps_root_t exactRoot, ambigRoot;
303 unsigned long objs; 303 unsigned long objs;
304 size_t i, j; 304 size_t i;
305 mps_message_t message; 305 mps_message_t message;
306 size_t live, condemned, not_condemned; 306 size_t live, condemned, not_condemned;
307 size_t messages; 307 size_t messages;
@@ -376,11 +376,10 @@ static void *test(void *arg, size_t s)
376 ++objs; 376 ++objs;
377 377
378 if (objs % step_frequencies[test_number] == 0) 378 if (objs % step_frequencies[test_number] == 0)
379 test_step(arena); 379 test_step(arena, 0.0);
380 380
381 if (objs % multiStepFREQ == 0) 381 if (objs % multiStepFREQ == 0)
382 for (j=0; j<multiStepSTEPS; ++j) 382 test_step(arena, multiStepMULT);
383 test_step(arena);
384 383
385 if (objs % clockSetFREQ == 0) 384 if (objs % clockSetFREQ == 0)
386 set_clock_timing(); 385 set_clock_timing();