diff options
Diffstat (limited to 'mps/code/steptest.c')
| -rw-r--r-- | mps/code/steptest.c | 13 |
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 | ||
| 276 | static void test_step(mps_arena_t arena) | 276 | static 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(); |