X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgencgc-internal.h;h=c7d897427987998fdff7da597ae1e6dbf2a2c11c;hb=0285aa5ff8416027932daa001b84429be2ca559b;hp=dfe9089aa165a17157c95a4065bd268a79bd7e6c;hpb=0bc6029aa850b25cdd27efd91578989cbbd269d5;p=sbcl.git

diff --git a/src/runtime/gencgc-internal.h b/src/runtime/gencgc-internal.h
index dfe9089..c7d8974 100644
--- a/src/runtime/gencgc-internal.h
+++ b/src/runtime/gencgc-internal.h
@@ -25,8 +25,8 @@
 #include "genesis/code.h"
 
 void gc_free_heap(void);
-inline page_index_t find_page_index(void *);
-inline void *page_address(page_index_t);
+extern page_index_t find_page_index(void *);
+extern void *page_address(page_index_t);
 int gencgc_handle_wp_violation(void *);
 
 
@@ -34,10 +34,12 @@ int gencgc_handle_wp_violation(void *);
 # if GENCGC_CARD_BYTES > UINT_MAX
 #   error "GENCGC_CARD_BYTES unexpectedly large."
 # else
-typedef unsigned int page_bytes_t;
+#   define PAGE_BYTES_FMT "u"
+    typedef unsigned int page_bytes_t;
 # endif
 #else
-typedef unsigned short page_bytes_t;
+# define PAGE_BYTES_FMT "hu"
+  typedef unsigned short page_bytes_t;
 #endif
 
 /* Note that this structure is also used from Lisp-side in
@@ -108,7 +110,7 @@ extern struct page *page_table;
 
 /* forward declarations */
 
-void sniff_code_object(struct code *code, unsigned long displacement);
+void sniff_code_object(struct code *code, os_vm_size_t displacement);
 void gencgc_apply_code_fixups(struct code *old_code, struct code *new_code);
 
 long update_dynamic_space_free_pointer(void);