emit-va-cursor-inputs ( layout -- )

Vocabulary

compiler.cfg.builder.alien

Inputs

layout

an object

Outputs

None

Definition

USING: compiler.cfg.hats compiler.cfg.instructions
compiler.cfg.registers compiler.cfg.stacks kernel math sequences
system ;

IN: compiler.cfg.builder.alien

:: emit-va-cursor-inputs ( layout -- )
    layout first3 :> ( stack-offset gp-left fp-left ) next-vreg
    dup ##callback-stack, :> entry-sp os windows? gp-left 0 >
    and
    [ entry-sp gp-left 8 * ^^sub-imm ]
    [ entry-sp stack-offset ^^add-imm ] if ^^box-alien ds-push
    os linux? [
        entry-sp ^^box-alien ds-push entry-sp 64 ^^sub-imm
        ^^box-alien ds-push gp-left -8 * ^^load-literal ds-push
        fp-left -16 * ^^load-literal ds-push
    ] [
        f ^^load-literal ds-push f ^^load-literal ds-push
        0 ^^load-literal ds-push 0 ^^load-literal ds-push
    ] if ;