From 6dd5d1b90bd7c2cb27ac89035e2ce4e4ef0deb1d Mon Sep 17 00:00:00 2001
From: Pekka Pirinen <pekka@harlequin.com>
Date: Mon, 26 Apr 1999 18:06:41 +0100
Subject: [PATCH] Add eventinterngenstring for general strings; pass string len
 in intern

Copied from Perforce
 Change: 20749
 ServerID: perforce.ravenbrook.com
---
 mps/src/event.c | 33 +++++++++++++++++++++++++++------
 1 file changed, 27 insertions(+), 6 deletions(-)

diff --git a/mps/src/event.c b/mps/src/event.c
index 08d5996b147..6ce87b81950 100644
--- a/mps/src/event.c
+++ b/mps/src/event.c
@@ -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);