mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-17 08:31:09 -08:00
Code Issues Projects Releases Wiki Activity

Summaries should be computed

Browse source 
Copied from Perforce
 Change: 18879
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Jones 1997-10-14 13:54:48 +01:00
parent fcc80e81cf
commit c2f293d7d4
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
mps/src/root.c
View file

@ -1,6 +1,6 @@
/* impl.c.root: ROOT IMPLEMENTATION
*
* $HopeName: MMsrc!root.c(trunk.23) $
* $HopeName: MMsrc!root.c(trunk.24) $
* Copyright (C) 1997 The Harlequin Group Limited. All rights reserved.
*
* .scope: This is the implementation of the root datatype.
@ -10,7 +10,7 @@
#include "mpm.h"
SRCID(root, "$HopeName: MMsrc!root.c(trunk.23) $");
SRCID(root, "$HopeName: MMsrc!root.c(trunk.24) $");
/* RootVarCheck -- check a Root union discriminator
@ -265,10 +265,13 @@ Res RootScan(ScanState ss, Root root)
if(TraceSetInter(root->grey, ss->traces) == TraceSetEMPTY)
return ResOK;
AVER(ScanStateSummary(ss) == RefSetEMPTY);
switch(root->var) {
case RootTABLE:
res = TraceScanArea(ss, root->the.table.base, root->the.table.limit);
if(res != ResOK) return res;
if(res != ResOK)
return res;
break;
case RootTABLE_MASKED:
@ -276,7 +279,8 @@ Res RootScan(ScanState ss, Root root)
root->the.tableMasked.base,
root->the.tableMasked.limit,
root->the.tableMasked.mask);
if(res != ResOK) return res;
if(res != ResOK)
return res;
break;
case RootFUN:
@ -304,6 +308,8 @@ Res RootScan(ScanState ss, Root root)
}
root->grey = TraceSetDiff(root->grey, ss->traces);
root->summary = ScanStateSummary(ss);
EVENT_PWW(RootScan, root, ss->traces, ScanStateSummary(ss));
return ResOK;
}