Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/lisp/gencgc.c
    ... ... @@ -495,7 +495,6 @@ gc_write_barrier(void *addr)
    495 495
         /* Un-protect the page */
    
    496 496
         os_protect((os_vm_address_t) page_address(page_index), GC_PAGE_SIZE, OS_VM_PROT_ALL);
    
    497 497
         page_table[page_index].flags &= ~PAGE_WRITE_PROTECTED_MASK;
    
    498
    -    page_table[page_index].flags |= PAGE_WRITE_PROTECT_CLEARED_MASK;
    
    499 498
     
    
    500 499
         return 1;
    
    501 500
     }
    

  • src/lisp/gencgc.h
    ... ... @@ -45,16 +45,6 @@ int gc_write_barrier(void *);
    45 45
     #define PAGE_WRITE_PROTECTED(page) \
    
    46 46
     	(page_table[page].flags & PAGE_WRITE_PROTECTED_MASK)
    
    47 47
     
    
    48
    -/*
    
    49
    - * This flag is set when the above write protect flag is clear by the
    
    50
    - * sigbus handler. This is useful for re-scavenging pages that are
    
    51
    - * written during a GC.
    
    52
    - */
    
    53
    -
    
    54
    -#define PAGE_WRITE_PROTECT_CLEARED_MASK	0x00000020
    
    55
    -#define PAGE_WRITE_PROTECT_CLEARED(page) \
    
    56
    -	(page_table[page].flags & PAGE_WRITE_PROTECT_CLEARED_MASK)
    
    57
    -
    
    58 48
     /*
    
    59 49
      * Page allocated flag: 0 for a free page; 1 when allocated. If
    
    60 50
      * the page is free then the following slots are invalid - well