summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsof <unknown>2003-09-23 17:07:39 +0000
committersof <unknown>2003-09-23 17:07:39 +0000
commitcf6845428c2bd19c6e52d3a7577e2d2bfe55f95c (patch)
treedf7bf5d6b40502e40523c1f7ec745154dc150c31
parentb23e6e00a3f4d02e6095b2033fa0dc97e4176c59 (diff)
downloadhaskell-cf6845428c2bd19c6e52d3a7577e2d2bfe55f95c.tar.gz
[project @ 2003-09-23 17:07:39 by sof]
wibble
-rw-r--r--ghc/rts/MBlock.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c
index 4d4b1a38c3..8352d0718d 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;