IN: accessors

GENERIC: maxprot>> ( object -- value )

USING: accessors classes.struct classes.struct.private macho
math ;

M: segment_command maxprot>>
T{ struct-slot-spec
{ name "maxprot" }
{ offset 40 }
{ class fixnum }
{ initial 0 }
{ type vm_prot_t }
} read-struct-slot ; inline

USING: accessors classes.struct classes.struct.private macho
math ;

M: segment_command_64 maxprot>>
T{ struct-slot-spec
{ name "maxprot" }
{ offset 56 }
{ class fixnum }
{ initial 0 }
{ type vm_prot_t }
} read-struct-slot ; inline