c-type-align-at ( slot-spec offset -- n )

Vocabulary

classes.struct.private

Inputs

slot-spec	an object
offset	an object

Outputs

n

an object

Definition

USING: accessors alien.c-types kernel ;

IN: classes.struct.private

: c-type-align-at ( slot-spec offset -- n )
    over packed?>>
    [ 2drop 1 ] [
        [ type>> ] dip 0 =
        [ c-type-align-first ] [ c-type-align ] if
    ] if ;