emit-64 ( cell -- )

Vocabulary

bootstrap.image.private

Inputs

cell

an object

Outputs

None

Definition

USING: kernel layouts math.bitwise namespaces ;

IN: bootstrap.image.private

: emit-64 ( cell -- )
    bootstrap-cell 8 =
    [ emit ] [ d>w/w big-endian get [ swap ] unless emit emit ]
    if ;