set-bits ( slot-spec n -- slot-spec )

Vocabulary

classes.struct.private

Inputs

slot-spec	an object
n	an object

Outputs

slot-spec

an object

Definition

USING: accessors alien.c-types classes.struct kernel ;

IN: classes.struct.private

:: set-bits ( slot-spec n -- slot-spec )
    struct-bit-slot-spec new n >>bits
    slot-spec type>> c-type-signed >>signed?
    slot-spec name>> >>name slot-spec class>> >>class
    slot-spec type>> >>type slot-spec read-only>> >>read-only
    slot-spec initial>> >>initial ;