check-32-bit ( reg -- reg ) (original) (raw)

check-32-bit ( reg -- reg )

Vocabulary
cpu.arm.64.assembler

Inputs

reg an object

Outputs

reg an object

Definition

USING: accessors kernel ;

IN: cpu.arm.64.assembler

: check-32-bit ( reg -- reg )
dup width>> 32 = [ register-width-error ] unless ;