macho-header ( c-ptr -- macho: mach_header_32/64 )

Vocabulary

macho

Inputs

c-ptr

an object

Outputs

macho

a mach_header_32/64

Definition

USING: classes.struct kernel ;

IN: macho

: macho-header ( c-ptr -- macho: mach_header_32/64 )
    dup mach_header_64 memory>struct 64-bit?
    [ mach_header_64 memory>struct ]
    [ mach_header memory>struct ] if ;