mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Using shiftcheck

Browse source 
Copied from Perforce
 Change: 18453
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 1997-07-17 13:21:17 +01:00
parent 07833c24b3
commit 51eae137a5
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/src/arenacl.c
View file

@ -1,6 +1,6 @@
/* impl.c.arenacl: ARENA IMPLEMENTATION USING CLIENT MEMORY
*
* $HopeName: MMsrc!arenacl.c(trunk.5) $
* $HopeName: MMsrc!arenacl.c(trunk.6) $
*
* Copyright (C) 1996 Harlequin Group, all rights reserved.
*
@ -41,14 +41,14 @@
#error "Client arena not configured"
#endif
SRCID(arenacl, "$HopeName: MMsrc!arenacl.c(trunk.5) $");
SRCID(arenacl, "$HopeName: MMsrc!arenacl.c(trunk.6) $");
Bool ArenaCheck(Arena arena)
{
CHECKS(Arena,arena);
CHECKL(RingCheck(&arena->chunkRing));
/* no possible check on arena->chunkSerial */
CHECKL(arena->pageShift < MPS_WORD_WIDTH);
CHECKL(ShiftCheck(arena->pageShift));
CHECKL(arena->pageSize == 1uL << arena->pageShift);
return TRUE;
}