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 kernel math namespaces
sequences ;

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
    rep length 8 =
    [ 6 rep nth [ stack-params [ 8 align ] change ] when ] when
    ;