mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-25 05:52:42 -08:00
Code Issues Projects Releases Wiki Activity

Adding arenaisreservedaddr (change.dylan.cottonwood.170439

Browse source 
Copied from Perforce
 Change: 19064
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Jones 1997-12-05 15:55:29 +00:00
parent a4f6850fa8
commit 14d1708ac3
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
mps/src/trace.c
View file

@ -1,6 +1,6 @@
/* impl.c.trace: GENERIC TRACER IMPLEMENTATION
*
* $HopeName: MMsrc!trace.c(trunk.55) $
* $HopeName: MMsrc!trace.c(trunk.56) $
* Copyright (C) 1997 The Harlequin Group Limited. All rights reserved.
*
* .sources: design.mps.tracer.
@ -8,7 +8,7 @@
#include "mpm.h"
SRCID(trace, "$HopeName: MMsrc!trace.c(trunk.55) $");
SRCID(trace, "$HopeName: MMsrc!trace.c(trunk.56) $");
/* ScanStateCheck -- check consistency of a ScanState object */
@ -942,8 +942,19 @@ Res TraceFix(ScanState ss, Ref *refIO)
if(res != ResOK)
return res;
}
} else {
/* Address is not in segment. */
/* It is illegal for exact references to point to an */
/* address that is currently reserved by the arena, but */
/* not in use. There can't possibly be any objects at */
/* those addresses. We check that here.
/* This AVER might be a candidate for making CRITICAL in */
/* some configurations */
AVER(ss->rank < RankEXACT ||
!ArenaIsReservedAddr(ss->arena, ref));
}
/* .fix.fixed.all: */
/* ss->fixedSummary is accumulated for all the pointers whether */
/* or not they are genuine references. We could accumulate fewer */