mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00
Code Issues Projects Releases Wiki Activity

Fixing gcc warnings found in https://travis-ci.org/ravenbrook/mps-temporary/jobs/17977403

Browse source 
Copied from Perforce
 Change: 184271
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 2014-01-31 15:49:14 +00:00
parent 34f5aece3d
commit 8a3dc7c98a
2 changed files with 0 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
mps/code/trace.c
View file

@ -399,9 +399,7 @@ Res TraceCondemnZones(Trace trace, ZoneSet condemnedSet)
arena = trace->arena;
if(SegFirst(&seg, arena)) {
Addr base;
do {
base = SegBase(seg);
/* Segment should be black now. */
AVER(!TraceSetIsMember(SegGrey(seg), trace));
AVER(!TraceSetIsMember(SegWhite(seg), trace));

4
mps/code/walk.c
View file

@ -74,10 +74,8 @@ static void ArenaFormattedObjectsWalk(Arena arena, FormattedObjectsStepMethod f,
AVERT(FormattedObjectsStepClosure, c);
if (SegFirst(&seg, arena)) {
Addr base;
do {
Pool pool;
base = SegBase(seg);
pool = SegPool(seg);
if (pool->class->attr & AttrFMT) {
ShieldExpose(arena, seg);
@ -308,9 +306,7 @@ static Res ArenaRootsWalk(Globals arenaGlobals, mps_roots_stepper_t f,
/* ArenaRootsWalk only passes references to GCable pools to the client. */
/* NOTE: I'm not sure why this is. RB 2012-07-24 */
if (SegFirst(&seg, arena)) {
Addr base;
do {
base = SegBase(seg);
if ((SegPool(seg)->class->attr & AttrGC) != 0) {
TraceAddWhite(trace, seg);
}