align-va-pointer ( ptr alignment -- ptr' )


Vocabulary
alien.varargs.private

Inputs
ptran object
alignmentan object


Outputs
ptr'an object


Definition
USING: alien kernel math ;

IN: alien.varargs.private

: align-va-pointer ( ptr alignment -- ptr' )
[ alien-address ] dip align <alien> ;