next-parameter ( vreg rep on-stack? odd-register? size -- )

Vocabulary

compiler.cfg.builder.alien.params

Inputs

vreg	an object
rep	an object
on-stack?	an object
odd-register?	an object
size	an object

Outputs

None

Definition

USING: arrays cpu.architecture kernel namespaces sequences ;

IN: compiler.cfg.builder.alien.params

:: next-parameter
    ( vreg rep on-stack? odd-register? size -- )
    vreg rep on-stack?
    [ dup dup reg-class-of get odd-register? reg-class-full? ]
    dip or
    [ size alloc-parameter-stack-slot size 4array stack-values ]
    [ odd-register? swap next-reg-param 3array reg-values ] if
    get push ;