mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-14 07:20:35 -08:00
Code Issues Projects Releases Wiki Activity

Allow skip method to be called (epvm has changed)

Browse source 
Copied from Perforce
 Change: 19632
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-06-08 16:46:06 +01:00
parent d9089fca91
commit 83abacaaa3
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
mps/qa/test/testlib/epvmfmt.c
View file

@ -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) {