Chez Scheme: repair ptr <-> void* conversions for pb on 32-bit

This commit is contained in:
Matthew Flatt 2020-08-20 06:46:23 -06:00
parent 1260f888c9
commit 7a373de4cb
2 changed files with 2 additions and 2 deletions

View File

@ -273,7 +273,7 @@ void S_reset_allocation_pointer(tc) ptr tc; {
}
void S_record_new_dirty_card(ptr *ppp, IGEN to_g) {
uptr card = (uptr)ppp >> card_offset_bits;
uptr card = (uptr)TO_PTR(ppp) >> card_offset_bits;
dirtycardinfo *ndc = S_G.new_dirty_cards;
if (ndc != NULL && ndc->card == card) {

View File

@ -1441,7 +1441,7 @@ ptr GCENTRY(ptr tc, ptr count_roots_ls) {
nlp = &S_G.next_loc[from_g][s]; \
if (*slp == 0) *slp = S_G.first_loc[from_g][s]; \
pp = TO_VOIDP(*slp); \
while (pp != (nl = (ptr *)*nlp)) { \
while (pp != (nl = (ptr *)TO_VOIDP(*nlp))) { \
do { \
if ((p = *pp) == forward_marker) \
pp = TO_VOIDP(*(pp + 1)); \