bw ( n -- quot )

Vocabulary

cpu.arm.64.assembler.private

Inputs

n

an object

Outputs

quot

an object

Definition

USING: accessors generalizations grouping kernel sequences
sequences.generalizations ;

IN: cpu.arm.64.assembler.private

MACRO: bw ( n -- quot )
    dup [
        [
            narray
            [ name>> dup "SP" = [ drop "X" ] when first ] map
            dup all-equal? [ register-mismatch ] unless
            first 88 = 1 0 ?
        ] curry
    ] dip [ nkeep ] 2curry ;