aging>> ( object -- value )


Vocabulary
accessors

Inputs
objectan object


Outputs
valuean object


Definition
IN: accessors

GENERIC: aging>> ( object -- value )


Methods
USING: accessors classes.struct classes.struct.private vm ;

M: data-heap-room aging>>
T{ struct-slot-spec
{ name "aging" }
{ offset 24 }
{ class copying-sizes }
{ initial
S{ copying-sizes
{ size 0 }
{ occupied 0 }
{ free 0 }
}
}
{ type copying-sizes }
} read-struct-slot ; inline