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

Add owners to meters (change.epcore.brisling.pre.1.4)

Browse source 
Copied from Perforce
 Change: 20391
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 1998-12-04 20:08:28 +00:00
parent aa24c2a56f
commit fd54cc75ac
2 changed files with 31 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

38
mps/src/abq.c
View file

@ -1,6 +1,6 @@
/* impl.c.abq: AVAILABLE BLOCK QUEUE
*
* $HopeName: MMsrc!abq.c(trunk.2) $
* $HopeName: MMsrc!abq.c(trunk.3) $
* Copyright (C) 1998 Harlequin Group plc. All rights reserved.
*
* .readership: Any MPS developer
@ -10,11 +10,12 @@
* .design: See design.mps.poolmv2
*/
#include "mpm.h"
#include "meter.h"
#include "abq.h"
#include "cbs.h"
#include "mpm.h"
SRCID(abq, "$HopeName: MMsrc!abq.c(trunk.2) $");
SRCID(abq, "$HopeName: MMsrc!abq.c(trunk.3) $");
/* Private prototypes */
@ -29,7 +30,7 @@ static Index ABQNextIndex(ABQ abq, Index index);
*
* items is the number of items the queue can hold
*/
Res ABQInit(Arena arena, ABQ abq, Count items)
Res ABQInit(Arena arena, ABQ abq, void *owner, Count items)
{
Count elements;
void *p;
@ -50,10 +51,10 @@ Res ABQInit(Arena arena, ABQ abq, Count items)
abq->out = 0;
abq->queue = (CBSBlock *)p;
METER_INIT(abq->push, "push");
METER_INIT(abq->pop, "pop");
METER_INIT(abq->peek, "peek");
METER_INIT(abq->delete, "delete");
METER_INIT(abq->push, "push", owner);
METER_INIT(abq->pop, "pop", owner);
METER_INIT(abq->peek, "peek", owner);
METER_INIT(abq->delete, "delete", owner);
abq->sig = ABQSig;
@ -89,6 +90,10 @@ void ABQFinish(Arena arena, ABQ abq)
AVERT(Arena, arena);
AVERT(ABQ, abq);
METER_EMIT(&abq->push);
METER_EMIT(&abq->pop);
METER_EMIT(&abq->peek);
METER_EMIT(&abq->delete);
ArenaFree(arena, abq->queue, ABQQueueSize(abq->elements));
abq->elements = 0;
@ -230,10 +235,18 @@ Res ABQDescribe(ABQ abq, mps_lib_FILE *stream)
if(res != ResOK)
return res;
METER_WRITE(abq->push, stream);
METER_WRITE(abq->pop, stream);
METER_WRITE(abq->peek, stream);
METER_WRITE(abq->delete, stream);
res = METER_WRITE(abq->push, stream);
if(res != ResOK)
return res;
res = METER_WRITE(abq->pop, stream);
if(res != ResOK)
return res;
res = METER_WRITE(abq->peek, stream);
if(res != ResOK)
return res;
res = METER_WRITE(abq->delete, stream);
if(res != ResOK)
return res;
res = WriteF(stream, "}\n", NULL);
if(res != ResOK)
@ -296,4 +309,3 @@ static Index ABQNextIndex(ABQ abq, Index index)
next = 0;
return next;
}

14
mps/src/abq.h
View file

@ -1,20 +1,18 @@
/* impl.h.abq: ABQ INTERFACE
*
* $HopeName: MMsrc!abq.h(MMdevel_gavinm_splay.5) $
* $HopeName: MMsrc!abq.h(trunk.2) $
* Copyright (C) 1998 Harlequin Group plc. All rights reserved.
*
* .readership: Any MPS developer
* .purpose: A FIFO queue substrate for impl.c.poolmv2
*
* .purpose: A FIFO queue substrate for impl.c.poolmvv2
*
* .design: See design.mps.poolmv2
* .source: design.mps.poolmv2
*/
#ifndef abq_h
#define abq_h
#include "mpm.h"
#include "meter.h"
#include "mpm.h"
/* Signatures */
@ -25,7 +23,7 @@
/* Prototypes */
typedef struct ABQStruct *ABQ;
extern Res ABQInit(Arena arena, ABQ abq, Count items);
extern Res ABQInit(Arena arena, ABQ abq, void *owner, Count items);
extern Bool ABQCheck(ABQ abq);
extern void ABQFinish(Arena arena, ABQ abq);
extern Res ABQPush(ABQ abq, CBSBlock block);
@ -54,7 +52,7 @@ typedef struct ABQStruct
METER_DECL(delete);
Sig sig;
}ABQStruct;
} ABQStruct;
#endif /* abq_h */