X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=6e0ed5aa98975c77663b32cc5e39b0905620d3db;hb=fb76e3acd8b8a53cdadaa65bce1d090d99e004a0;hp=6102f23e4ccace44e705ce44d76ad0abdd24c852;hpb=d8a6359622d77e002c11e13362d4e174b3fe4004;p=sbcl.git

diff --git a/src/code/room.lisp b/src/code/room.lisp
index 6102f23..6e0ed5a 100644
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -207,7 +207,14 @@
   (define-alien-type (struct page)
       (struct page
               (start long)
-              (bytes-used (unsigned 16))
+              ;; On platforms with small enough GC pages, this field
+              ;; will be a short. On platforms with larger ones, it'll
+              ;; be an int.
+              (bytes-used (unsigned
+                           #.(if (typep sb!vm:gencgc-page-size
+                                        '(unsigned-byte 16))
+                                 16
+                                 32)))
               (flags (unsigned 8))
               (gen (signed 8))))
   (declaim (inline find-page-index))