basis/bootstrap/layouts.factor

   1 ! Copyright (C) 2007, 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien arrays byte-arrays kernel layouts math namespaces
   4 quotations strings words ;
   5
   6 16 data-alignment set
   7
   8 0b1111 tag-mask set
   9 4 tag-bits set
  10
  11 32 mega-cache-size set
  12
  13 ! Type tags, should be kept in sync with:
  14 !   vm/layouts.hpp
  15 H{
  16     { fixnum 0 }
  17     { POSTPONE: f 1 }
  18     { array 2 }
  19     { float 3 }
  20     { quotation 4 }
  21     { bignum 5 }
  22     { alien 6 }
  23     { tuple 7 }
  24     { wrapper 8 }
  25     { byte-array 9 }
  26     { callstack 10 }
  27     { string 11 }
  28     { word 12 }
  29     { dll 13 }
  30 } type-numbers set
  31
  32 14 num-types set
  33
  34 2 header-bits set