report. ( report -- )

Vocabulary

compiler.tree.debugger

Inputs

report

an object

Outputs

None

Definition

USING: assocs io namespaces prettyprint sorting ;

IN: compiler.tree.debugger

: report. ( report -- )
    [
        "==== Total number of IR nodes:" print node-count get . 
        {
            { generics-called "==== Generic word calls:" }
            { words-called "==== Ordinary word calls:" }
            { methods-called "==== Non-inlined method calls:" }
            {
                intrinsics-called
                "==== Open-coded intrinsic calls:"
            }
        } [ nl print get keys sort stack. ] assoc-each
    ] with-variables ;