diff --git a/src/lisp/gencgc.c b/src/lisp/gencgc.c index 204a298f37281a61215fcbb20cc084f3d2aded2d..e2b9cd0f0d23e8cb52ea20e568e714c84e840c70 100644 --- a/src/lisp/gencgc.c +++ b/src/lisp/gencgc.c @@ -495,7 +495,6 @@ gc_write_barrier(void *addr) /* Un-protect the page */ os_protect((os_vm_address_t) page_address(page_index), GC_PAGE_SIZE, OS_VM_PROT_ALL); page_table[page_index].flags &= ~PAGE_WRITE_PROTECTED_MASK; - page_table[page_index].flags |= PAGE_WRITE_PROTECT_CLEARED_MASK; return 1; } diff --git a/src/lisp/gencgc.h b/src/lisp/gencgc.h index a7ce03afe9928874f3db079e8eafab4d8d6d01b9..363736fa9e3aa2c9009f635a23e94e35cfc97a5d 100644 --- a/src/lisp/gencgc.h +++ b/src/lisp/gencgc.h @@ -45,16 +45,6 @@ int gc_write_barrier(void *); #define PAGE_WRITE_PROTECTED(page) \ (page_table[page].flags & PAGE_WRITE_PROTECTED_MASK) -/* - * This flag is set when the above write protect flag is clear by the - * sigbus handler. This is useful for re-scavenging pages that are - * written during a GC. - */ - -#define PAGE_WRITE_PROTECT_CLEARED_MASK 0x00000020 -#define PAGE_WRITE_PROTECT_CLEARED(page) \ - (page_table[page].flags & PAGE_WRITE_PROTECT_CLEARED_MASK) - /* * Page allocated flag: 0 for a free page; 1 when allocated. If * the page is free then the following slots are invalid - well