From 55ea05dfa282da98896840a01ab561db69d37682 Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Mon, 15 Mar 1999 12:46:15 +0000
Subject: [PATCH] Add ambig root to hold p[i] during commit

Copied from Perforce
 Change: 20618
 ServerID: perforce.ravenbrook.com
---
 mps/qa/function/45.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mps/qa/function/45.c b/mps/qa/function/45.c
index d69d3afe3c4..8c1d1595d2d 100644
--- a/mps/qa/function/45.c
+++ b/mps/qa/function/45.c
@@ -1,6 +1,6 @@
 /* 
 TEST_HEADER
- id = $HopeName$
+ id = $HopeName: MMQA_test_function!45.c(trunk.3) $
  summary = arena_collect when lots of APs are in mid-cycle
  language = c
  link = testlib.o newfmt.o
@@ -42,6 +42,8 @@ static void test(void)
  int h,i,j,k,l;
  mycell *pobj;
 
+ mycell *ambig[NAPS];
+
  size_t size0, size1;
  long mdiff = 0;
  size_t bytes;
@@ -145,6 +147,7 @@ cells = allocone(ap[0], NCELLS);
    break;
   case 2:
    commentif(BLAH, "%i: begin commit %li", i, p[i]->data.id);
+   ambig[i] = p[i];
    ap[i]->init = ap[i]->alloc;
    ap_state[i] = 3;
    break;
@@ -158,6 +161,7 @@ cells = allocone(ap[0], NCELLS);
     commentif(BLAH, "%i -> %i", i, l);
    }
    ap_state[i] = 0;
+   ambig[i] = NULL;
    break;
  }
  }