fix gc bug. i think this is tgs's second bug.

i stumbled across it in all.bash.

TBR=r
OCL=24912
CL=24912
This commit is contained in:
Russ Cox 2009-02-11 17:54:03 -08:00
parent 38c232fe37
commit 7cd24361bd
2 changed files with 8 additions and 3 deletions

View file

@ -122,7 +122,7 @@ int32
mlookup(void *v, byte **base, uintptr *size, uint32 **ref)
{
uintptr n, nobj, i;
byte *p, *ep;
byte *p;
MSpan *s;
s = MHeap_LookupMaybe(&mheap, (uintptr)v>>PageShift);
@ -162,8 +162,11 @@ mlookup(void *v, byte **base, uintptr *size, uint32 **ref)
*size = n;
nobj = (s->npages << PageShift) / (n + RefcountOverhead);
if((byte*)s->gcref < p || (byte*)(s->gcref+nobj) > p+(s->npages<<PageShift)) {
printf("s->base sizeclass %d %p gcref %p block %D\n",
s->sizeclass, p, s->gcref, s->npages<<PageShift);
printf("odd span state=%d span=%p base=%p sizeclass=%d n=%d size=%d npages=%d\n",
s->state, s, p, s->sizeclass, nobj, n, s->npages);
printf("s->base sizeclass %d v=%p base=%p gcref=%p blocksize=%D nobj=%d size=%D end=%p end=%p\n",
s->sizeclass, v, p, s->gcref, s->npages<<PageShift,
nobj, n, s->gcref + nobj, p+(s->npages<<PageShift));
throw("bad gcref");
}
if(ref)

View file

@ -228,6 +228,8 @@ MHeap_LookupMaybe(MHeap *h, PageID p)
s = MHeapMap_GetMaybe(&h->map, p);
if(s == nil || p < s->start || p - s->start >= s->npages)
return nil;
if(s->state != MSpanInUse)
return nil;
return s;
}