[Git][cmucl/cmucl][master] 2 commits: Remove PAGE_WRITE_PROTECT_CLEARED and MASK.

Raymond Toy gitlab at common-lisp.net
Sat Jan 2 22:35:36 UTC 2021



Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
51f730c2 by Raymond Toy at 2021-01-02T14:11:17-08:00
Remove PAGE_WRITE_PROTECT_CLEARED and MASK.

This macro and mask is only used once to set the bit (near line 498).
It's not read anywhere, so remove it.

Addresses #89.

- - - - -
c60c50da by Raymond Toy at 2021-01-02T22:35:29+00:00
Merge branch 'issue-89-remove-page-write-protect-cleared' into 'master'

Remove PAGE_WRITE_PROTECT_CLEARED and MASK.

See merge request cmucl/cmucl!57
- - - - -


2 changed files:

- src/lisp/gencgc.c
- src/lisp/gencgc.h


Changes:

=====================================
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;
 }


=====================================
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



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/d1b59ff32243a8243c55f126f4becd9ba7d81bfe...c60c50da55aa3ec4d88b31bbea225c04f87a926b

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/d1b59ff32243a8243c55f126f4becd9ba7d81bfe...c60c50da55aa3ec4d88b31bbea225c04f87a926b
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20210102/dcf0fb08/attachment-0001.html>


More information about the cmucl-cvs mailing list