From 4068b87b433c2cbffbab3ece6bd8e4040726097f Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Wed, 5 May 1999 14:33:10 +0100
Subject: [PATCH] Don't use arenas if they're not there

/.

Copied from Perforce
 Change: 20779
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/testlib/testlib.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mps/qa/test/testlib/testlib.c b/mps/qa/test/testlib/testlib.c
index d7e8fd8951a..51adafff671 100644
--- a/mps/qa/test/testlib/testlib.c
+++ b/mps/qa/test/testlib/testlib.c
@@ -1,4 +1,4 @@
-/* $HopeName: MMQA_harness!testlib:testlib.c(trunk.20) $
+/* $HopeName: MMQA_harness!testlib:testlib.c(trunk.21) $
 some useful functions for testing the MPS */
 
 #include <stdio.h>
@@ -388,6 +388,8 @@ size_t arena_committed_and_used(mps_arena_t arena) {
    class 
 */
 
+#ifdef MMQA_SYMBOL_mps_arena_t
+
 mps_res_t mmqa_arena_create(mps_arena_t *arena_p,
  mps_arena_class_t arena_class, size_t chunk_size, size_t limit_size) {
  mps_res_t res;
@@ -431,6 +433,7 @@ mps_res_t mmqa_arena_create(mps_arena_t *arena_p,
  return res;
 }
  
+#endif
 
 
 /* TimeQueue