1 ! Copyright (C) 2007, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: bootstrap.image.private kernel namespaces system
4 layouts vocabs parser compiler.constants math
5 cpu.x86.assembler cpu.x86.assembler.operands ;
10 : shift-arg ( -- reg ) RCX ;
11 : div-arg ( -- reg ) RAX ;
12 : mod-arg ( -- reg ) RDX ;
13 : temp0 ( -- reg ) RDI ;
14 : temp1 ( -- reg ) RSI ;
15 : temp2 ( -- reg ) RDX ;
16 : temp3 ( -- reg ) RBX ;
17 : stack-reg ( -- reg ) RSP ;
18 : ds-reg ( -- reg ) R14 ;
19 : rs-reg ( -- reg ) R15 ;
20 : fixnum>slot@ ( -- ) ;
21 : rex-length ( -- n ) 1 ;
25 temp0 0 MOV rc-absolute-cell rt-stack-chain jit-rel
28 temp0 [] stack-reg MOV
30 temp1 0 MOV rc-absolute-cell rt-primitive jit-rel
32 arg 0 MOV rc-absolute-cell rt-vm jit-rel
35 ] jit-primitive jit-define
37 << "vocab:cpu/x86/bootstrap.factor" parse-file parsed >>