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 strings ;
   4 IN: compiler.constants
   5
   6 ! These constants must match vm/memory.h
   7 : card-bits 8 ; inline
   8 : deck-bits 18 ; inline
   9 : card-mark ( -- n ) HEX: 40 HEX: 80 bitor ; inline
  10
  11 ! These constants must match vm/layouts.h
  12 : header-offset ( -- n ) object tag-number neg ; inline
  13 : float-offset ( -- n ) 8 float tag-number - ; inline
  14 : string-offset ( -- n ) 4 bootstrap-cells object tag-number - ; inline
  15 : string-aux-offset ( -- n ) 2 bootstrap-cells string tag-number - ; inline
  16 : profile-count-offset ( -- n ) 7 bootstrap-cells object tag-number - ; inline
  17 : byte-array-offset ( -- n ) 2 bootstrap-cells object tag-number - ; inline
  18 : alien-offset ( -- n ) 3 bootstrap-cells object tag-number - ; inline
  19 : underlying-alien-offset ( -- n ) bootstrap-cell object tag-number - ; inline
  20 : tuple-class-offset ( -- n ) bootstrap-cell tuple tag-number - ; inline
  21 : class-hash-offset ( -- n ) bootstrap-cell object tag-number - ; inline
  22 : word-xt-offset ( -- n ) 9 bootstrap-cells object tag-number - ; inline
  23 : quot-xt-offset ( -- n ) 3 bootstrap-cells object tag-number - ; inline
  24 : word-code-offset ( -- n ) 10 bootstrap-cells object tag-number - ; inline
  25 : array-start-offset ( -- n ) 2 bootstrap-cells object tag-number - ; inline
  26 : compiled-header-size ( -- n ) 4 bootstrap-cells ; inline
  27
  28 ! Relocation classes
  29 : rc-absolute-cell    0 ; inline
  30 : rc-absolute         1 ; inline
  31 : rc-relative         2 ; inline
  32 : rc-absolute-ppc-2/2 3 ; inline
  33 : rc-relative-ppc-2   4 ; inline
  34 : rc-relative-ppc-3   5 ; inline
  35 : rc-relative-arm-3   6 ; inline
  36 : rc-indirect-arm     7 ; inline
  37 : rc-indirect-arm-pc  8 ; inline
  38
  39 ! Relocation types
  40 : rt-primitive   0 ; inline
  41 : rt-dlsym       1 ; inline
  42 : rt-dispatch    2 ; inline
  43 : rt-xt          3 ; inline
  44 : rt-here        4 ; inline
  45 : rt-label       5 ; inline
  46 : rt-immediate   6 ; inline
  47 : rt-stack-chain 7 ; inline
  48
  49 : rc-absolute? ( n -- ? )
  50     [ rc-absolute-ppc-2/2 = ]
  51     [ rc-absolute-cell = ]
  52     [ rc-absolute = ]
  53     tri or or ;