From 7e6182cfd7df3db53907e4bdb9f33e439186dff0 Mon Sep 17 00:00:00 2001
From: Gareth Rees <gdr@ravenbrook.com>
Date: Sat, 25 May 2013 20:18:07 +0100
Subject: [PATCH] Avoid test failure in function/120: can't provoke resresource
 so easily.

Copied from Perforce
 Change: 182234
 ServerID: perforce.ravenbrook.com
---
 mps/test/function/120.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/mps/test/function/120.c b/mps/test/function/120.c
index f385b5fc99e..915965094c0 100644
--- a/mps/test/function/120.c
+++ b/mps/test/function/120.c
@@ -12,7 +12,7 @@ OUTPUT_SPEC
  alloc_mv = COMMIT_LIMIT
  commit_ext = OK
  alloc_16 = OK
- alloc_big = RESOURCE
+ alloc_big = COMMIT_LIMIT
  poolcr = COMMIT_LIMIT
  result = pass
 END_HEADER
@@ -83,8 +83,9 @@ static void test(void) {
 
  report_res("alloc_16", mps_alloc(&a, pool, (size_t) (1024*16)));
 
-/* a really big allocation should fail on the arena's address arena size,
-   not the commit limit */
+/* We'd like to get MPS_RES_RESOURCE by running out of the arena's
+   address arena size, not the commit limit, but that's hard to
+   arrange on 64-bit machines. See job001152. */
 
  report_res("alloc_big", mps_alloc(&a, pool, (size_t) (1024*1024*30)));