X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc.h;h=a02846667e941b4d5abcaf3c5815edca2030dc28;hb=18c093eb771c1ab038090863d99bf4baf4224966;hp=a619175bd7fa210f37d669ae6058d476e1b8f0d7;hpb=a8a79584f77a1ca0b1f651c27d219678e44c3f4d;p=sbcl.git

diff --git a/src/runtime/gc.h b/src/runtime/gc.h
index a619175..a028466 100644
--- a/src/runtime/gc.h
+++ b/src/runtime/gc.h
@@ -17,14 +17,17 @@
 #define _GC_H_
 
 #include "sbcl.h"
+#include <stdint.h>
 
-#ifdef LISP_FEATURE_GENCGC
-#define PAGE_BYTES GENCGC_PAGE_SIZE
+#define PAGE_BYTES BACKEND_PAGE_BYTES
+
+typedef intptr_t page_index_t;
+#ifdef LISP_FEATURE_WIN32
+#define PAGE_INDEX_FMT "Id"
 #else
-#define PAGE_BYTES BACKEND_PAGE_SIZE
+#define PAGE_INDEX_FMT "ld"
 #endif
 
-typedef signed long page_index_t;
 typedef signed char generation_index_t;
 
 extern void gc_init(void);
@@ -40,10 +43,8 @@ extern void clear_auto_gc_trigger(void);
 
 #include "fixnump.h"
 
-#include "pseudo-atomic.h"
-
 extern boolean maybe_gc(os_context_t *context);
 
-extern unsigned long bytes_consed_between_gcs;
+extern os_vm_size_t bytes_consed_between_gcs;
 
 #endif /* _GC_H_ */