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

Retracting rework changes, change.dylan.jackdaw.170554

Browse source 
Copied from Perforce
 Change: 20173
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Jones 1998-10-07 14:33:20 +01:00
parent 6b5cf69d83
commit ed8ff55e1d
3 changed files with 4 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

24
mps/src/mpm.c
View file

@ -1,6 +1,6 @@
/* impl.c.mpm: GENERAL MPM SUPPORT
*
* $HopeName: MMsrc!mpm.c(trunk.26) $
* $HopeName: MMsrc!mpm.c(trunk.27) $
* Copyright (C) 1996. Harlequin Group plc. All rights reserved.
*
* .readership: MM developers.
@ -17,7 +17,7 @@
#include <float.h>
SRCID(mpm, "$HopeName: MMsrc!mpm.c(trunk.26) $");
SRCID(mpm, "$HopeName: MMsrc!mpm.c(trunk.27) $");
/* MPMCheck -- test MPM assumptions */
@ -169,26 +169,6 @@ Word (WordAlignDown)(Word word, Align alignment)
}
/* Accumulator methods */
void AccumulatorReset(Accumulation *a)
{
AVER(a != NULL);
/* *a may be arbitrary, especially if unitialized */
*a = 0;
}
void Accumulate(Accumulation *augend, unsigned long addend)
{
AVER(augend != NULL);
AVER(*augend >= 0);
/* addend may be arbitrary */
*augend += addend;
}
/* SizeIsP2 -- test whether a size is a power of two */
Bool SizeIsP2(Size size)

8
mps/src/mpm.h
View file

@ -1,6 +1,6 @@
/* impl.h.mpm: MEMORY POOL MANAGER DEFINITIONS
*
* $HopeName: MMsrc!mpm.h(trunk.104) $
* $HopeName: MMsrc!mpm.h(trunk.105) $
* Copyright (C) 1998. Harlequin Group plc. All rights reserved.
*/
@ -119,12 +119,6 @@ extern int (AddrComp)(Addr a, Addr b, Size size);
extern Bool ResIsAllocFailure(Res res);
/* Accumulator methods */
extern void AccumulatorReset(Accumulation *a);
extern void Accumulate(Accumulation *augend, unsigned long addend);
/* Logs and Powers
*
* SizeIsP2 returns TRUE if and only if size is a non-negative integer

3
mps/src/mpmtypes.h
View file

@ -1,6 +1,6 @@
/* impl.h.mpmtypes: MEMORY POOL MANAGER TYPES
*
* $HopeName: MMsrc!mpmtypes.h(trunk.58) $
* $HopeName: MMsrc!mpmtypes.h(trunk.59) $
* Copyright (C) 1997, 1998 Harlequin Group plc. All rights reserved.
*
* .readership: MM developers.
@ -35,7 +35,6 @@ typedef Word Size; /* design.mps.type.size */
typedef Word Count; /* design.mps.type.count */
typedef Word Index; /* design.mps.type.index */
typedef Word Align; /* design.mps.type.align */
typedef double Accumulation; /* design.mps.type.accumulation */
typedef unsigned Shift; /* design.mps.type.shift */
typedef Addr Ref; /* design.mps.type.ref */
typedef void *Pointer; /* design.mps.type.pointer */