mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-06 14:22:31 -07:00
Code Issues Projects Releases Wiki Activity

Use diagnostics

Browse source 
Copied from Perforce
 Change: 20621
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 1999-03-15 13:03:47 +00:00
parent f1d5c84bce
commit db3d6ba6fd
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
mps/src/meter.h
View file

@ -1,6 +1,6 @@
/* impl.h.meter: METER INTERFACE
*
* $HopeName: MMsrc!meter.h(trunk.4) $
* $HopeName: MMsrc!meter.h(trunk.5) $
* Copyright (C) 1998, 1999 Harlequin Group plc. All rights reserved.
*
* .sources: mps.design.metrics.
@ -44,7 +44,13 @@ extern void MeterEmit(Meter meter);
/* Hack: owner is typically only used for MeterInit */
#define METER_ACC(meter, delta) \
STATISTIC(MeterAccumulate(&(meter), delta))
#if defined(DIAGNOSTICS)
#define METER_WRITE(meter, stream) MeterWrite(&(meter), stream)
#elif defined(DIAGNOSTICS_NONE)
#define METER_WRITE(meter, stream) (ResOK)
#else
#error "Diagnostics not configured."
#endif
#define METER_EMIT(meter) STATISTIC(MeterEmit(meter))