prepare-parameter-group ( rep-tuple -- )

Vocabulary

compiler.cfg.builder.alien.params

Inputs

rep-tuple

an object

Outputs

None

Definition

USING: cpu.architecture kernel layouts math math.order
namespaces sequences ;

IN: compiler.cfg.builder.alien.params

:: prepare-parameter-group ( rep-tuple -- )
    rep-tuple length 4 > [
        rep-tuple first reg-class-of get :> regs 4 rep-tuple nth
        :> count count regs length > [
            regs delete-all compact-stack-params? get [
                rep-tuple param-natural-size :> size
                stack-params get size cell max align
                :> offset offset stack-group-offset set
                count stack-group-remaining set
                offset count size * cell align +
                stack-params set
            ] unless
        ] when
    ] when ;