From 2bd09e402d5bbaa8ef54b9513d72b528d78ff90e Mon Sep 17 00:00:00 2001
From: Pekka Pirinen <pekka@harlequin.com>
Date: Wed, 24 Sep 1997 10:47:01 +0100
Subject: [PATCH] Make the arena small enough to work on deja-vu

Copied from Perforce
 Change: 18808
 ServerID: perforce.ravenbrook.com
---
 mps/src/arenacv.c | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/mps/src/arenacv.c b/mps/src/arenacv.c
index 4a60af6030a..d972105519f 100644
--- a/mps/src/arenacv.c
+++ b/mps/src/arenacv.c
@@ -1,6 +1,6 @@
 /* impl.c.arenacv: ARENA COVERAGE TEST
  *
- * $HopeName: MMsrc!arenacv.c(trunk.4) $
+ * $HopeName: MMsrc!arenacv.c(trunk.5) $
  * Copyright (C) 1997 Harlequin Group, all rights reserved
  *
  * .readership: MPS developers
@@ -116,17 +116,20 @@ static void testit(ArenaClass class, ...)
 }
 
 
+#define TEST_ARENA_SIZE              ((Size)16<<20)
+
+
 int main(void)
 {
   void *block;
 
-  testit((ArenaClass)mps_arena_class_vm(), ARENA_SIZE);
+  testit((ArenaClass)mps_arena_class_vm(), TEST_ARENA_SIZE);
 
-  testit((ArenaClass)mps_arena_class_an(), ARENA_SIZE);
+  testit((ArenaClass)mps_arena_class_an(), TEST_ARENA_SIZE);
 
-  block = malloc(ARENA_SIZE);
+  block = malloc(TEST_ARENA_SIZE);
   die(block == NULL ? ResFAIL : ResOK, "malloc");
-  testit((ArenaClass)mps_arena_class_cl(), ARENA_SIZE, (Addr)block);
+  testit((ArenaClass)mps_arena_class_cl(), TEST_ARENA_SIZE, (Addr)block);
 
   fprintf(stderr, "Conclusion:  Failed to find any defects.\n");
   return 0;