allocator-statistics ( allocator -- assoc )

Vocabulary

compiler.cfg.register-allocation

Inputs

allocator

an allocator object

Outputs

assoc

an association of diagnostic names to values

Word description

Returns a snapshot of diagnostics for the most recent allocation in the current dynamic scope. Implementations may report evictions, splits, graph properties or other algorithm-specific counters. The default method returns an empty association. The returned data must not change when a later allocation runs. Diagnostics must not affect allocation decisions.

Definition

IN: compiler.cfg.register-allocation

GENERIC: allocator-statistics ( allocator -- assoc )

Methods

USING: assocs compiler.cfg.register-allocation
compiler.cfg.register-allocation.backtracking
compiler.cfg.register-allocation.spill-sites kernel namespaces
sequences ;

M: backtracking-allocator allocator-statistics
    drop
    H{ } clone "ssa-bundle-backtracking" "algorithm" pick set-at
    0 "fallback-count" pick set-at
    backtracking-merges get "bundle-merges" pick set-at
    backtracking-shared-homes get "shared-spill-homes" pick
    set-at
    backtracking-directed-splits get "conflict-directed-splits"
    pick set-at
    backtracking-cluster-splits get "loop-cluster-splits" pick
    set-at
    backtracking-hint-hits get "register-hint-hits" pick set-at
    backtracking-minimal-splits get "minimal-splits" pick set-at
    backtracking-split-budget-exhaustions get
    "split-budget-exhaustions" pick set-at
    backtracking-second-chance-attempts get
    "second-chance-attempts" pick set-at
    backtracking-second-chance-assignments get
    "second-chance-assignments" pick set-at
    backtracking-register-transitions get "register-transitions"
    pick set-at
    backtracking-edge-entry-reloads get "edge-entry-reloads"
    pick set-at
    backtracking-interior-gaps-skipped get
    "interior-gaps-skipped" pick set-at
    backtracking-evictions get "evictions" pick set-at
    backtracking-splits get "splits" pick set-at
    assigned-bundles get length "assigned-bundles" pick set-at
    backtracking-loop-spills? get [
        loop-spill-site-count get "loop-spill-sites" pick set-at
        cold-spill-store-count get "redundant-loop-stores" pick
        set-at
    ] when ;


USING: compiler.cfg.register-allocation
compiler.cfg.register-allocation.chordal kernel namespaces ;

M: chordal-allocator allocator-statistics
    drop chordal-statistics get clone ;


USING: accessors compiler.cfg.register-allocation
compiler.cfg.register-allocation.validation ;

M: constrained-allocator allocator-statistics
    delegate>> allocator-statistics ;


USING: assocs compiler.cfg.register-allocation
compiler.cfg.register-allocation.greedy kernel namespaces ;

M: greedy-allocator allocator-statistics
    drop greedy-statistics get H{ } or
    clone "llvm-style-greedy" "algorithm" pick set-at
    0 "fallback-count" pick set-at ;


USING: compiler.cfg.register-allocation kernel ;

M: object allocator-statistics drop H{ } clone ;