From fb987e4bddb353dcc5c3c1fc3b3d07d862b4de4e Mon Sep 17 00:00:00 2001
From: David Jones <drj@ravenbrook.com>
Date: Tue, 11 Feb 1997 16:27:53 +0000
Subject: [PATCH] Should use arenaalign, not vmalign

Copied from Perforce
 Change: 16536
 ServerID: perforce.ravenbrook.com
---
 mps/src/poolmrg.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/mps/src/poolmrg.c b/mps/src/poolmrg.c
index b41115dcb29..948f90cd3a5 100644
--- a/mps/src/poolmrg.c
+++ b/mps/src/poolmrg.c
@@ -2,7 +2,7 @@
  * 
  * MANUAL RANK GUARDIAN POOL
  * 
- * $HopeName$
+ * $HopeName: MMsrc!poolmrg.c(trunk.1) $
  * Copyright(C) 1995,1997 Harlequin Group, all rights reserved
  *
  * READERSHIP
@@ -35,7 +35,7 @@
 #include "poolmrg.h"
 
 
-SRCID(poolmrg, "$HopeName$");
+SRCID(poolmrg, "$HopeName: MMsrc!poolmrg.c(trunk.1) $");
 
 #define MRGSig          ((Sig)0x519B0349)
 
@@ -134,7 +134,7 @@ static Res MRGGroupCreate(MRGGroup *groupReturn, MRG mrg)
 
   guardians = mrg->extendBy / sizeof(Addr);	/* per seg */
   linksegsize = guardians * sizeof(RingStruct);
-  linksegsize = SizeAlignUp(linksegsize, VMAlign());
+  linksegsize = SizeAlignUp(linksegsize, ArenaAlign(space));
   res = PoolSegAlloc(&linkseg, pool, linksegsize);
   if(res != ResOK)
     goto failLinkSegAlloc;