measure-pass ( cfg pass -- metrics )

Vocabulary

compiler.cfg.metrics

Inputs

cfg	an object
pass	an object

Outputs

metrics

an object

Definition

USING: accessors assocs combinators tools.time ;

IN: compiler.cfg.metrics

:: measure-pass ( cfg pass -- metrics )
    [ cfg pass ( cfg -- ) execute-effect ] benchmark :> ns cfg
    cfg-metrics :> metrics pass name>> "pass" metrics set-at
    ns "nanoseconds" metrics set-at metrics ;