From bebd283be11b3e9ffdc6e77a0d804ce1ea230aae Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Mon, 22 Sep 1997 12:32:46 +0100
Subject: [PATCH] Shorten loop to allow automated testing

Copied from Perforce
 Change: 18781
 ServerID: perforce.ravenbrook.com
---
 mps/qa/function/33.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mps/qa/function/33.c b/mps/qa/function/33.c
index 0036f4fe7e4..4ac77e2321d 100644
--- a/mps/qa/function/33.c
+++ b/mps/qa/function/33.c
@@ -63,7 +63,7 @@ static void test(void)
   a[i] = allocone(apawl, 6, 1);
  }
 
- for(i=0; i<100000; i++) {
+ for(i=0; i<10000; i++) {
   j = ranint(100);
   comment("New object %i", j);
   a[j] = allocone(apawl, 5+ranint(50), 1);