sign-extend ( n bits -- n' )

Vocabulary

classes.struct.private

Inputs

n	an object
bits	an object

Outputs

n'

an object

Definition

USING: kernel math ;

IN: classes.struct.private

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