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 ;
  26
  27 ! Relocation classes
  28 : rc-absolute-cell    0 ;
  29 : rc-absolute         1 ;
  30 : rc-relative         2 ;
  31 : rc-absolute-ppc-2/2 3 ;
  32 : rc-relative-ppc-2   4 ;
  33 : rc-relative-ppc-3   5 ;
  34 : rc-relative-arm-3   6 ;
  35 : rc-indirect-arm     7 ;
  36 : rc-indirect-arm-pc  8 ;
  37
  38 ! Relocation types
  39 : rt-primitive 0 ;
  40 : rt-dlsym     1 ;
  41 : rt-literal   2 ;
  42 : rt-dispatch  3 ;
  43 : rt-xt        4 ;
  44 : rt-here      5 ;
  45 : rt-label     6 ;
  46 : rt-immediate 7 ;
  47
  48 : rc-absolute? ( n -- ? )
  49     [ rc-absolute-ppc-2/2 = ]
  50     [ rc-absolute-cell = ]
  51     [ rc-absolute = ]
  52     tri or or ;