X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FMBlock.c;fp=ghc%2Frts%2FMBlock.c;h=8352d0718d92d1e2171b0d7892309a3d27dc2574;hb=cf6845428c2bd19c6e52d3a7577e2d2bfe55f95c;hp=4d4b1a38c3e4d98cc091e8155bc8954ff414450c;hpb=b23e6e00a3f4d02e6095b2033fa0dc97e4176c59;p=ghc-hetmet.git

diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c
index 4d4b1a3..8352d07 100644
--- a/ghc/rts/MBlock.c
+++ b/ghc/rts/MBlock.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: MBlock.c,v 1.48 2003/09/19 09:04:09 simonmar Exp $
+ * $Id: MBlock.c,v 1.49 2003/09/23 17:07:39 sof Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -265,7 +265,7 @@ getMBlocks(nat n)
   static char* base_mblocks       = (char*)0;
   static char* next_request       = (char*)0;
   void* ret                       = (void*)0;
-  int i;
+  nat i;
 
   lnat size = MBLOCK_SIZE * n;