benchmark-data-pair>> ( object -- value )

Vocabulary

accessors

Inputs

object

an object

Outputs

value

an object

Definition

IN: accessors

GENERIC: benchmark-data-pair>> ( object -- value )

Methods

USING: accessors classes.struct classes.struct.private
game.loop.benchmark tools.time.struct ;

M: game-loop-benchmark benchmark-data-pair>>
    T{ struct-slot-spec
        { name "benchmark-data-pair" }
        { offset 0 }
        { class benchmark-data-pair }
        { initial
            S{ benchmark-data-pair
                { start
                    S{ benchmark-data
                        { time 0 }
                        { data-room ~data-heap-room~ }
                        { code-room ~mark-sweep-sizes~ }
                        { callback-room ~mark-sweep-sizes~ }
                    }
                }
                { stop
                    S{ benchmark-data
                        { time 0 }
                        { data-room ~data-heap-room~ }
                        { code-room ~mark-sweep-sizes~ }
                        { callback-room ~mark-sweep-sizes~ }
                    }
                }
            }
        }
        { type benchmark-data-pair }
    } read-struct-slot ; inline