mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-24 05:22:04 -08:00
Code Issues Projects Releases Wiki Activity

Adding tags to arena teardown code

Browse source 
Copied from Perforce
 Change: 19080
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Jones 1997-12-09 11:53:53 +00:00
parent fa2ebbe0e2
commit 5551e9dcf4
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
mps/src/arena.c
View file

@ -1,6 +1,6 @@
/* impl.c.arena: ARENA IMPLEMENTATION
*
* $HopeName: MMsrc!arena.c(trunk.17) $
* $HopeName: MMsrc!arena.c(trunk.18) $
* Copyright (C) 1997 The Harlequin Group Limited. All rights reserved.
*
* .readership: Any MPS developer
@ -40,7 +40,7 @@
/* finalization */
#include "poolmrg.h"
SRCID(arena, "$HopeName: MMsrc!arena.c(trunk.17) $");
SRCID(arena, "$HopeName: MMsrc!arena.c(trunk.18) $");
/* All static data objects are declared here. See .static */
@ -367,8 +367,11 @@ void ArenaDestroy(Arena arena)
arena->enabledMessageTypes = NULL;
}
/* Empty the queue of messages before proceeding to finish */
/* the arena */
/* .message.queue.empty: Empty the queue of messages before */
/* proceeding to finish the arena. It is important that this */
/* is done before destroying the finalization pool as otherwise */
/* the message queue would have dangling pointers to messages */
/* whose memory has been unmapped. */
MessageEmpty(arena);
/* destroy the final pool (see design.mps.finalize) */