2010-01-02 07:03:30 -05:00
|
|
|
! Copyright (C) 2008, 2010 Slava Pestov.
|
2008-01-02 19:36:36 -05:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-04-30 04:37:07 -04:00
|
|
|
USING: math kernel layouts system strings words quotations byte-arrays
|
2009-05-06 20:22:22 -04:00
|
|
|
alien arrays literals sequences ;
|
2008-01-02 19:36:36 -05:00
|
|
|
IN: compiler.constants
|
|
|
|
|
|
|
|
! These constants must match vm/memory.h
|
2009-02-22 20:13:08 -05:00
|
|
|
CONSTANT: card-bits 8
|
|
|
|
CONSTANT: deck-bits 18
|
2008-11-06 07:27:27 -05:00
|
|
|
: card-mark ( -- n ) HEX: 40 HEX: 80 bitor ; inline
|
2008-01-02 19:36:36 -05:00
|
|
|
|
|
|
|
! These constants must match vm/layouts.h
|
2009-10-15 03:40:23 -04:00
|
|
|
: slot-offset ( slot tag -- n ) [ bootstrap-cells ] dip - ; inline
|
|
|
|
|
2009-11-02 04:25:39 -05:00
|
|
|
: float-offset ( -- n ) 8 float type-number - ; inline
|
|
|
|
: string-offset ( -- n ) 4 string type-number slot-offset ; inline
|
|
|
|
: string-aux-offset ( -- n ) 2 string type-number slot-offset ; inline
|
|
|
|
: profile-count-offset ( -- n ) 8 \ word type-number slot-offset ; inline
|
|
|
|
: byte-array-offset ( -- n ) 16 byte-array type-number - ; inline
|
|
|
|
: alien-offset ( -- n ) 4 alien type-number slot-offset ; inline
|
|
|
|
: underlying-alien-offset ( -- n ) 1 alien type-number slot-offset ; inline
|
|
|
|
: tuple-class-offset ( -- n ) 1 tuple type-number slot-offset ; inline
|
|
|
|
: word-xt-offset ( -- n ) 10 \ word type-number slot-offset ; inline
|
|
|
|
: quot-xt-offset ( -- n ) 4 quotation type-number slot-offset ; inline
|
|
|
|
: word-code-offset ( -- n ) 11 \ word type-number slot-offset ; inline
|
|
|
|
: array-start-offset ( -- n ) 2 array type-number slot-offset ; inline
|
2009-05-05 16:06:05 -04:00
|
|
|
: compiled-header-size ( -- n ) 4 bootstrap-cells ; inline
|
2010-01-05 21:47:36 -05:00
|
|
|
: callstack-length-offset ( -- n ) 1 \ callstack type-number slot-offset ; inline
|
|
|
|
: callstack-top-offset ( -- n ) 2 \ callstack type-number slot-offset ; inline
|
2010-01-05 23:55:20 -05:00
|
|
|
: vm-context-offset ( -- n ) 0 bootstrap-cells ; inline
|
|
|
|
: context-callstack-top-offset ( -- n ) 0 bootstrap-cells ; inline
|
|
|
|
: context-callstack-bottom-offset ( -- n ) 1 bootstrap-cells ; inline
|
|
|
|
: context-datastack-offset ( -- n ) 2 bootstrap-cells ; inline
|
|
|
|
: context-retainstack-offset ( -- n ) 3 bootstrap-cells ; inline
|
2008-09-17 01:46:38 -04:00
|
|
|
|
|
|
|
! Relocation classes
|
2009-05-07 15:26:08 -04:00
|
|
|
CONSTANT: rc-absolute-cell 0
|
|
|
|
CONSTANT: rc-absolute 1
|
|
|
|
CONSTANT: rc-relative 2
|
2009-02-22 20:13:08 -05:00
|
|
|
CONSTANT: rc-absolute-ppc-2/2 3
|
2009-05-07 15:26:08 -04:00
|
|
|
CONSTANT: rc-absolute-ppc-2 4
|
|
|
|
CONSTANT: rc-relative-ppc-2 5
|
|
|
|
CONSTANT: rc-relative-ppc-3 6
|
|
|
|
CONSTANT: rc-relative-arm-3 7
|
|
|
|
CONSTANT: rc-indirect-arm 8
|
|
|
|
CONSTANT: rc-indirect-arm-pc 9
|
2010-01-02 07:03:30 -05:00
|
|
|
CONSTANT: rc-absolute-2 10
|
2008-09-17 01:46:38 -04:00
|
|
|
|
|
|
|
! Relocation types
|
2009-05-07 15:26:08 -04:00
|
|
|
CONSTANT: rt-primitive 0
|
|
|
|
CONSTANT: rt-dlsym 1
|
|
|
|
CONSTANT: rt-dispatch 2
|
|
|
|
CONSTANT: rt-xt 3
|
|
|
|
CONSTANT: rt-xt-pic 4
|
2009-05-06 20:22:22 -04:00
|
|
|
CONSTANT: rt-xt-pic-tail 5
|
2009-05-07 15:26:08 -04:00
|
|
|
CONSTANT: rt-here 6
|
|
|
|
CONSTANT: rt-this 7
|
2009-12-15 07:20:09 -05:00
|
|
|
CONSTANT: rt-literal 8
|
|
|
|
CONSTANT: rt-context 9
|
2009-05-07 15:26:08 -04:00
|
|
|
CONSTANT: rt-untagged 10
|
|
|
|
CONSTANT: rt-megamorphic-cache-hits 11
|
2009-08-18 15:40:26 -04:00
|
|
|
CONSTANT: rt-vm 12
|
2009-10-14 03:06:01 -04:00
|
|
|
CONSTANT: rt-cards-offset 13
|
|
|
|
CONSTANT: rt-decks-offset 14
|
2008-09-17 01:46:38 -04:00
|
|
|
|
|
|
|
: rc-absolute? ( n -- ? )
|
2009-05-06 20:22:22 -04:00
|
|
|
${ rc-absolute-ppc-2/2 rc-absolute-cell rc-absolute } member? ;
|