diff --git a/basis/compiler/constants/constants-docs.factor b/basis/compiler/constants/constants-docs.factor index 4f41da98a4..287f8adf06 100644 --- a/basis/compiler/constants/constants-docs.factor +++ b/basis/compiler/constants/constants-docs.factor @@ -24,7 +24,6 @@ $nl { $subsections card-bits card-mark deck-bits } "Constants that must match vm/layouts.hpp:" { $subsections - profile-count-offset slot-offset } "Offsets to fields in the context struct:" @@ -39,7 +38,6 @@ $nl "Offsets to field in the segment struct:" { $subsections segment-end-offset - segment-size-offset segment-start-offset } "Offsets to fields in the vm struct:" @@ -58,10 +56,8 @@ $nl callstack-top-offset float-offset quot-entry-point-offset - string-aux-offset string-offset tuple-class-offset - underlying-alien-offset word-entry-point-offset } ; diff --git a/basis/compiler/constants/constants.factor b/basis/compiler/constants/constants.factor index 80aafc609a..33cfba2e7a 100644 --- a/basis/compiler/constants/constants.factor +++ b/basis/compiler/constants/constants.factor @@ -12,11 +12,8 @@ CONSTANT: deck-bits 18 : 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-entry-point-offset ( -- n ) 9 \ word type-number slot-offset ; inline : quot-entry-point-offset ( -- n ) 4 quotation type-number slot-offset ; inline @@ -34,7 +31,6 @@ CONSTANT: deck-bits 18 : context-callstack-save-offset ( -- n ) 4 bootstrap-cells ; inline : context-callstack-seg-offset ( -- n ) 7 bootstrap-cells ; inline : segment-start-offset ( -- n ) 0 bootstrap-cells ; inline -: segment-size-offset ( -- n ) 1 bootstrap-cells ; inline : segment-end-offset ( -- n ) 2 bootstrap-cells ; inline ! Relocation classes @@ -45,9 +41,6 @@ CONSTANT: rc-absolute-ppc-2/2 3 CONSTANT: rc-absolute-ppc-2 4 CONSTANT: rc-relative-ppc-2-pc 5 CONSTANT: rc-relative-ppc-3-pc 6 -CONSTANT: rc-relative-arm-3 7 -CONSTANT: rc-indirect-arm 8 -CONSTANT: rc-indirect-arm-pc 9 CONSTANT: rc-absolute-2 10 CONSTANT: rc-absolute-1 11 CONSTANT: rc-absolute-ppc-2/2/2/2 12