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

Implementing shiftcheck

Browse source 
Copied from Perforce
 Change: 18456
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 1997-07-17 13:21:30 +01:00
parent 0d2d77ebaf
commit 7be8e9436b
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
mps/src/mpm.c
View file

@ -1,6 +1,6 @@
/* impl.c.mpm: GENERAL MPM SUPPORT
*
* $HopeName: MMsrc!mpm.c(trunk.13) $
* $HopeName: MMsrc!mpm.c(trunk.14) $
* Copyright (C) 1996 Harlequin Group, all rights reserved.
*
* .readership: MM developers.
@ -13,7 +13,7 @@
#include "mpm.h"
SRCID(mpm, "$HopeName: MMsrc!mpm.c(trunk.13) $");
SRCID(mpm, "$HopeName: MMsrc!mpm.c(trunk.14) $");
/* MPMCheck -- test MPM assumptions */
@ -80,6 +80,15 @@ Bool FunCheck(Fun f)
}
/* ShiftCheck -- check that a shift is valid */
Bool ShiftCheck(Shift shift)
{
AVER(shift < MPS_WORD_WIDTH); /* standard.ansic 6.3.7 */
return TRUE;
}
/* AttrCheck -- check that a set of pool attributes are valid */
Bool AttrCheck(Attr attr)