projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Comment-only: Fix a typo, and note that the PredTy case on SplitTyConApp_maybe was...
[ghc-hetmet.git]
/
rts
/
MBlock.c
diff --git
a/rts/MBlock.c
b/rts/MBlock.c
index
9058205
..
85fe02d
100644
(file)
--- a/
rts/MBlock.c
+++ b/
rts/MBlock.c
@@
-340,16
+340,16
@@
allocNew(nat n) {
sysErrorBelch(
"getMBlocks: VirtualAlloc MEM_RESERVE %d blocks failed", n);
} else {
sysErrorBelch(
"getMBlocks: VirtualAlloc MEM_RESERVE %d blocks failed", n);
} else {
- if(allocs==0) {
- allocs=rec;
- rec->next=0;
- } else {
- alloc_rec* it;
- it=allocs;
- for(; it->next!=0 && it->next->base<rec->base; it=it->next) ;
- rec->next=it->next;
- it->next=rec;
- }
+ alloc_rec temp;
+ temp.base=0; temp.size=0; temp.next=allocs;
+
+ alloc_rec* it;
+ it=&temp;
+ for(; it->next!=0 && it->next->base<rec->base; it=it->next) ;
+ rec->next=it->next;
+ it->next=rec;
+
+ allocs=temp.next;
debugTrace(DEBUG_gc, "allocated %d megablock(s) at 0x%x",n,(nat)rec->base);
}
return rec;
debugTrace(DEBUG_gc, "allocated %d megablock(s) at 0x%x",n,(nat)rec->base);
}
return rec;
@@
-408,7
+408,7
@@
findFreeBlocks(nat n) {
if( (((unsigned long)it->base) & MBLOCK_MASK) == 0) { /* MBlock aligned */
ret = (void*)it->base;
if(it->size==required_size) {
if( (((unsigned long)it->base) & MBLOCK_MASK) == 0) { /* MBlock aligned */
ret = (void*)it->base;
if(it->size==required_size) {
- prev->next=0;
+ prev->next=it->next;
stgFree(it);
} else {
it->base += required_size;
stgFree(it);
} else {
it->base += required_size;
@@
-442,7
+442,7
@@
static void
commitBlocks(char* base, int size) {
alloc_rec* it;
it=allocs;
commitBlocks(char* base, int size) {
alloc_rec* it;
it=allocs;
- for( ; it!=0 && (it->base+it->size)<base; it=it->next ) {}
+ for( ; it!=0 && (it->base+it->size)<=base; it=it->next ) {}
for( ; it!=0 && size>0; it=it->next ) {
int size_delta;
void* temp;
for( ; it!=0 && size>0; it=it->next ) {
int size_delta;
void* temp;