X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgencgc.h;h=ed67850744866dba67beaf45017f23ebe0f7800f;hb=fa3d837a03879f2df4f6a50b456e50e260b3bb1b;hp=d9d480458eb2d916a6a2ab063d0399871689fb3b;hpb=e365f2f7a9c66d307b48fee70778f4eaa84bdcc0;p=sbcl.git

diff --git a/src/runtime/gencgc.h b/src/runtime/gencgc.h
index d9d4804..ed67850 100644
--- a/src/runtime/gencgc.h
+++ b/src/runtime/gencgc.h
@@ -1,8 +1,4 @@
 /*
- * Generational Conservative Garbage Collector for SBCL x86
- */
-
-/*
  * This software is part of the SBCL system. See the README file for
  * more information.
  *
@@ -13,84 +9,14 @@
  * files for more information.
  */
 
-#ifndef _GENCGC_H_
-#define _GENCGC_H_
-
-#include "genesis/code.h"
-
-void gc_free_heap(void);
-inline int find_page_index(void *);
-inline void *page_address(int);
-int gencgc_handle_wp_violation(void *);
-lispobj *search_dynamic_space(lispobj *);
-
-struct page {
-
-    unsigned
-        /* This is set when the page is write-protected. This should
-	 * always reflect the actual write_protect status of a page.
-	 * (If the page is written into, we catch the exception, make
-	 * the page writable, and clear this flag.) */
-        write_protected :1,
-	/* This flag is set when the above write_protected flag is 
-	 * cleared by the SIGBUS handler (or SIGSEGV handler, for some
-	 * OSes). This is useful for re-scavenging pages that are
-	 * written during a GC. */
-	write_protected_cleared :1,
-	/* the region the page is allocated to: 0 for a free page; 1
-         * for boxed objects; 2 for unboxed objects. If the page is
-         * free the following slots are invalid (well the bytes_used
-         * must be 0). */
-	allocated :2,
-	/* If this page should not be moved during a GC then this flag
-         * is set. It's only valid during a GC for allocated pages. */
-	dont_move :1,
-	/* If the page is part of a large object then this flag is
-         * set. No other objects should be allocated to these pages.
-         * This is only valid when the page is allocated. */
-	large_object :1;
-
-    /* the generation that this page belongs to. This should be valid
-     * for all pages that may have objects allocated, even current
-     * allocation region pages - this allows the space of an object to
-     * be easily determined. */
-    int  gen;
-
-    /* the number of bytes of this page that are used. This may be less
-     * than the actual bytes used for pages within the current
-     * allocation regions. It should be 0 for all unallocated pages (not
-     * hard to achieve). */
-    int  bytes_used;
-
-    /* It is important to know the offset to the first object in the
-     * page. Currently it's only important to know if an object starts
-     * at the beginning of the page in which case the offset would be 0. */
-    int  first_object_offset;
-};
-
-/* values for the page.allocated field */
-#define FREE_PAGE 0
-#define BOXED_PAGE 1
-#define UNBOXED_PAGE 2
-
-/* values for the *_alloc_* parameters */
-#define ALLOC_BOXED 0
-#define ALLOC_UNBOXED 1
-#define ALLOC_QUICK 1
+#ifndef __GENCGC_H__
+#define __GENCGC_H__
 
-
-/* the number of pages needed for the dynamic space - rounding up */
-#define NUM_PAGES ((DYNAMIC_SPACE_SIZE+4095)/4096)
-extern struct page page_table[NUM_PAGES];
-
-
-void  gencgc_pickup_dynamic(void);
+#if defined(LUTEX_WIDETAG)
+#include "genesis/lutex.h"
 
-void sniff_code_object(struct code *code, unsigned displacement);
+extern void gencgc_register_lutex (struct lutex *lutex);
+extern void gencgc_unregister_lutex (struct lutex *lutex);
+#endif
 
-int  update_x86_dynamic_space_free_pointer(void);
-void  gc_alloc_update_page_tables(int unboxed,
-				  struct alloc_region *alloc_region);
-void gc_alloc_update_all_page_tables(void);
-void gc_set_region_empty(struct alloc_region *region);
-#endif _GENCGC_H_
+#endif /* __GENCGC_H__ */