diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

be careful around 1L and friends

Browse Source
This commit is contained in:
Vítor Santos Costa
2010-05-11 00:18:12 +01:00
parent 99dafc9172
commit c52dda489b
8 changed files with 27 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
C/heapgc.c
View File

@@ -1507,7 +1507,7 @@ mark_environments(CELL_PTR gc_ENV, OPREG size, CELL *pvbmap)
pvbmap += tsize/(sizeof(CELL)*8);
bmap = *pvbmap;
} else {
bmap = -1L;
bmap = ((CELL)-1);
}
bmap = (Int)(((CELL)bmap) << currv);
}
@@ -1518,7 +1518,7 @@ mark_environments(CELL_PTR gc_ENV, OPREG size, CELL *pvbmap)
pvbmap--;
bmap = *pvbmap;
} else {
bmap = -1L;
bmap = ((CELL)-1);
}
currv = 0;
}
@@ -2734,7 +2734,7 @@ sweep_environments(CELL_PTR gc_ENV, OPREG size, CELL *pvbmap)
pvbmap += tsize/(sizeof(CELL)*8);
bmap = *pvbmap;
} else {
bmap = -1L;
bmap = ((CELL)-1);
}
bmap = (Int)(((CELL)bmap) << currv);
}
@@ -2745,7 +2745,7 @@ sweep_environments(CELL_PTR gc_ENV, OPREG size, CELL *pvbmap)
pvbmap--;
bmap = *pvbmap;
} else {
bmap = -1L;
bmap = ((CELL)-1);
}
currv = 0;
}