8-byte-alignment ( c-type -- c-type )

Vocabulary

alien.c-types.private

Inputs

c-type

an object

Outputs

c-type

an object

Definition

USING: accessors combinators kernel system ;

IN: alien.c-types.private

: 8-byte-alignment ( c-type -- c-type )
    {
        {
            [ cpu x86.32? os windows? not and ]
            [ 4 >>align 4 >>align-first ]
        }
        [ 8 >>align 8 >>align-first ]
    } cond ;