factor/basis/cpu/x86/32/bootstrap.factor

! Copyright (C) 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: bootstrap.image.private kernel namespaces system
cpu.x86.assembler layouts vocabs parser compiler.constants ;
IN: bootstrap.x86

4 \ cell set

: stack-frame-size ( -- n ) 4 bootstrap-cells ;
: shift-arg ( -- reg ) ECX ;
: div-arg ( -- reg ) EAX ;
: mod-arg ( -- reg ) EDX ;
: arg ( -- reg ) EAX ;
: temp0 ( -- reg ) EAX ;
: temp1 ( -- reg ) EDX ;
: temp2 ( -- reg ) ECX ;
: temp3 ( -- reg ) EBX ;
: stack-reg ( -- reg ) ESP ;
: ds-reg ( -- reg ) ESI ;
: rs-reg ( -- reg ) EDI ;
: fixnum>slot@ ( -- ) temp0 1 SAR ;
: rex-length ( -- n ) 0 ;

[
    temp0 0 [] MOV                              ! load stack_chain
    temp0 [] stack-reg MOV                      ! save stack pointer
] rc-absolute-cell rt-stack-chain 2 jit-save-stack jit-define

[
    (JMP) drop
] rc-relative rt-primitive 1 jit-primitive jit-define

<< "resource:basis/cpu/x86/bootstrap.factor" parse-file parsed >>
call
Initial import 2007-09-20 18:09:08 -04:00			`! Copyright (C) 2007 Slava Pestov.`
			`! See http://factorcode.org/license.txt for BSD license.`
			`USING: bootstrap.image.private kernel namespaces system`
New calling convention for VM primitives: instead of the Factor side passing the stack pointer as the first parameter, and having the VM save it to stack_chain->top, we instead have the Factor side save it. Eliminates a lot of crud in the VM 2008-11-13 04:20:34 -05:00			`cpu.x86.assembler layouts vocabs parser compiler.constants ;`
More changes 2007-09-21 23:30:47 -04:00			`IN: bootstrap.x86`
Initial import 2007-09-20 18:09:08 -04:00
			`4 \ cell set`

Starting work on Win64 port 2008-11-07 21:33:32 -05:00			`: stack-frame-size ( -- n ) 4 bootstrap-cells ;`
fixnum-shift-fast and fixnum-mod subprimitives 2008-11-03 02:18:35 -05:00			`: shift-arg ( -- reg ) ECX ;`
			`: div-arg ( -- reg ) EAX ;`
			`: mod-arg ( -- reg ) EDX ;`
Fix win64 bootstrap 2008-12-10 02:19:22 -05:00			`: arg ( -- reg ) EAX ;`
Clean up JIT backend a little 2008-12-09 18:14:17 -05:00			`: temp0 ( -- reg ) EAX ;`
			`: temp1 ( -- reg ) EDX ;`
			`: temp2 ( -- reg ) ECX ;`
			`: temp3 ( -- reg ) EBX ;`
Fix compile errors 2008-06-11 05:52:19 -04:00			`: stack-reg ( -- reg ) ESP ;`
			`: ds-reg ( -- reg ) ESI ;`
Non-optimizing compiler now inlow inlines some primitives, this improves bootstrap time 2008-07-07 11:39:04 -04:00			`: rs-reg ( -- reg ) EDI ;`
Clean up JIT backend a little 2008-12-09 18:14:17 -05:00			`: fixnum>slot@ ( -- ) temp0 1 SAR ;`
Fix compile errors 2008-06-11 05:52:19 -04:00			`: rex-length ( -- n ) 0 ;`
Initial import 2007-09-20 18:09:08 -04:00
New calling convention for VM primitives: instead of the Factor side passing the stack pointer as the first parameter, and having the VM save it to stack_chain->top, we instead have the Factor side save it. Eliminates a lot of crud in the VM 2008-11-13 04:20:34 -05:00			`[`
Clean up JIT backend a little 2008-12-09 18:14:17 -05:00			`temp0 0 [] MOV ! load stack_chain`
			`temp0 [] stack-reg MOV ! save stack pointer`
New calling convention for VM primitives: instead of the Factor side passing the stack pointer as the first parameter, and having the VM save it to stack_chain->top, we instead have the Factor side save it. Eliminates a lot of crud in the VM 2008-11-13 04:20:34 -05:00			`] rc-absolute-cell rt-stack-chain 2 jit-save-stack jit-define`

			`[`
			`(JMP) drop`
			`] rc-relative rt-primitive 1 jit-primitive jit-define`

Create basis vocab root 2008-07-28 23:03:13 -04:00			`<< "resource:basis/cpu/x86/bootstrap.factor" parse-file parsed >>`
Fix bootstrap for a different cell size 2008-01-26 22:47:52 -05:00			`call`