sign-extend ( n bits -- n' )

Vocabulary
classes.struct.private

Definition

USING: kernel math ;

IN: classes.struct.private

: sign-extend ( n bits -- n' )
    1 - -1 swap shift [ + ] keep bitxor ; inline