flag>arch ( flag -- arch )

Vocabulary

ldcache.private

Inputs

flag

an object

Outputs

arch

an object

Definition

USING: assocs math system ;

IN: ldcache.private

: flag>arch ( flag -- arch )
    65280 bitand
    { { 2048 x86.32 } { 768 x86.64 } { 1280 ppc.64 } } at ;