Chez Scheme: repair ptr
<-> void*
conversions for pb on 32-bit
This commit is contained in:
parent
1260f888c9
commit
7a373de4cb
|
@ -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) {
|
||||
|
|
|
@ -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)); \
|
||||
|
|
Loading…
Reference in New Issue
Block a user