basis/compiler/constants/constants.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: math kernel layouts system ;
   4 IN: compiler.constants
   5
   6 ! These constants must match vm/memory.h
   7 : card-bits 8 ;
   8 : deck-bits 18 ;
   9 : card-mark ( -- n ) HEX: 40 HEX: 80 bitor ;
  10
  11 ! These constants must match vm/layouts.h
  12 : header-offset ( -- n ) object tag-number neg ;
  13 : float-offset ( -- n ) 8 float tag-number - ;
  14 : string-offset ( -- n ) 4 bootstrap-cells object tag-number - ;
  15 : profile-count-offset ( -- n ) 7 bootstrap-cells object tag-number - ;
  16 : byte-array-offset ( -- n ) 2 bootstrap-cells object tag-number - ;
  17 : alien-offset ( -- n ) 3 bootstrap-cells object tag-number - ;
  18 : underlying-alien-offset ( -- n ) bootstrap-cell object tag-number - ;
  19 : tuple-class-offset ( -- n ) bootstrap-cell tuple tag-number - ;
  20 : class-hash-offset ( -- n ) bootstrap-cell object tag-number - ;
  21 : word-xt-offset ( -- n ) 9 bootstrap-cells object tag-number - ;
  22 : quot-xt-offset ( -- n ) 3 bootstrap-cells object tag-number - ;
  23 : word-code-offset ( -- n ) 10 bootstrap-cells object tag-number - ;
  24 : array-start-offset ( -- n ) 2 bootstrap-cells object tag-number - ;
  25 : compiled-header-size ( -- n ) 4 bootstrap-cells ;