emit-callback-inputs ( params -- )

Vocabulary

compiler.cfg.builder.alien

Inputs

params

an object

Outputs

None

Definition

USING: arrays compiler.cfg.builder.alien.boxing
compiler.cfg.instructions kernel math namespaces sequences ;

IN: compiler.cfg.builder.alien

:: emit-callback-inputs ( params -- )
    params callee-parameters
    :> ( vregs reps layout reg-outputs stack-outputs )
    struct-return-area get callback-struct-return-area set
    reg-outputs stack-outputs layout
    [ [ first4 [ 192 + ] dip 4array ] map ] when
    ##callback-inputs, vregs reps params box-parameters layout
    [ emit-va-cursor-inputs ] when* ;