tenured<< ( value object -- )


Vocabulary
accessors

Inputs
valuean object
objectan object


Outputs
None

Definition
IN: accessors

GENERIC: tenured<< ( value object -- )


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

M: data-heap-room tenured<<
T{ struct-slot-spec
{ name "tenured" }
{ offset 48 }
{ class mark-sweep-sizes }
{ initial
S{ mark-sweep-sizes
{ size 0 }
{ occupied 0 }
{ total-free 0 }
{ contiguous-free 0 }
{ free-block-count 0 }
}
}
{ type mark-sweep-sizes }
} write-struct-slot ; inline