steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.constants: remove a bunch of constants that are unused 

(or only used by the defunkt arm backend)
db4
Björn Lindqvist 2015-08-29 23:49:36 +02:00
parent a89b0c2b30
commit 85e45ae29e
2 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/constants/constants-docs.factor
View File

@ -24,7 +24,6 @@ $nl
{ $subsections card-bits card-mark deck-bits } { $subsections card-bits card-mark deck-bits }
"Constants that must match vm/layouts.hpp:" "Constants that must match vm/layouts.hpp:"
{ $subsections { $subsections
profile-count-offset
slot-offset slot-offset
} }
"Offsets to fields in the context struct:" "Offsets to fields in the context struct:"
@ -39,7 +38,6 @@ $nl
"Offsets to field in the segment struct:" "Offsets to field in the segment struct:"
{ $subsections { $subsections
segment-end-offset segment-end-offset
segment-size-offset
segment-start-offset segment-start-offset
} }
"Offsets to fields in the vm struct:" "Offsets to fields in the vm struct:"
@ -58,10 +56,8 @@ $nl
callstack-top-offset callstack-top-offset
float-offset float-offset
quot-entry-point-offset quot-entry-point-offset
string-aux-offset
string-offset string-offset
tuple-class-offset tuple-class-offset
underlying-alien-offset
word-entry-point-offset word-entry-point-offset
} ; } ;

7
basis/compiler/constants/constants.factor
View File

@ -12,11 +12,8 @@ CONSTANT: deck-bits 18
: float-offset ( -- n ) 8 float type-number - ; inline : float-offset ( -- n ) 8 float type-number - ; inline
: string-offset ( -- n ) 4 string type-number slot-offset ; 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 : byte-array-offset ( -- n ) 16 byte-array type-number - ; inline
: alien-offset ( -- n ) 4 alien type-number slot-offset ; 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 : tuple-class-offset ( -- n ) 1 tuple type-number slot-offset ; inline
: word-entry-point-offset ( -- n ) 9 \ word 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 : 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-save-offset ( -- n ) 4 bootstrap-cells ; inline
: context-callstack-seg-offset ( -- n ) 7 bootstrap-cells ; inline : context-callstack-seg-offset ( -- n ) 7 bootstrap-cells ; inline
: segment-start-offset ( -- n ) 0 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 : segment-end-offset ( -- n ) 2 bootstrap-cells ; inline
! Relocation classes ! Relocation classes
@ -45,9 +41,6 @@ CONSTANT: rc-absolute-ppc-2/2 3
CONSTANT: rc-absolute-ppc-2 4 CONSTANT: rc-absolute-ppc-2 4
CONSTANT: rc-relative-ppc-2-pc 5 CONSTANT: rc-relative-ppc-2-pc 5
CONSTANT: rc-relative-ppc-3-pc 6 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-2 10
CONSTANT: rc-absolute-1 11 CONSTANT: rc-absolute-1 11
CONSTANT: rc-absolute-ppc-2/2/2/2 12 CONSTANT: rc-absolute-ppc-2/2/2/2 12