total-size+ ( m object -- n )

Vocabulary

tools.memory.private

Inputs

m	an object
object	an object

Outputs

n

an object

Definition

USING: accessors classes classes.tuple kernel math memory
namespaces sequences sets slots.private ;

IN: tools.memory.private

: total-size+ ( m object -- n )
    dup visited get ?adjoin [
        [ size + ] [
            dup class-of all-slots
            [ offset>> slot total-size+ ] with each
        ] bi
    ] [ drop ] if ;