steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/compiler/constants/constants.factor

54 lines
2.0 KiB
Factor
Raw Normal View History

Redo the profiler
2008-01-02 19:36:36 -05:00
! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
PowerPC backend almost functional; some new compiler unit tests added, better compilation of 'f eq?'; f becomes an immediate operand move aux-offset to compiler.constants
2008-11-06 07:27:27 -05:00
USING: math kernel layouts system strings ;
Redo the profiler
2008-01-02 19:36:36 -05:00
IN: compiler.constants
! These constants must match vm/memory.h
PowerPC backend almost functional; some new compiler unit tests added, better compilation of 'f eq?'; f becomes an immediate operand move aux-offset to compiler.constants
2008-11-06 07:27:27 -05:00
: card-bits 8 ; inline
: deck-bits 18 ; inline
: card-mark ( -- n ) HEX: 40 HEX: 80 bitor ; inline
Redo the profiler
2008-01-02 19:36:36 -05:00
! These constants must match vm/layouts.h
PowerPC backend almost functional; some new compiler unit tests added, better compilation of 'f eq?'; f becomes an immediate operand move aux-offset to compiler.constants
2008-11-06 07:27:27 -05:00
: header-offset ( -- n ) object tag-number neg ; inline
: float-offset ( -- n ) 8 float tag-number - ; inline
: string-offset ( -- n ) 4 bootstrap-cells object tag-number - ; inline
: string-aux-offset ( -- n ) 2 bootstrap-cells string tag-number - ; inline
: profile-count-offset ( -- n ) 7 bootstrap-cells object tag-number - ; inline
: byte-array-offset ( -- n ) 2 bootstrap-cells object tag-number - ; inline
: alien-offset ( -- n ) 3 bootstrap-cells object tag-number - ; inline
: underlying-alien-offset ( -- n ) bootstrap-cell object tag-number - ; inline
: tuple-class-offset ( -- n ) bootstrap-cell tuple tag-number - ; inline
: class-hash-offset ( -- n ) bootstrap-cell object tag-number - ; inline
: word-xt-offset ( -- n ) 9 bootstrap-cells object tag-number - ; inline
: quot-xt-offset ( -- n ) 3 bootstrap-cells object tag-number - ; inline
: word-code-offset ( -- n ) 10 bootstrap-cells object tag-number - ; inline
: array-start-offset ( -- n ) 2 bootstrap-cells object tag-number - ; inline
: compiled-header-size ( -- n ) 4 bootstrap-cells ; inline
Updating x86 backend for new codegen
2008-09-17 01:46:38 -04:00
! Relocation classes
PowerPC backend almost functional; some new compiler unit tests added, better compilation of 'f eq?'; f becomes an immediate operand move aux-offset to compiler.constants
2008-11-06 07:27:27 -05:00
: rc-absolute-cell 0 ; inline
: rc-absolute 1 ; inline
: rc-relative 2 ; inline
: rc-absolute-ppc-2/2 3 ; inline
: rc-relative-ppc-2 4 ; inline
: rc-relative-ppc-3 5 ; inline
: rc-relative-arm-3 6 ; inline
: rc-indirect-arm 7 ; inline
: rc-indirect-arm-pc 8 ; inline
Updating x86 backend for new codegen
2008-09-17 01:46:38 -04:00
! Relocation types
Forgot a constant
2008-11-13 05:10:21 -05:00
: rt-primitive 0 ; inline
: rt-dlsym 1 ; inline
Clean up direct literal code and make a first attempt at PowerPC support
2008-11-24 09:16:14 -05:00
: rt-dispatch 2 ; inline
: rt-xt 3 ; inline
: rt-here 4 ; inline
: rt-label 5 ; inline
: rt-immediate 6 ; inline
: rt-stack-chain 7 ; inline
Updating x86 backend for new codegen
2008-09-17 01:46:38 -04:00
: rc-absolute? ( n -- ? )
[ rc-absolute-ppc-2/2 = ]
[ rc-absolute-cell = ]
[ rc-absolute = ]
tri or or ;