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

Add eventinterngenstring for general strings; pass string len in intern

Browse source 
Copied from Perforce
 Change: 20749
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 1999-04-26 18:06:41 +01:00
parent ea3e054090
commit 6dd5d1b90b
1 changed files with 27 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

33
mps/src/event.c
View file

@ -1,6 +1,6 @@
/* impl.c.event: EVENT LOGGING
*
* $HopeName: MMsrc!event.c(trunk.11) $
* $HopeName: MMsrc!event.c(trunk.12) $
* Copyright (C) 1997, 1998, 1999 Harlequin Group plc. All rights reserved.
*
* .readership: MPS developers.
@ -26,7 +26,7 @@
#include "event.h"
#include "mpsio.h"
SRCID(event, "$HopeName: MMsrc!event.c(trunk.11) $");
SRCID(event, "$HopeName: MMsrc!event.c(trunk.12) $");
#ifdef EVENT /* .trans.ifdef */
@ -70,7 +70,7 @@ Res EventSync(void)
}
Res (EventInit)(void)
Res EventInit(void)
{
Res res;
@ -95,7 +95,7 @@ Res (EventInit)(void)
}
void (EventFinish)(void)
void EventFinish(void)
{
AVER(eventInited);
AVER(eventUserCount > 0);
@ -138,7 +138,20 @@ Word EventInternString(const char *label)
id = (Word)EventInternSerial;
++EventInternSerial;
EVENT_WS(Intern, id, label);
EVENT_WS(Intern, id, StringLength(label), label);
return id;
}
Word EventInternGenString(size_t len, const char *label)
{
Word id;
AVER(label != NULL);
id = (Word)EventInternSerial;
++EventInternSerial;
EVENT_WS(Intern, id, len, label);
return id;
}
@ -154,7 +167,7 @@ void EventLabelAddr(Addr addr, Word id)
#else /* EVENT, not */
Res EventSync(void)
Res (EventSync)(void)
{
return(ResOK);
}
@ -189,6 +202,14 @@ Word (EventInternString)(const char *label)
}
Word (EventInternGenString)(size_t len, const char *label)
{
UNUSED(len); UNUSED(label);
return (Word)0;
}
void (EventLabelAddr)(Addr addr, Word id)
{
UNUSED(addr);