From ea3e054090acac6cd3ee24668cdcbfbbedbe721e Mon Sep 17 00:00:00 2001
From: Pekka Pirinen <pekka@harlequin.com>
Date: Mon, 26 Apr 1999 18:04:59 +0100
Subject: [PATCH] Add eventinterngenstring for general strings

Copied from Perforce
 Change: 20748
 ServerID: perforce.ravenbrook.com
---
 mps/src/event.h | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/mps/src/event.h b/mps/src/event.h
index 63572d2d8df..0d63d15339d 100644
--- a/mps/src/event.h
+++ b/mps/src/event.h
@@ -1,7 +1,7 @@
 /* impl.h.event -- Event Logging Interface
  *
  * Copyright (C) 1997. Harlequin Group plc. All rights reserved.
- * $HopeName: MMsrc!event.h(trunk.12) $
+ * $HopeName: MMsrc!event.h(trunk.13) $
  *
  * READERSHIP
  *
@@ -24,6 +24,7 @@ extern Res EventInit(void);
 extern void EventFinish(void);
 extern Word EventControl(Word, Word);
 extern Word EventInternString(const char *);
+extern Word EventInternGenString(size_t, const char *);
 extern void EventLabelAddr(Addr, Word);
 
 
@@ -101,7 +102,8 @@ extern Word EventKindControl;
 #define EventInit()            NOOP
 #define EventFinish()          NOOP
 #define EventControl(r, f)     (UNUSED(r), UNUSED(f), (Word)0)
-#define EventInternString(l)   (UNUSED(l), (Word)0)
+#define EventInternString(s)   (UNUSED(s), (Word)0)
+#define EventInternGenString(l, s) (UNUSED(l), UNUSED(s), (Word)0)
 #define EventLabelAddr(a, i)   BEGIN UNUSED(a); UNUSED(i); END