mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-25 23:10:47 -08:00
fd3136bb30
1. On w3i6mv, int and long are 32 bits, so these types can't be used to hold a size_t or an mps_word_t. See 26.c, 38.c, 47.c, 66.c, 123.c, 136.c, 164.c, 165.c, 200.c, 203.c, 204.c, 205.c, 206.c, 207.c, 215.c, 223.c. 2. The Windows command line doesn't cope with parentheses. See 170.c. 3. The natural platform alignment is 16 bytes on w3i6mv, so allocations into pools using the default alignment need to be rounded up. See 21.c, 22.c, 203.c, 204.c, 205.c. 4. Microsoft Visual C/C++ is fussy about signed/unsigned comparison. See 226.c. 5. windows.h defines a SIZE macro so you can't use it as a parameter. See 232.c. Copied from Perforce Change: 191569 ServerID: perforce.ravenbrook.com
59 lines
1.3 KiB
C
59 lines
1.3 KiB
C
/*
|
|
TEST_HEADER
|
|
id = $Id$
|
|
summary = test arena extension and compaction
|
|
language = c
|
|
link = testlib.o
|
|
parameters = CHUNKSIZE=1024*1024 ITERATIONS=100
|
|
END_HEADER
|
|
*/
|
|
|
|
#include "mpm.h"
|
|
#include "mpscmvff.h"
|
|
#include "testlib.h"
|
|
|
|
static void check_chunks(mps_arena_t arena, unsigned expected)
|
|
{
|
|
unsigned chunks = (unsigned)RingLength(ArenaChunkRing((Arena)arena));
|
|
asserts(chunks == expected, "expected %u chunks, got %u", expected, chunks);
|
|
}
|
|
|
|
static void test(void)
|
|
{
|
|
mps_arena_t arena;
|
|
mps_pool_t pool;
|
|
mps_addr_t block[ITERATIONS];
|
|
unsigned i;
|
|
|
|
MPS_ARGS_BEGIN(args) {
|
|
MPS_ARGS_ADD(args, MPS_KEY_ARENA_SIZE, CHUNKSIZE);
|
|
die(mps_arena_create_k(&arena, mps_arena_class_vm(), args), "arena_create");
|
|
} MPS_ARGS_END(args);
|
|
|
|
MPS_ARGS_BEGIN(args) {
|
|
MPS_ARGS_ADD(args, MPS_KEY_SPARE, 0);
|
|
die(mps_pool_create_k(&pool, arena, mps_class_mvff(), args), "pool_create");
|
|
} MPS_ARGS_END(args);
|
|
check_chunks(arena, 1);
|
|
|
|
for (i = 0; i < ITERATIONS; ++i) {
|
|
die(mps_alloc(&block[i], pool, CHUNKSIZE), "mps_alloc");
|
|
check_chunks(arena, i + 2);
|
|
}
|
|
|
|
for (i = ITERATIONS; i > 0; --i) {
|
|
mps_free(pool, block[i - 1], CHUNKSIZE);
|
|
mps_arena_collect(arena); /* ensure ArenaCompact is called */
|
|
check_chunks(arena, i);
|
|
}
|
|
|
|
mps_pool_destroy(pool);
|
|
mps_arena_destroy(arena);
|
|
}
|
|
|
|
int main(void)
|
|
{
|
|
easy_tramp(test);
|
|
pass();
|
|
return 0;
|
|
}
|