# Copyright (C) 2006-2009, Parrot Foundation.
# $Id$

.include 'interpinfo.pasm'

.sub 'main' :main
    .param pmc argv
    .local int lim, i
    lim = argv[1]

  outer:
    i = 0
    $I0 = interpinfo .INTERPINFO_TOTAL_MEM_ALLOC
    print "Total Mem Alloc: "
    say $I0
    $I0 = interpinfo .INTERPINFO_ACTIVE_PMCS
    print "Active PMCs: "
    say $I0
    $I0 = interpinfo .INTERPINFO_ACTIVE_BUFFERS
    print "Active Buffers: "
    say $I0
    $I0 = interpinfo .INTERPINFO_TOTAL_PMCS
    print "Total PMCs: "
    say $I0
    $I0 = interpinfo .INTERPINFO_TOTAL_BUFFERS
    print "Total Buffers: "
    say $I0
    $I0 = interpinfo .INTERPINFO_HEADER_ALLOCS_SINCE_COLLECT
    print "Total Header Allocs Since Collect: "
    say $I0
    $I0 = interpinfo .INTERPINFO_MEM_ALLOCS_SINCE_COLLECT
    print "Total Mem Allocs Since Collect: "
    say $I0
    $I0 = interpinfo .INTERPINFO_TOTAL_COPIED
    print "Total Copied: "
    say $I0
    $I0 = interpinfo .INTERPINFO_IMPATIENT_PMCS
    print "Impatient PMCs: "
    say $I0
    $I0 = interpinfo .INTERPINFO_GC_LAZY_MARK_RUNS
    print "GC Lazy Mark Runs: "
    say $I0
    # interpinfo no longer answers to EXTENDED_PMCS
    # $I0 = interpinfo .INTERPINFO_EXTENDED_PMCS
    # print "Extended PMCs: "
    # say $I0
    say ""
    say "-------------------------------------"
    say ""
  loop:
    consume()
    consume()
    consume()
    consume()
    inc i
    if i == lim goto outer
    goto loop

.end

.sub consume
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: