mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-19 01:10:57 -08:00
Code Issues Projects Releases Wiki Activity

Checking mpsversionstring, change.epcore.brisling.160021

Browse source 
Copied from Perforce
 Change: 20345
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Jones 1998-11-09 16:56:28 +00:00
parent a09040ab5a
commit a893c61e3d
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
mps/src/arena.c
View file

@ -1,6 +1,6 @@
/* impl.c.arena: ARENA IMPLEMENTATION
*
* $HopeName: MMsrc!arena.c(trunk.58) $
* $HopeName: MMsrc!arena.c(trunk.59) $
* Copyright (C) 1998. Harlequin Group plc. All rights reserved.
*
* .readership: Any MPS developer
@ -36,7 +36,7 @@
#include "poolmrg.h"
#include "mps.h"
SRCID(arena, "$HopeName: MMsrc!arena.c(trunk.58) $");
SRCID(arena, "$HopeName: MMsrc!arena.c(trunk.59) $");
/* Forward declarations */
@ -407,6 +407,7 @@ Bool ArenaCheck(Arena arena)
CHECKL(arena->serial < arenaSerial);
CHECKD(ArenaClass, arena->class);
CHECKL(RingCheck(&arena->globalRing));
CHECKL(MPSVersion() == arena->mpsVersionString);
CHECKL(BoolCheck(arena->poolReady));
if(arena->poolReady) { /* design.mps.arena.pool.ready */
@ -1021,6 +1022,8 @@ Res ArenaDescribe(Arena arena, mps_lib_FILE *stream)
(WriteFP)arena, (WriteFU)arena->serial,
" class $P (\"$S\")\n",
(WriteFP)arena->class, arena->class->name,
" mpsVersion $S\n",
arena->mpsVersionString,
" poolReady $S\n", arena->poolReady ? "YES" : "NO",
" controlPool $P\n",
(WriteFP)&arena->controlPoolStruct,