1 ! Copyright (C) 2007 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: bootstrap.image.private kernel namespaces system
4 cpu.x86.assembler layouts vocabs parser compiler.constants ;
9 : stack-frame-size ( -- n ) 4 bootstrap-cells ;
10 : shift-arg ( -- reg ) ECX ;
11 : div-arg ( -- reg ) EAX ;
12 : mod-arg ( -- reg ) EDX ;
13 : arg ( -- reg ) EAX ;
14 : temp0 ( -- reg ) EAX ;
15 : temp1 ( -- reg ) EDX ;
16 : temp2 ( -- reg ) ECX ;
17 : temp3 ( -- reg ) EBX ;
18 : stack-reg ( -- reg ) ESP ;
19 : ds-reg ( -- reg ) ESI ;
20 : rs-reg ( -- reg ) EDI ;
21 : fixnum>slot@ ( -- ) temp0 1 SAR ;
22 : rex-length ( -- n ) 0 ;
25 temp0 0 [] MOV ! load stack_chain
26 temp0 [] stack-reg MOV ! save stack pointer
27 ] rc-absolute-cell rt-stack-chain 2 jit-save-stack jit-define
31 ] rc-relative rt-primitive 1 jit-primitive jit-define
33 << "vocab:cpu/x86/bootstrap.factor" parse-file parsed >>