integer-promotion ( source -- promoted )

Vocabulary

alien.c-types.varargs.private

Inputs

source

an object

Outputs

promoted

an object

Definition

USING: alien.c-types alien.c-types.varargs math ;

IN: alien.c-types.varargs.private

:: integer-promotion ( source -- promoted )
    source c-type-unboxer-quot :> unbox source heap-size 8 *
    :> width source c-type-signed :> signed? int unbox width
    signed?
    '[ @ _ _ narrow-vararg-integer >fixnum ]
    <promoted-vararg-c-type> ;