mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-25 15:00:45 -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
111 lines
2.7 KiB
C
111 lines
2.7 KiB
C
/*
|
|
TEST_HEADER
|
|
id = $Id$
|
|
summary = simple spare_commit_limit test
|
|
language = c
|
|
link = testlib.o rankfmt.o
|
|
harness = 2.0
|
|
parameters = EXTEND=65536 AVGSIZE=32 BIGSIZE=5000000;
|
|
OUTPUT_SPEC
|
|
reduce1 <= 0
|
|
completed = yes
|
|
END_HEADER
|
|
*/
|
|
|
|
#include "testlib.h"
|
|
#include "mpscmvff.h"
|
|
#include "mpsavm.h"
|
|
|
|
#define MVFF_HI_PARMS EXTEND,AVGSIZE,MPS_PF_ALIGN,1,1,0
|
|
|
|
mps_arena_t arena;
|
|
|
|
#define MAXOBJS (10000)
|
|
|
|
mps_addr_t objs[MAXOBJS];
|
|
mps_addr_t sizes[MAXOBJS];
|
|
|
|
static void test(void)
|
|
{
|
|
mps_pool_t poolhi, poollo;
|
|
mps_thr_t thread;
|
|
|
|
size_t com0, com1;
|
|
|
|
/* create a VM arena of 40MB */
|
|
|
|
cdie(mps_arena_create(&arena, mps_arena_class_vm(), (size_t)(1024*1024*40)),
|
|
"create arena");
|
|
|
|
|
|
/* set the commit limit to 100MB, i.e. let the arena do the limiting */
|
|
|
|
mps_arena_commit_limit_set(arena, (size_t) (1024ul*1024ul*100ul));
|
|
|
|
cdie(mps_thread_reg(&thread, arena), "register thread");
|
|
|
|
cdie(
|
|
mps_pool_create(&poolhi, arena, mps_class_mvff(), MVFF_HI_PARMS),
|
|
"create high pool");
|
|
|
|
MPS_ARGS_BEGIN(args) {
|
|
MPS_ARGS_ADD(args, MPS_KEY_EXTEND_BY, EXTEND);
|
|
MPS_ARGS_ADD(args, MPS_KEY_MEAN_SIZE, AVGSIZE);
|
|
MPS_ARGS_ADD(args, MPS_KEY_MVFF_ARENA_HIGH, 0);
|
|
MPS_ARGS_ADD(args, MPS_KEY_MVFF_SLOT_HIGH, 0);
|
|
MPS_ARGS_ADD(args, MPS_KEY_MVFF_FIRST_FIT, 1);
|
|
/* Set SPARE to 0 as we want this pool to return memory to the
|
|
arena as soon as it is freed so we can allocate it elsewhere. */
|
|
MPS_ARGS_ADD(args, MPS_KEY_SPARE, 0.0);
|
|
cdie(mps_pool_create_k(&poollo, arena, mps_class_mvff(), args),
|
|
"create low pool");
|
|
} MPS_ARGS_END(args);
|
|
|
|
/* set the spare commit limit to something very big */
|
|
mps_arena_spare_commit_limit_set(arena, (size_t)-1);
|
|
|
|
/* allocate a jolly big object, clamp the commit limit down, leaving
|
|
128KB space, then free it */
|
|
|
|
die(mps_alloc(&objs[0], poollo, BIGSIZE), "alloc");
|
|
com0 = mps_arena_committed(arena);
|
|
mps_arena_commit_limit_set(arena, com0+(1024*128));
|
|
|
|
mps_free(poollo, objs[0], BIGSIZE);
|
|
com1 = mps_arena_committed(arena);
|
|
|
|
/* the free shouldn't have reduced the total amount committed */
|
|
report("reduce1", "%ld", com0-com1);
|
|
|
|
/* it should be possible to reallocate the object */
|
|
die(mps_alloc(&objs[0], poollo, BIGSIZE), "alloc lo");
|
|
|
|
mps_free(poollo, objs[0], BIGSIZE);
|
|
|
|
/* it should equally be possible to allocate an object in a different
|
|
segment (poolhi). This ought to flush the spare. */
|
|
die(mps_alloc(&objs[0], poolhi, BIGSIZE), "alloc hi");
|
|
|
|
mps_free(poolhi, objs[0], BIGSIZE);
|
|
|
|
comment("Finishing off.");
|
|
|
|
mps_pool_destroy(poolhi);
|
|
mps_pool_destroy(poollo);
|
|
comment("Destroyed pool.");
|
|
|
|
mps_thread_dereg(thread);
|
|
comment("Deregistered thread.");
|
|
|
|
mps_arena_destroy(arena);
|
|
comment("Destroyed arena.");
|
|
|
|
}
|
|
|
|
int main(void)
|
|
{
|
|
easy_tramp(test);
|
|
pass();
|
|
return 0;
|
|
}
|
|
|