caller-parameter ( vreg rep -- )

Vocabulary

compiler.cfg.builder.alien

Inputs

vreg	an object
rep	an object

Outputs

None

Definition

USING: compiler.cfg.builder.alien.params cpu.architecture kernel
layouts math namespaces sequences system ;

IN: compiler.cfg.builder.alien

:: caller-parameter ( vreg rep -- )
    rep length 8 =
    [ 5 rep nth [ 7 rep nth start-vararg ] when ] when
    rep prepare-parameter-group
    vreg rep first3 rep param-natural-size next-parameter
    cpu riscv? rep length 8 = and
    [ stack-params get 0 > [ int-regs get delete-all ] when ]
    when rep length 8 =
    [ 6 rep nth [ stack-params [ cell align ] change ] when ]
    when ;