From 72dae9faedde07e2653dff006a53af89fa690812 Mon Sep 17 00:00:00 2001
From: Richard Kistruck <rhsk@ravenbrook.com>
Date: Tue, 9 Dec 2008 17:18:09 +0000
Subject: [PATCH] Mps br/timing traceanc: trace.c needs tracestartwhytostring

(for .variety.di only, as it happens)

Copied from Perforce
 Change: 166912
 ServerID: perforce.ravenbrook.com
---
 mps/code/mpm.h      | 1 +
 mps/code/traceanc.c | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/mps/code/mpm.h b/mps/code/mpm.h
index dbdc5baba39..094f3f76d51 100644
--- a/mps/code/mpm.h
+++ b/mps/code/mpm.h
@@ -389,6 +389,7 @@ extern Res traceStartCollectAll(Trace *traceReturn, Arena arena, int why);
 extern Bool TraceStartMessageCheck(TraceStartMessage message);
 extern void TraceStartMessageInit(Arena arena, TraceStartMessage tsMessage);
 extern void traceStartWhyToTextBuffer(char *s, size_t len, int why);
+extern const char *traceStartWhyToString(int why);
 #define TraceStartMessageMessage(traceStartMessage) \
   (&((traceStartMessage)->messageStruct))
 
diff --git a/mps/code/traceanc.c b/mps/code/traceanc.c
index af9965d6f27..ec7daec070a 100644
--- a/mps/code/traceanc.c
+++ b/mps/code/traceanc.c
@@ -102,7 +102,7 @@ void TraceStartMessageInit(Arena arena, TraceStartMessage tsMessage)
  * why a trace started.
  */
  
-static const char *traceStartWhyToString(int why)
+const char *traceStartWhyToString(int why)
 {
   const char *r;