factor/core/cpu/x86/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 math generator.fixup ;
IN: bootstrap.x86

big-endian off

1 jit-code-format set

: stack-frame-size 4 bootstrap-cells ;

[
    arg0 0 [] MOV                              ! load quotation
    arg1 arg0 quot-xt@ [+] MOV                 ! load XT
    stack-frame-size PUSH                      ! save stack frame size
    arg1 PUSH                                  ! save XT
    arg1 PUSH                                  ! alignment
] rc-absolute-cell rt-literal 2 jit-prolog jit-define

[
    arg0 0 [] MOV                              ! load literal
    ds-reg bootstrap-cell ADD                  ! increment datastack pointer
    ds-reg [] arg0 MOV                         ! store literal on datastack
] rc-absolute-cell rt-literal 2 jit-push-literal jit-define

[
    arg1 stack-reg MOV                         ! pass callstack pointer as arg 2
    (JMP) drop                                 ! go
] rc-relative rt-primitive 3 jit-word-primitive-jump jit-define

[
    arg1 stack-reg bootstrap-cell neg [+] LEA  ! pass callstack pointer as arg 2
    (CALL) drop                                ! go
] rc-relative rt-primitive 5 jit-word-primitive-call jit-define

[
    (JMP) drop
] rc-relative rt-xt 1 jit-word-jump jit-define

[
    (CALL) drop
] rc-relative rt-xt 1 jit-word-call jit-define

[
    arg1 0 MOV                                 ! load addr of true quotation
    arg0 ds-reg [] MOV                         ! load boolean
    ds-reg bootstrap-cell SUB                  ! pop boolean
    arg0 \ f tag-number CMP                    ! compare it with f
    arg0 arg1 [] CMOVNE                        ! load true branch if not equal
    arg0 arg1 bootstrap-cell [+] CMOVE         ! load false branch if equal
    arg0 quot-xt@ [+] JMP                      ! jump to quotation-xt
] rc-absolute-cell rt-literal 1 jit-if-jump jit-define

[
    arg1 0 [] MOV                              ! load dispatch table
    arg0 ds-reg [] MOV                         ! load index
    fixnum>slot@                               ! turn it into an array offset
    ds-reg bootstrap-cell SUB                  ! pop index
    arg0 arg1 ADD                              ! compute quotation location
    arg0 arg0 array-start [+] MOV              ! load quotation
    arg0 quot-xt@ [+] JMP                      ! execute branch
] rc-absolute-cell rt-literal 2 jit-dispatch jit-define

[
    stack-reg stack-frame-size bootstrap-cell - ADD ! unwind stack frame
] f f f jit-epilog jit-define

[ 0 RET ] f f f jit-return jit-define

"bootstrap.x86" forget-vocab