mark-vararg-group ( reps alignment -- reps' )


Vocabulary
compiler.cfg.builder.alien

Inputs
repsan object
alignmentan object


Outputs
reps'an object


Definition
USING: arrays compiler.cfg.builder.alien.params kernel math
sequences ;

IN: compiler.cfg.builder.alien

:: mark-vararg-group ( reps alignment -- reps' )
reps [| rep i |
rep first3 rep param-natural-size 4array rep length 4 >
[ 4 rep nth ] [ 0 ] if suffix i 0 = suffix
i reps length 1 - = suffix alignment suffix
] map-index ;