static void reservoir_test(mps_arena_t arena) { (void)make_with_permit(); cdie(mps_reservoir_available(arena) == 0, "empty reservoir"); cdie(mps_reservoir_limit(arena) == 0, "no reservoir"); mps_reservoir_limit_set(arena, reservoirSIZE); cdie(mps_reservoir_limit(arena) >= reservoirSIZE, "reservoir limit set"); cdie(mps_reservoir_available(arena) >= reservoirSIZE, "got reservoir"); (void)make_with_permit(); mps_reservoir_limit_set(arena, 0); cdie(mps_reservoir_available(arena) == 0, "empty reservoir"); cdie(mps_reservoir_limit(arena) == 0, "no reservoir"); (void)make_with_permit(); }
static void test(void) { mycell *p, *q; int i; mps_res_t res; size_t lim0, avail0, lim1, avail1, commit1, lim2, avail2, commit2; size_t lim3, avail3, commit3, lim4, avail4, commit4; size_t lim5, avail5, commit5, lim6, avail6, commit6; cdie(mps_arena_create(&arena, mps_arena_class_vm(), ARENA_SIZE), "create arena"); cdie(mps_thread_reg(&thread, arena), "register thread"); cdie(mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread, mps_stack_scan_ambig, stackpointer, 0), "create stack root"); cdie( mps_fmt_create_A(&format, arena, &fmtA), "create format"); cdie( mps_pool_create(&poolsnc, arena, mps_class_snc(), format), "create pool"); cdie( mps_ap_create(&apsnc, poolsnc, mps_rank_exact()), "create ap"); report("lim0", "%d", lim0 = mps_reservoir_limit(arena)); report("avail0", "%d", avail0 = mps_reservoir_available(arena)); mps_reservoir_limit_set(arena, (size_t) 0); mps_reservoir_limit_set(arena, (size_t) (5ul*1024*1024)); report("lim1", "%d", lim1 = mps_reservoir_limit(arena)); report("avail1", "%d", avail1 = mps_reservoir_available(arena)); report("commit1", "%d", commit1 = arena_committed_and_used(arena)); report("defecit1", "%d", lim1-avail1); mps_reservoir_limit_set(arena, (size_t) (1045)); report("lim2", "%d", lim2 = mps_reservoir_limit(arena)); report("avail2", "%d", avail2 = mps_reservoir_available(arena)); report("commit2", "%d", commit2 = arena_committed_and_used(arena)); report("defecit2", "%d", lim2-avail2); /* set commit limit to whatever is currently committed plus 1 MB */ die(mps_arena_commit_limit_set(arena, arena_committed_and_used(arena)+1024*1024), "commit limit set"); mps_reservoir_limit_set(arena, (size_t) (10ul*1024*1024)); report("lim3", "%d", lim3 = mps_reservoir_limit(arena)); report("avail3", "%d", avail3 = mps_reservoir_available(arena)); report("commit3", "%d", commit3 = arena_committed_and_used(arena)); report("defecit3", "%d", lim3-avail3); report("spill3", "%d", commit3-mps_arena_commit_limit(arena)); /* now raise it by 1/2 MB -- reservoir should grow */ die(mps_arena_commit_limit_set(arena, arena_committed_and_used(arena)+512*1024), "commit limit set"); report("lim4", "%d", lim4 = mps_reservoir_limit(arena)); report("avail4", "%d", avail4 = mps_reservoir_available(arena)); report("commit4", "%d", commit4 = arena_committed_and_used(arena)); report("grow4", "%d", avail4-avail3); report("spill4", "%d", commit4-mps_arena_commit_limit(arena)); /* try some allocation -- more than a small amount should fail */ i = -1; p = NULL; res = MPS_RES_OK; while (res == MPS_RES_OK) { res = allocrone(&q, apsnc, 10, mps_rank_exact()); if (res == MPS_RES_OK) { setref(q, 0, p); p = q; } i++; } report("allocfail", "%d", i); report_res("failres", res); /* available shouldn't have changed since before allocation */ report("lim5", "%d", lim5 = mps_reservoir_limit(arena)); report("avail5", "%d", avail5 = mps_reservoir_available(arena)); report("commit5", "%d", commit5 = arena_committed_and_used(arena)); report("grow5", "%d", avail5-avail4); report("spill5", "%d", commit5-mps_arena_commit_limit(arena)); /* try some allocation from reservoir -- not much should fail */ i = -1; res = MPS_RES_OK; while (res == MPS_RES_OK) { res = reservoir_allocrone(&q, apsnc, 10, mps_rank_exact()); if (res == MPS_RES_OK) { setref(q, 0, p); p = q; } i++; } report("allocfail2", "%d", i); report_res("failres2", res); /* available should have changed now */ report("lim6", "%d", lim6 = mps_reservoir_limit(arena)); report("avail6", "%d", avail6 = mps_reservoir_available(arena)); report("commit6", "%d", commit6 = arena_committed_and_used(arena)); report("spill6", "%d", commit6-mps_arena_commit_limit(arena)); report("shrink6", "%d", avail5-avail6); mps_root_destroy(root); comment("Destroyed root."); mps_ap_destroy(apsnc); comment("Destroyed ap."); mps_pool_destroy(poolsnc); comment("Destroyed pool."); mps_fmt_destroy(format); comment("Destroyed format."); mps_thread_dereg(thread); comment("Deregistered thread."); mps_arena_destroy(arena); comment("Destroyed arena."); }
static void test(void) { mycell *p, *q; int i; mps_res_t res; size_t lim7, avail7, commit7, lim8, avail8, commit8; size_t lim9, avail9, commit9; cdie(mps_arena_create(&arena, mps_arena_class_vm(), ARENA_SIZE), "create space"); cdie(mps_thread_reg(&thread, arena), "register thread"); cdie(mps_root_create_reg(&root, arena, MPS_RANK_AMBIG, 0, thread, mps_stack_scan_ambig, stackpointer, 0), "create stack root"); cdie( mps_fmt_create_A(&format, arena, &fmtA), "create format"); cdie( mps_pool_create(&poolamc, arena, mps_class_amc(), format), "create pool"); cdie( mps_ap_create(&apamc, poolamc, MPS_RANK_EXACT), "create ap"); mps_arena_commit_limit_set(arena, mps_arena_committed(arena)+1024*1024); mps_reservoir_limit_set(arena, 0); report("lim7", "%d", lim7 = mps_reservoir_limit(arena)); report("avail7", "%d", avail7 = mps_reservoir_available(arena)); report("commit7", "%d", commit7 = mps_arena_committed(arena)); /* available should be zero, but should be able to allocate with reservoir permit, until commit_limit is reached */ i = -1; p = NULL; res = MPS_RES_OK; while (res == MPS_RES_OK) { res = reservoir_allocrone(&q, apamc, 10, MPS_RANK_EXACT); if (res == MPS_RES_OK) { setref(q, 0, p); p = q; } i++; } report("allocfail3", "%d", i); report_res("failres3", res); /* should be none left to make available */ mps_reservoir_limit_set(arena, 10ul*1024*1024); report("lim8", "%d", lim8 = mps_reservoir_limit(arena)); report("avail8", "%d", avail8 = mps_reservoir_available(arena)); report("commit8", "%d", commit8 = mps_arena_committed(arena)); report("spill8", "%d", commit8-mps_arena_commit_limit(arena)); /* throw away objects and collect world */ p = NULL; q = NULL; mps_root_destroy(root); mps_arena_collect(arena); /* available should have gone up now */ report("lim9", "%d", lim9 = mps_reservoir_limit(arena)); report("avail9", "%d", avail9 = mps_reservoir_available(arena)); report("commit9", "%d", commit9 = mps_arena_committed(arena)); report("grow9", "%d", avail9-avail8); report("spill9", "%d", commit9-mps_arena_commit_limit(arena)); /* destroy everything remaining */ mps_ap_destroy(apamc); comment("Destroyed ap."); mps_pool_destroy(poolamc); comment("Destroyed pool."); mps_fmt_destroy(format); comment("Destroyed format."); mps_thread_dereg(thread); comment("Deregistered thread."); mps_arena_destroy(arena); comment("Destroyed space."); }