mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-27 07:41:28 -08:00
bc919b5d42
* Fix typo in argerr/41.c. * Delete argerr/43.c and argerr/44.c: MVFF doesn't take a maximum size argument so we can't test for erroneous values of this argument. * Fix assertion condition in conerr/59.c. * In function/136.c, need to specify extend-by for second pool, now that it's an MVFF pool. * function/224.c now passes (fragmentation is avoided because MVFF allocations can cross extent boundaries). Copied from Perforce Change: 194712
49 lines
915 B
C
49 lines
915 B
C
/*
|
|
TEST_HEADER
|
|
id = $Id$
|
|
summary = MVFF allocate large promise, make it small, repeat
|
|
language = c
|
|
link = testlib.o
|
|
harness = 2.5
|
|
parameters = PROMISE=65536 ITERATE=2000
|
|
END_HEADER
|
|
*/
|
|
|
|
#include "mpsavm.h"
|
|
#include "mpscmvff.h"
|
|
#include "testlib.h"
|
|
|
|
|
|
#define VMSIZE ((size_t) 30*1024*1024)
|
|
|
|
|
|
static void test(void)
|
|
{
|
|
mps_arena_t arena;
|
|
mps_pool_t pool;
|
|
mps_addr_t q;
|
|
int p;
|
|
|
|
die(mps_arena_create(&arena, mps_arena_class_vm(), VMSIZE), "create");
|
|
die(mps_arena_commit_limit_set(arena, VMSIZE), "commit limit");
|
|
die(mps_pool_create_k(&pool, arena, mps_class_mvff(), mps_args_none),
|
|
"pool create");
|
|
|
|
for (p=0; p<ITERATE; p++) {
|
|
die(mps_alloc(&q, pool, PROMISE), "alloc");
|
|
q = (char *)q + MPS_PF_ALIGN;
|
|
mps_free(pool, q, PROMISE - MPS_PF_ALIGN);
|
|
report("promise", "%i", p);
|
|
}
|
|
|
|
mps_pool_destroy(pool);
|
|
mps_arena_destroy(arena);
|
|
}
|
|
|
|
|
|
int main(void)
|
|
{
|
|
easy_tramp(test);
|
|
pass();
|
|
return 0;
|
|
}
|