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


Vocabulary
compiler.cfg.builder.alien.params

Inputs
vregan object
repan object
on-stack?an object
odd-register?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? -- )
vreg rep on-stack?
[ dup dup reg-class-of get odd-register? reg-class-full? ]
dip or
[ alloc-stack-param stack-values ]
[ odd-register? swap next-reg-param reg-values ] if
[ 3array ] dip get push ;