From 83abacaaa377fc7c221eeedcbb31062740e7d86a Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Mon, 8 Jun 1998 16:46:06 +0100
Subject: [PATCH] Allow skip method to be called (epvm has changed)

Copied from Perforce
 Change: 19632
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/testlib/epvmfmt.c | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/mps/qa/test/testlib/epvmfmt.c b/mps/qa/test/testlib/epvmfmt.c
index 19edf39f6a3..ec20faee019 100644
--- a/mps/qa/test/testlib/epvmfmt.c
+++ b/mps/qa/test/testlib/epvmfmt.c
@@ -1,4 +1,4 @@
-/* $HopeName: MMQA_harness!testlib:epvmfmt.c(trunk.3) $
+/* $HopeName: MMQA_harness!testlib:epvmfmt.c(trunk.4) $
 */
 
 #include "mps.h"
@@ -21,8 +21,11 @@ static void epvmpad(mps_addr_t base, size_t size);
 static mps_res_t epvmscan(mps_ss_t ss, mps_addr_t base, mps_addr_t limit);
 
 mps_addr_t epvmskip(mps_addr_t object) {
- error("skip called on EPVM object: %p", object);
- return NULL;
+/* error("skip called on EPVM object: %p", object);
+*/
+ asserts(((unsigned long) object & 7) == 0,
+  "epvmskip called on unaligned object %p", object);
+ return (mps_addr_t) ((char *)object + 8);
 }
 
 void epvmfwd(mps_addr_t object, mps_addr_t to) {