Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Mps br/timing: hack finaltest.c, to show gcstart bug job001989

Browse source 
Copied from Perforce
 Change: 166855
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2008-12-02 15:03:45 +00:00
parent 992db9bae8
commit e4dfcfcd12
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
mps/code/finaltest.c
View file

@ -148,6 +148,7 @@ static void *test(void *arg, size_t s)
die(mps_ap_create(&ap, amc, MPS_RANK_EXACT), "ap_create\n");
mps_message_type_enable(arena, mps_message_type_finalization());
mps_message_type_enable(arena, mps_message_type_gc_start());
mps_arena_park(arena);
@ -175,12 +176,10 @@ static void *test(void *arg, size_t s)
fflush(stdout);
die(mps_arena_collect(arena), "collect");
printf(" Done.\n");
while (mps_message_poll(arena)) {
while (mps_message_get(&message, arena,
mps_message_type_finalization())) {
mps_word_t obj;
mps_addr_t objaddr;
cdie(mps_message_get(&message, arena,
mps_message_type_finalization()),
"get");
mps_message_finalization_ref(&objaddr, arena, message);
obj = (mps_word_t)objaddr;
mps_message_discard(arena, message);
@ -215,12 +214,10 @@ static void *test(void *arg, size_t s)
fflush(stdout);
die(mps_arena_collect(arena), "collect");
printf(" Done.\n");
while (mps_message_poll(arena)) {
while (mps_message_get(&message, arena,
mps_message_type_finalization())) {
mps_word_t obj;
mps_addr_t objaddr;
cdie(mps_message_get(&message, arena,
mps_message_type_finalization()),
"get");
mps_message_finalization_ref(&objaddr, arena, message);
obj = (mps_word_t)objaddr;
mps_message_discard(arena, message);