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

Consistently passing closure sizes as size_t and not casting back and forth to size or anything else.

Browse source 
Copied from Perforce
 Change: 177817
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 2012-03-27 18:12:52 +01:00
parent 382d044e97
commit ecb147b98f
5 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
mps/code/mpm.h
View file

@ -213,7 +213,7 @@ extern void PoolFixEmergency(Pool pool, ScanState ss, Seg seg, Addr *refIO);
extern void PoolReclaim(Pool pool, Trace trace, Seg seg);
extern void PoolTraceEnd(Pool pool, Trace trace);
extern void PoolWalk(Pool pool, Seg seg, FormattedObjectsStepMethod f,
void *v, unsigned long s);
void *v, size_t s);
extern void PoolFreeWalk(Pool pool, FreeBlockStepMethod f, void *p);
extern Res PoolTrivInit(Pool pool, va_list arg);
extern void PoolTrivFinish(Pool pool);
@ -262,7 +262,7 @@ extern Res PoolNoFramePop(Pool pool, Buffer buf, AllocFrame frame);
extern Res PoolTrivFramePop(Pool pool, Buffer buf, AllocFrame frame);
extern void PoolNoFramePopPending(Pool pool, Buffer buf, AllocFrame frame);
extern void PoolNoWalk(Pool pool, Seg seg, FormattedObjectsStepMethod step,
void *p, unsigned long s);
void *p, size_t s);
extern void PoolNoFreeWalk(Pool pool, FreeBlockStepMethod f, void *p);
extern PoolDebugMixin PoolNoDebugMixin(Pool pool);
extern BufferClass PoolNoBufferClass(void);

2
mps/code/mpmtypes.h
View file

@ -211,7 +211,7 @@ typedef void (*PoolFramePopPendingMethod)(Pool pool, Buffer buf,
AllocFrame frame);
typedef void (*PoolWalkMethod)(Pool pool, Seg seg,
FormattedObjectsStepMethod f,
void *v, unsigned long s);
void *v, size_t s);
typedef void (*PoolFreeWalkMethod)(Pool pool, FreeBlockStepMethod f, void *p);
typedef BufferClass (*PoolBufferClassMethod)(void);
typedef Res (*PoolDescribeMethod)(Pool pool, mps_lib_FILE *stream);

2
mps/code/pool.c
View file

@ -482,7 +482,7 @@ void PoolTraceEnd(Pool pool, Trace trace)
/* PoolWalk -- walk objects in this segment */
void PoolWalk(Pool pool, Seg seg, FormattedObjectsStepMethod f,
void *p, Size s)
void *p, size_t s)
{
AVERT(Pool, pool);
AVERT(Seg, seg);

2
mps/code/poolabs.c
View file

@ -621,7 +621,7 @@ Res PoolTrivFramePop(Pool pool, Buffer buf, AllocFrame frame)
void PoolNoWalk(Pool pool, Seg seg,
FormattedObjectsStepMethod f, void *p, Size s)
FormattedObjectsStepMethod f, void *p, size_t s)
{
AVERT(Pool, pool);
AVERT(Seg, seg);

6
mps/code/walk.c
View file

@ -36,7 +36,7 @@ static Bool FormattedObjectsStepClosureCheck(FormattedObjectsStepClosure c)
static void ArenaFormattedObjectsStep(Addr object, Format format, Pool pool,
void *p, Size s)
void *p, size_t s)
{
FormattedObjectsStepClosure c;
/* Can't check object */
@ -56,7 +56,7 @@ static void ArenaFormattedObjectsStep(Addr object, Format format, Pool pool,
* So called because it walks all formatted objects in an arena. */
static void ArenaFormattedObjectsWalk(Arena arena, FormattedObjectsStepMethod f,
void *p, Size s)
void *p, size_t s)
{
Seg seg;
FormattedObjectsStepClosure c;
@ -186,7 +186,7 @@ static Bool rootsStepClosureCheck(rootsStepClosure rsc)
static void rootsStepClosureInit(rootsStepClosure rsc,
Globals arena, Trace trace,
TraceFixMethod rootFix,
mps_roots_stepper_t f, void *p, Size s)
mps_roots_stepper_t f, void *p, size_t s)
{
ScanState ss;