mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-14 15:30:29 -08:00
Code Issues Projects Releases Wiki Activity

Put in a version event; change event to eventmould (change.mps.dylan.kinglet.160151)

Browse source 
Copied from Perforce
 Change: 20731
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 1999-04-16 12:21:04 +01:00
parent 10bfa7dc17
commit bd2757ca57
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
mps/src/event.c
View file

@ -1,7 +1,7 @@
/* impl.c.event: EVENT LOGGING
*
* $HopeName$
* Copyright (C) 1997, 1998 Harlequin Group plc. All rights reserved.
* $HopeName: MMsrc!event.c(trunk.11) $
* Copyright (C) 1997, 1998, 1999 Harlequin Group plc. All rights reserved.
*
* .readership: MPS developers.
* .sources: mps.design.event
@ -26,7 +26,7 @@
#include "event.h"
#include "mpsio.h"
SRCID(event, "$HopeName$");
SRCID(event, "$HopeName: MMsrc!event.c(trunk.11) $");
#ifdef EVENT /* .trans.ifdef */
@ -38,7 +38,7 @@ static char eventBuffer[EVENT_BUFFER_SIZE];
static Count eventUserCount;
static Serial EventInternSerial;
EventUnion Event; /* Used by macros in impl.h.event */
EventUnion EventMould; /* Used by macros in impl.h.event */
char *EventNext, *EventLimit; /* Used by macros in impl.h.event */
Word EventKindControl; /* Bit set used to control output. */
@ -49,8 +49,7 @@ Res EventFlush(void)
AVER(eventInited);
res = (Res)mps_io_write(eventIO,
(void *)eventBuffer,
res = (Res)mps_io_write(eventIO, (void *)eventBuffer,
EventNext - eventBuffer);
EventNext = eventBuffer;
if(res != ResOK) return res;
@ -83,14 +82,15 @@ Res (EventInit)(void)
if(res != ResOK) return res;
EventNext = eventBuffer;
EventLimit = &eventBuffer[EVENT_BUFFER_SIZE];
eventUserCount = (Count)0;
eventUserCount = (Count)1;
eventInited = TRUE;
EventKindControl = (Word)mps_lib_telemetry_control();
EventInternSerial = (Serial)1; /* 0 is reserved */
(void)EventInternString(MPSVersion()); /* emit version */
} else {
++eventUserCount;
}
++eventUserCount;
EventInternSerial = (Serial)0;
return ResOK;
}