bootstrap.layouts: sync note in comments

diff --git a/core/bootstrap/layouts/layouts.factor b/core/bootstrap/layouts/layouts.factor
index 7ac8a8590d0a1eb7e41ce8fcaf2297e0028d994a..6ff54d49792a045ce8df9977291bc212885f7269 100644 (file)
--- a/core/bootstrap/layouts/layouts.factor
+++ b/core/bootstrap/layouts/layouts.factor
@@ -8,10 +8,10 @@ quotations strings words ;
 0b1111 tag-mask set
 4 tag-bits set
 
-14 num-types set
-
 32 mega-cache-size set
 
+! Type tags, should be kept in sync with:
+!   vm/layouts.hpp
 H{
     { fixnum 0 }
     { POSTPONE: f 1 }
@@ -29,4 +29,6 @@ H{
     { dll 13 }
 } type-numbers set
 
+14 num-types set
+
 2 header-bits set

diff --git a/vm/layouts.hpp b/vm/layouts.hpp
index 485473cdbd7080a8e80325df977f14a3fa45f57c..13856b2e63db925fd6334833774aa39e4be19125 100644 (file)
--- a/vm/layouts.hpp
+++ b/vm/layouts.hpp
@@ -20,7 +20,8 @@ static const cell data_alignment = 16;
 #define UNTAG(x) ((cell)(x) & ~TAG_MASK)
 #define RETAG(x, tag) (UNTAG(x) | (tag))
 
-// *** Tags ***
+// Type tags, should be kept in sync with:
+//   core/bootstrap/layouts/layouts.factor
 #define FIXNUM_TYPE 0
 #define F_TYPE 1
 #define ARRAY_TYPE 2
@@ -112,8 +113,8 @@ struct object {
   NO_TYPE_CHECK;
   // header format (bits indexed with least significant as zero):
   // bit 0      : free?
+  // bit 1      : forwarding pointer?
   // if not forwarding:
-  //   bit 1      : forwarding pointer?
   //   bit 2-5    : tag
   //   bit 7-end  : hashcode
   // if forwarding: