with-param-regs ( abi quot -- reg-values stack-values )

Vocabulary

compiler.cfg.builder.alien

Inputs

abi	an object
quot	an object

Outputs

reg-values	an object
stack-values	an object

Definition

USING: compiler.cfg.builder.alien.boxing
compiler.cfg.builder.alien.params cpu.architecture kernel
namespaces ;

IN: compiler.cfg.builder.alien

: with-param-regs ( abi quot -- reg-values stack-values )
    [
        [
            param-regs init-regs 0 stack-params set
            V{ } clone reg-values set
            V{ } clone stack-values set 0 int-reg-reps set
            0 float-reg-reps set
        ]
    ] dip [
        reg-values get stack-values get stack-params get
        struct-return-area get
    ] compose compose with-scope struct-return-area set
    stack-params set ; inline