write-bits ( n alien i mask start-bit -- )

Vocabulary

classes.struct.bit-accessors

Inputs

n	an object
alien	an object
i	an object
mask	an object
start-bit	an object

Outputs

None

Definition

USING: alien.accessors math ;

IN: classes.struct.bit-accessors

:: write-bits ( n alien i mask start-bit -- )
    n start-bit shift mask bitand alien i alien-unsigned-1
    mask bitnot bitand bitor alien i set-alien-unsigned-1 ;
    inline