1 ! Copyright (C) 2011 Erik Charlebois.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: parser system kernel sequences math math.ranges
4 cpu.ppc.assembler combinators compiler.constants
5 bootstrap.image.private layouts namespaces ;
11 : reserved-size ( -- n ) 24 ;
12 : lr-save ( -- n ) 4 ;
18 CONSTANT: frame-reg 31
19 : nv-int-regs ( -- seq ) 13 31 [a,b] ;
22 [ -16 shift 0xffff bitand LIS ]
23 [ [ dup ] dip 0xffff bitand ORI ] 2bi ;
25 : jit-trap-null ( src -- ) drop ;
26 : jit-load-vm ( dst -- )
27 0 LOAD32 0 rc-absolute-ppc-2/2 jit-vm ;
28 : jit-load-dlsym ( dst string -- )
29 [ 0 LOAD32 ] dip rc-absolute-ppc-2/2 jit-dlsym ;
30 : jit-load-dlsym-toc ( string -- ) drop ;
31 : jit-load-vm-arg ( dst -- )
32 0 LOAD32 rc-absolute-ppc-2/2 rt-vm jit-rel ;
33 : jit-load-entry-point-arg ( dst -- )
34 0 LOAD32 rc-absolute-ppc-2/2 rt-entry-point jit-rel ;
35 : jit-load-this-arg ( dst -- )
36 0 LOAD32 rc-absolute-ppc-2/2 rt-this jit-rel ;
37 : jit-load-literal-arg ( dst -- )
38 0 LOAD32 rc-absolute-ppc-2/2 rt-literal jit-rel ;
39 : jit-load-dlsym-arg ( dst -- )
40 0 LOAD32 rc-absolute-ppc-2/2 rt-dlsym jit-rel ;
41 : jit-load-dlsym-toc-arg ( -- ) ;
42 : jit-load-here-arg ( dst -- )
43 0 LOAD32 rc-absolute-ppc-2/2 rt-here jit-rel ;
44 : jit-load-megamorphic-cache-arg ( dst -- )
45 0 LOAD32 rc-absolute-ppc-2/2 rt-megamorphic-cache-hits jit-rel ;
46 : jit-load-cell ( dst src offset -- ) LWZ ;
47 : jit-load-cell-x ( dst src offset -- ) LWZX ;
48 : jit-load-cell-update ( dst src offset -- ) LWZU ;
49 : jit-save-cell ( dst src offset -- ) STW ;
50 : jit-save-cell-x ( dst src offset -- ) STWX ;
51 : jit-save-cell-update ( dst src offset -- ) STWU ;
52 : jit-load-int ( dst src offset -- ) LWZ ;
53 : jit-save-int ( dst src offset -- ) STW ;
54 : jit-shift-tag-bits ( dst src -- ) tag-bits get SRAWI ;
55 : jit-mask-tag-bits ( dst src -- ) tag-bits get CLRRWI ;
56 : jit-shift-fixnum-slot ( dst src -- ) 2 SRAWI ;
57 : jit-class-hashcode ( dst src -- ) 1 SRAWI ;
58 : jit-shift-left-logical ( dst src n -- ) SLW ;
59 : jit-shift-left-logical-imm ( dst src n -- ) SLWI ;
60 : jit-shift-right-algebraic ( dst src n -- ) SRAW ;
61 : jit-divide ( dst ra rb -- ) DIVW ;
62 : jit-multiply-low ( dst ra rb -- ) MULLW ;
63 : jit-multiply-low-ov-rc ( dst ra rb -- ) MULLWO. ;
64 : jit-compare-cell ( cr ra rb -- ) CMPW ;
65 : jit-compare-cell-imm ( cr ra imm -- ) CMPWI ;
67 : cell-size ( -- n ) 4 ;
68 : factor-area-size ( -- n ) 16 ;
69 : param-size ( -- n ) 32 ;
70 : saved-int-regs-size ( -- n ) 96 ;
72 << "vocab:cpu/ppc/bootstrap.factor" parse-file suffix! >>