From bfce16e9897de0541d1843148b6cd5676e64eb86 Mon Sep 17 00:00:00 2001
From: Richard Kistruck <rhsk@ravenbrook.com>
Date: Fri, 27 Apr 2007 15:49:45 +0100
Subject: [PATCH] Mps br/diag: arenavm.c: fix unused var super in
 vmarenadescribe

Copied from Perforce
 Change: 162216
 ServerID: perforce.ravenbrook.com
---
 mps/code/arenavm.c | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/mps/code/arenavm.c b/mps/code/arenavm.c
index 3e0723ad3ac..e70db21a6a2 100644
--- a/mps/code/arenavm.c
+++ b/mps/code/arenavm.c
@@ -197,7 +197,6 @@ static Res VMArenaDescribe(Arena arena, mps_lib_FILE *stream)
 {
   Res res;
   VMArena vmArena;
-  ArenaClass super;
 
   if (!CHECKT(Arena, arena)) return ResFAIL;
   if (stream == NULL) return ResFAIL;
@@ -208,9 +207,12 @@ static Res VMArenaDescribe(Arena arena, mps_lib_FILE *stream)
   /* ...but the next method is ArenaTrivDescribe, so don't call it;
    * see impl.c.arena#describe.triv.dont-upcall.
    *
-  super = ARENA_SUPERCLASS(VMArenaClass);
-  res = super->describe(arena, stream);
-  if (res != ResOK) return res;
+  {
+    ArenaClass super;
+    super = ARENA_SUPERCLASS(VMArenaClass);
+    res = super->describe(arena, stream);
+    if (res != ResOK) return res;
+  }
    *
   */