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
133 lines
2.5 KiB
C
133 lines
2.5 KiB
C
/*
|
|
TEST_HEADER
|
|
id = $Id$
|
|
summary = regression test for AWl bug (request.dylan.160094
|
|
language = c
|
|
link = testlib.o rankfmt.o
|
|
END_HEADER
|
|
*/
|
|
|
|
#include "testlib.h"
|
|
#include "mpscawl.h"
|
|
#include "mpscamc.h"
|
|
#include "mpsavm.h"
|
|
#include "rankfmt.h"
|
|
|
|
#define genCOUNT (3)
|
|
|
|
static mps_gen_param_s testChain[genCOUNT] = {
|
|
{ 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
|
|
|
|
void *stackpointer;
|
|
|
|
mycell *a, *b;
|
|
|
|
static void test(void)
|
|
{
|
|
mps_arena_t arena;
|
|
mps_pool_t poolamc, poolawl;
|
|
mps_thr_t thread;
|
|
mps_root_t root, rootb;
|
|
|
|
mps_addr_t base;
|
|
mps_addr_t *addr;
|
|
mps_chain_t chain;
|
|
mps_fmt_t format;
|
|
mps_ap_t apamc, apawl;
|
|
|
|
mps_word_t i, c;
|
|
|
|
cdie(mps_arena_create(&arena, mps_arena_class_vm(), (size_t) (60ul*1024*1024)), "create arena");
|
|
|
|
cdie(mps_thread_reg(&thread, arena), "register thread");
|
|
|
|
base = &b;
|
|
addr = base;
|
|
cdie(mps_root_create_table(&root, arena, mps_rank_ambig(), 0, addr, 1),
|
|
"creat root");
|
|
|
|
base = &exfmt_root;
|
|
addr = base;
|
|
cdie(mps_root_create_table(&rootb, arena, mps_rank_ambig(), 0, addr, 1),
|
|
"create root b");
|
|
|
|
cdie(
|
|
mps_fmt_create_A(&format, arena, &fmtA),
|
|
"create format");
|
|
|
|
cdie(mps_chain_create(&chain, arena, genCOUNT, testChain), "chain_create");
|
|
|
|
cdie(
|
|
mps_pool_create(&poolamc, arena, mps_class_amc(), format, chain),
|
|
"create pool");
|
|
|
|
cdie(
|
|
mps_pool_create(&poolawl, arena, mps_class_awl(), format, getassociated),
|
|
"create pool");
|
|
|
|
cdie(
|
|
mps_ap_create(&apawl, poolawl, mps_rank_weak()),
|
|
"create ap");
|
|
|
|
cdie(
|
|
mps_ap_create(&apamc, poolamc, mps_rank_exact()),
|
|
"create ap");
|
|
|
|
formatcomments = 0;
|
|
|
|
b = allocone(apamc, 1024, mps_rank_exact());
|
|
|
|
c = mps_collections(arena);
|
|
|
|
for (i=1; i<100; i++)
|
|
{
|
|
comment("%i of 100.", i);
|
|
while (mps_collections(arena) == c) {
|
|
a = allocone(apamc, 1024, mps_rank_exact());
|
|
if (ranint(5)) {
|
|
setref(a, 0, b);
|
|
}
|
|
b = a;
|
|
}
|
|
c = mps_collections(arena);
|
|
a = allocone(apawl, 1, mps_rank_weak());
|
|
a->data.id = 0;
|
|
setref(a, 0, b);
|
|
}
|
|
|
|
mps_arena_park(arena);
|
|
mps_ap_destroy(apawl);
|
|
mps_ap_destroy(apamc);
|
|
comment("Destroyed aps.");
|
|
|
|
mps_pool_destroy(poolamc);
|
|
mps_pool_destroy(poolawl);
|
|
comment("Destroyed pools.");
|
|
|
|
mps_fmt_destroy(format);
|
|
comment("Destroyed format.");
|
|
|
|
mps_chain_destroy(chain);
|
|
comment("Destroyed chain.");
|
|
|
|
mps_root_destroy(root);
|
|
mps_root_destroy(rootb);
|
|
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;
|
|
}
|