mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-26 08:41:47 -07:00
Code Issues Projects Releases Wiki Activity

Discard all messages retrieved from the queue.

Browse source 
Copied from Perforce
 Change: 191317
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2016-04-20 09:35:27 +01:00
parent f9bf430678
commit 7680839e18
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
mps/code/finaltest.c
View file

@ -204,12 +204,13 @@ static void test_trees(int mode, const char *name, mps_arena_t arena,
if (type == mps_message_type_finalization()) {
mps_addr_t objaddr;
mps_message_finalization_ref(&objaddr, arena, message);
mps_message_discard(arena, message);
++ final_this_time;
} else if (type == mps_message_type_gc()) {
++ collections;
} else
} else {
error("Unexpected message type %lu.", (unsigned long)type);
}
mps_message_discard(arena, message);
}
finals += final_this_time;
printf("%"PRIuLONGEST" objects finalized: total %"PRIuLONGEST