mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-28 07:50:48 -08:00
Code Issues Projects Releases Wiki Activity

Fixing unrefed variables

Browse source 
Copied from Perforce
 Change: 19422
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Jones 1998-04-17 14:51:15 +01:00
parent a2ec9a11d8
commit cbb67db92e
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
mps/src/pool.c
View file

@ -1,6 +1,6 @@
/* impl.c.pool: POOL IMPLEMENTATION
*
* $HopeName: MMsrc!pool.c(trunk.47) $
* $HopeName: MMsrc!pool.c(trunk.48) $
* Copyright (C) 1997 The Harlequin Group Limited. All rights reserved.
*
* READERSHIP
@ -37,7 +37,7 @@
#include "mpm.h"
SRCID(pool, "$HopeName: MMsrc!pool.c(trunk.47) $");
SRCID(pool, "$HopeName: MMsrc!pool.c(trunk.48) $");
Bool PoolClassCheck(PoolClass class)
@ -732,6 +732,7 @@ Res PoolNoAccess(Pool pool, Seg seg, Addr addr, AccessSet mode)
AVER(SegBase(seg) <= addr);
AVER(addr < SegLimit(seg));
/* can't check AccessSet as there is no Check method */
UNUSED(mode);
NOTREACHED;
return ResUNIMPL;
@ -745,10 +746,6 @@ Res PoolNoAccess(Pool pool, Seg seg, Addr addr, AccessSet mode)
*/
Res PoolSegAccess(Pool pool, Seg seg, Addr addr, AccessSet mode)
{
Arena arena;
Res res;
TraceId ti;
AVERT(Pool, pool);
AVERT(Seg, seg);
AVER(SegBase(seg) <= addr);