From 5827772eed6fc68cd650a58f7432d3f7aaf60dff Mon Sep 17 00:00:00 2001
From: David Jones <drj@ravenbrook.com>
Date: Wed, 18 Jul 2007 17:10:27 +0100
Subject: [PATCH] Mps: oopsie, this didn't compile before, but now does.

Copied from Perforce
 Change: 162928
 ServerID: perforce.ravenbrook.com
---
 mps/code/poolawl.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/mps/code/poolawl.c b/mps/code/poolawl.c
index cf1f76d5f47..ca1a5cdc4ce 100644
--- a/mps/code/poolawl.c
+++ b/mps/code/poolawl.c
@@ -672,7 +672,7 @@ static void awlRangeWhiten(AWLSeg awlseg, Index base, Index limit)
   }
 }
 
-Res AWLWhiten(Pool pool, Trace trace, Seg seg)
+static Res AWLWhiten(Pool pool, Trace trace, Seg seg)
 {
   AWL awl;
   AWLSeg awlseg;
@@ -691,7 +691,7 @@ Res AWLWhiten(Pool pool, Trace trace, Seg seg)
   AVER(SegWhite(seg) == TraceSetEMPTY);
 
   if(buffer == NULL) {
-    AWLRangeWhiten(awlseg, 0, awlseg->grains);
+    awlRangeWhiten(awlseg, 0, awlseg->grains);
     trace->condemned += SegSize(seg);
   } else {
     /* Whiten everything except the buffer. */
@@ -701,8 +701,8 @@ Res AWLWhiten(Pool pool, Trace trace, Seg seg)
     Index limitIndex = awlIndexOfAddr(base, awl,
                                       BufferLimit(buffer));
 
-    AWLRangeWhiten(awlseg, 0, scanLimitIndex);
-    AWLRangeWhiten(awlseg, limitIndex, awlseg->grains);
+    awlRangeWhiten(awlseg, 0, scanLimitIndex);
+    awlRangeWhiten(awlseg, limitIndex, awlseg->grains);
 
     /* Check the buffer is black. */
     /* This really ought to change when we have a non-trivial */