From d6d6a11ef73f55dd44a6be8ba84b156f1045b6fc Mon Sep 17 00:00:00 2001
From: David Jones
Date: Wed, 19 Sep 2007 11:12:21 +0100
Subject: Mps: adding uses of diag_decl so that variety=hi builds on os x.

Copied from Perforce
 Change: 163257
 ServerID: perforce.ravenbrook.com

---
 mps/code/diag.c  | 2 +-
 mps/code/trace.c | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'mps/code')

diff --git a/mps/code/diag.c b/mps/code/diag.c
index 46fb1c4342a..c43e682d857 100644
--- a/mps/code/diag.c
+++ b/mps/code/diag.c
@@ -171,7 +171,7 @@ static void rules_diag(Rule rules)
     "Only showing diags permitted by these tag/paragraph/line"
     " rules:\n", NULL ));
   for(ir = 0; rules[ir].action != NULL; ir++) {
-    Rule rule = &rules[ir];
+    DIAG_DECL( Rule rule = &rules[ir]; )
     DIAG_MOREF(( "$S$S/$S/$S\n", rule->action, rule->tag, 
                  rule->para, rule->line,
                  NULL ));
diff --git a/mps/code/trace.c b/mps/code/trace.c
index 7c3c6fe97e1..3614f3157df 100644
--- a/mps/code/trace.c
+++ b/mps/code/trace.c
@@ -1821,7 +1821,7 @@ static void TraceStartGenDesc_diag(GenDesc desc, int i)
     "         ZoneSet:$B\n", desc->zones,
     NULL ));
   RING_FOR(n, &desc->locusRing, nn) {
-    PoolGen gen = RING_ELT(PoolGen, genRing, n);
+    DIAG_DECL( PoolGen gen = RING_ELT(PoolGen, genRing, n); )
     DIAG_WRITEF(( DIAG_STREAM,
       "           PoolGen $U ($S)", gen->nr, gen->pool->class->name,
       " totalSize $U", gen->totalSize,
-- 
cgit v1.2.1