start-vararg ( alignment -- )

Vocabulary

compiler.cfg.builder.alien

Inputs

alignment

an object

Outputs

None

Definition

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

IN: compiler.cfg.builder.alien

: start-vararg ( alignment -- )
    cpu riscv? [
        dup cell 2 * >= int-regs get empty? not and
        [ int-regs get length odd? [ int-regs get pop* ] when ]
        when int-regs get empty?
        [ cell max '[ _ align ] stack-params swap change ]
        [ drop ] if
    ] [
        int-regs get delete-all float-regs get delete-all 8 max
        '[ _ align ] stack-params swap change
    ] if ;