From edef673fc030906faaf7e651671c2ccab3b74d55 Mon Sep 17 00:00:00 2001
From: David Lovemore <dl@ravenbrook.com>
Date: Tue, 31 Jul 2012 15:00:21 +0100
Subject: [PATCH] Fixup warnings of unused variables.  now compiles.

Copied from Perforce
 Change: 178793
 ServerID: perforce.ravenbrook.com
---
 mps/code/poolsnc.c | 4 ++--
 mps/code/seg.c     | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/mps/code/poolsnc.c b/mps/code/poolsnc.c
index 74ba6d3cab0..c9b1c20098e 100644
--- a/mps/code/poolsnc.c
+++ b/mps/code/poolsnc.c
@@ -643,8 +643,8 @@ static void SNCWalk(Pool pool, Seg seg, FormattedObjectsStepMethod f,
       limit = SegLimit(seg);
 
     while(object < limit) {
-      (*f)(object, pool->format, pool, p, s);
-      nextObject = (*pool->format->skip)(object);
+      (*f)(object, format, pool, p, s);
+      nextObject = (*format->skip)(object);
       AVER(nextObject > object);
       object = nextObject;
     }
diff --git a/mps/code/seg.c b/mps/code/seg.c
index f5218b2be8d..3f95ba4ec88 100644
--- a/mps/code/seg.c
+++ b/mps/code/seg.c
@@ -210,7 +210,7 @@ failInit:
 static void SegFinish(Seg seg)
 {
   Arena arena;
-  Addr addr, base, limit;
+  Addr addr, limit;
   Tract tract;
   SegClass class;