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
122 lines
2.5 KiB
C
122 lines
2.5 KiB
C
/*
|
|
TEST_HEADER
|
|
id = $Id$
|
|
summary = LDs don't go stale when using only non-moving pools
|
|
language = c
|
|
link = testlib.o rankfmt.o
|
|
END_HEADER
|
|
*/
|
|
|
|
#include "testlib.h"
|
|
#include "mpscawl.h"
|
|
#include "mpscmv.h"
|
|
#include "mpscamc.h"
|
|
#include "mpsavm.h"
|
|
#include "rankfmt.h"
|
|
|
|
|
|
#define MAXLDS 100
|
|
|
|
void *stackpointer;
|
|
|
|
|
|
static void test(void) {
|
|
mps_arena_t arena;
|
|
mps_pool_t poolmv, poolawl;
|
|
mps_thr_t thread;
|
|
mps_root_t root0, root1;
|
|
|
|
mps_addr_t p;
|
|
mps_ld_t lds[MAXLDS];
|
|
mps_fmt_t format;
|
|
mps_ap_t apawl;
|
|
|
|
mycell *a, *b;
|
|
|
|
int i;
|
|
|
|
cdie(mps_arena_create(&arena, mps_arena_class_vm(), (size_t)1024*1024*30),
|
|
"create arena");
|
|
|
|
cdie(mps_thread_reg(&thread, arena), "register thread");
|
|
|
|
cdie(mps_root_create_table(&root0, arena, mps_rank_ambig(), 0,
|
|
(mps_addr_t *)&exfmt_root, 1),
|
|
"create exfmt root");
|
|
|
|
cdie(mps_root_create_reg(&root1, arena, mps_rank_ambig(), 0, thread,
|
|
mps_stack_scan_ambig, stackpointer, 0),
|
|
"create register and stack root");
|
|
|
|
cdie(mps_fmt_create_A(&format, arena, &fmtA),
|
|
"create format");
|
|
|
|
cdie(mps_pool_create(&poolawl, arena, mps_class_awl(), format, getassociated),
|
|
"create awl pool");
|
|
|
|
cdie(mps_pool_create(&poolmv, arena, mps_class_mv(),
|
|
(size_t)0x4000, (size_t)128, (size_t)0x4000),
|
|
"create mv pool");
|
|
|
|
cdie(mps_ap_create(&apawl, poolawl, mps_rank_exact()),
|
|
"create ap");
|
|
|
|
b = allocone(apawl, 5, mps_rank_exact());
|
|
|
|
for (i=0; i < MAXLDS; i++) {
|
|
comment("%d", i);
|
|
mps_alloc(&p, poolmv, sizeof(mps_ld_s));
|
|
a = allocone(apawl, 5, mps_rank_exact());
|
|
setref(a, 0, b);
|
|
b = a;
|
|
a = allocdumb(apawl, 256*1024, mps_rank_exact());
|
|
comment("alloc");
|
|
lds[i] = p;
|
|
mps_ld_reset(lds[i], arena);
|
|
comment("reset");
|
|
if (i>0) {
|
|
mps_ld_add(lds[i], arena, (mps_addr_t) b);
|
|
}
|
|
comment("add");
|
|
}
|
|
|
|
for (i=0; i < MAXLDS; i++) {
|
|
comment("%d", i);
|
|
asserts(mps_ld_isstale(lds[i], arena, p) == 0,
|
|
"%d stale but shouldn't be", i);
|
|
}
|
|
|
|
|
|
|
|
mps_arena_park(arena);
|
|
mps_ap_destroy(apawl);
|
|
comment("Destroyed ap.");
|
|
|
|
mps_pool_destroy(poolmv);
|
|
mps_pool_destroy(poolawl);
|
|
comment("Destroyed pools.");
|
|
|
|
mps_fmt_destroy(format);
|
|
comment("Destroyed format.");
|
|
|
|
mps_root_destroy(root0);
|
|
mps_root_destroy(root1);
|
|
comment("Destroyed roots.");
|
|
|
|
mps_thread_dereg(thread);
|
|
comment("Deregistered thread.");
|
|
|
|
mps_arena_destroy(arena);
|
|
comment("Destroyed arena.");
|
|
}
|
|
|
|
|
|
int main(void)
|
|
{
|
|
void *m;
|
|
stackpointer=&m; /* hack to get stack pointer */
|
|
|
|
easy_tramp(test);
|
|
pass();
|
|
return 0;
|
|
}
|