From a595c2ff20bc040c728691e26a64797142f7293c Mon Sep 17 00:00:00 2001
From: Gareth Rees <gdr@ravenbrook.com>
Date: Thu, 10 Apr 2014 13:02:22 +0100
Subject: [PATCH] Trying to create a freelist with too-small alignment is a
 static programming error, not a dynamic failure condition, so aver instead of
 returning resparam. (see job003485).

Copied from Perforce
 Change: 185426
 ServerID: perforce.ravenbrook.com
---
 mps/code/freelist.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/mps/code/freelist.c b/mps/code/freelist.c
index e46ee7ab773..5b586a82e6a 100644
--- a/mps/code/freelist.c
+++ b/mps/code/freelist.c
@@ -187,8 +187,7 @@ static Res freelistInit(Land land, ArgList args)
     return res;
 
   /* See <design/freelist/#impl.grain> */
-  if (!AlignIsAligned(LandAlignment(land), freelistMinimumAlignment))
-    return ResPARAM;
+  AVER(AlignIsAligned(LandAlignment(land), freelistMinimumAlignment));
 
   fl = freelistOfLand(land);
   fl->list = NULL;