Merging branch/2012-08-21/diagnostic-telemetry.

Copied from Perforce
 Change: 179289
 ServerID: perforce.ravenbrook.com

1 files changed, 3 insertions, 3 deletions

diff --git a/mps/code/pool.c b/mps/code/pool.c
index 1b90864cb31..0635bf012b3 100644
--- a/mps/code/pool.c
+++ b/mps/code/pool.c
@@ -250,7 +250,7 @@ void PoolFinish(Pool pool)
   RingFinish(&pool->bufferRing);
   RingFinish(&pool->arenaRing);
  
-  EVENT_P(PoolFinish, pool);
+  EVENT1(PoolFinish, pool);
 }
 
 
@@ -313,7 +313,7 @@ Res PoolAlloc(Addr *pReturn, Pool pool, Size size,
   pool->fillMutatorSize += size;
   ArenaGlobals(PoolArena(pool))->fillMutatorSize += size;
 
-  EVENT_PAW(PoolAlloc, pool, *pReturn, size);
+  EVENT3(PoolAlloc, pool, *pReturn, size);
 
   return ResOK;
 }
@@ -330,7 +330,7 @@ void PoolFree(Pool pool, Addr old, Size size)
   AVER(size > 0);
   (*pool->class->free)(pool, old, size);
  
-  EVENT_PAW(PoolFree, pool, old, size);
+  EVENT3(PoolFree, pool, old, size);
 }