/core/bootstrap/layouts/layouts.factor

http://github.com/abeaumont/factor · Factor · 32 lines · 24 code · 6 blank · 2 comment · 0 complexity · b35b194f1f245693c36bac981f7b76a6 MD5 · raw file 

    

  1. ! Copyright (C) 2007, 2009 Slava Pestov.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: alien arrays byte-arrays kernel layouts math namespaces
    4. 

  4. quotations strings words ;
    5. 

  5. 

  6. 16 data-alignment set
    7. 

  7. 

  8. 0b1111 tag-mask set
    9. 

  9. 4 tag-bits set
    10. 

  10. 

  11. 14 num-types set
    12. 

  12. 

  13. 32 mega-cache-size set
    14. 

  14. 

  15. H{
    16. 

  16.     { fixnum 0 }
    17. 

  17.     { POSTPONE: f 1 }
    18. 

  18.     { array 2 }
    19. 

  19.     { float 3 }
    20. 

  20.     { quotation 4 }
    21. 

  21.     { bignum 5 }
    22. 

  22.     { alien 6 }
    23. 

  23.     { tuple 7 }
    24. 

  24.     { wrapper 8 }
    25. 

  25.     { byte-array 9 }
    26. 

  26.     { callstack 10 }
    27. 

  27.     { string 11 }
    28. 

  28.     { word 12 }
    29. 

  29.     { dll 13 }
    30. 

  30. } type-numbers set
    31. 

  31. 

  32. 2 header-bits set
    33.