IN: accessors

GENERIC: vmsize>> ( object -- value )

USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: segment_command vmsize>>
T{ struct-slot-spec
{ name "vmsize" }
{ offset 28 }
{ class fixnum }
{ initial 0 }
{ type uint }
} read-struct-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: segment_command_64 vmsize>>
T{ struct-slot-spec
{ name "vmsize" }
{ offset 32 }
{ class integer }
{ initial 0 }
{ type ulonglong }
} read-struct-slot ; inline