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

Suppress warnings

Browse source 
Copied from Perforce
 Change: 21613
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 2001-02-19 14:18:27 +00:00
parent 716e9b9eee
commit be3a47fadf
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
mps/src/mpm.c
View file

@ -1,6 +1,6 @@
/* impl.c.mpm: GENERAL MPM SUPPORT
*
* $HopeName: MMsrc!mpm.c(trunk.30) $
* $HopeName: MMsrc!mpm.c(trunk.31) $
* Copyright (C) 1996 Harlequin Limited. All rights reserved.
*
* .purpose: Miscellaneous support for the implementation of the MPM
@ -16,7 +16,7 @@
#include <limits.h>
SRCID(mpm, "$HopeName: MMsrc!mpm.c(trunk.30) $");
SRCID(mpm, "$HopeName: MMsrc!mpm.c(trunk.31) $");
/* MPMCheck -- test MPM assumptions */
@ -82,6 +82,7 @@ Bool MPMCheck(void)
Bool (BoolCheck)(Bool b)
{
CHECKL(BoolCheck(b));
UNUSED(b); /* see .check.unused */
return TRUE;
}
@ -92,6 +93,7 @@ Bool FunCheck(Fun f)
{
CHECKL(f != NULL);
/* Could assert various platform-specific things here. */
UNUSED(f); /* see .check.unused */
return TRUE;
}
@ -101,6 +103,7 @@ Bool FunCheck(Fun f)
Bool ShiftCheck(Shift shift)
{
CHECKL(shift < MPS_WORD_WIDTH); /* standard.ansic 6.3.7 */
UNUSED(shift); /* see .check.unused */
return TRUE;
}
@ -111,6 +114,7 @@ Bool AttrCheck(Attr attr)
{
CHECKL((attr & ~AttrMASK) == 0);
/* Could check for legal combinations of attributes. */
UNUSED(attr); /* see .check.unused */
return TRUE;
}