Skip to content
This repository
branch: nqp_pct
Fetching contributors…

Cannot retrieve contributors at this time

file 104 lines (77 sloc) 1.854 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104
# Copyright (C) 2001-2006, Parrot Foundation.

=head1 NAME

examples/benchmarks/stress3.pasm - GC stress-testing

=head1 SYNOPSIS

    % time ./parrot examples/benchmarks/stress3.pasm

=head1 DESCRIPTION

Creates a lot of PMCs, and then prints out some statistics indicating:

=over 4

=item * the total number of GC runs made

=item * the number of active PMCs

=item * the total number of PMC created

=back

Note that a command-line argument of 1 is supposed to cause the PMCs to
be destroyed before a 2nd loop is run. However, this seems to be broken
at the moment:

    FixedPMCArray: Entry not an integer!

=cut

.pcc_sub :main main:

# How can I get to the command line args?

#set I10, P5
#lt I10, 2, noarg
#set I11, P5[1]
set I11, 0
        new P10, 'ResizableIntegerArray'
noarg:
set I0, 100
new P0, 'ResizablePMCArray'

ol: local_branch P10, buildarray
set P0[I0], P1
dec I0
if I0, ol

# now check reusage, destroy them depending on I11
unless I11, no_dest
new P0, 'Undef'
no_dest:
set I0, 5000000
new P3, 'ResizablePMCArray'
l2:
new P1, 'Integer'
set P3[0], P1
dec I0
if I0, l2

interpinfo I1, 2
print "A total of "
print I1
print " GC runs were made\n"
interpinfo I1, 4
print I1
print " active PMCs\n"
interpinfo I1, 6
print I1
print " total PMCs\n"

end


# Our inner loop, 10000 times
buildarray:
set I1, 10000
new P1, 'ResizablePMCArray'
loop1: new P9, 'Integer'
set P9, I1
set P1[I1], P9
dec I1
if I1, loop1
local_return P10

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>,
F<examples/benchmarks/stress.pl>,
F<examples/benchmarks/stress1.pasm>,
F<examples/benchmarks/stress1.pl>,
F<examples/benchmarks/stress2.pasm>,
F<examples/benchmarks/stress2.pl>,
F<examples/benchmarks/stress3.pasm>.

=cut

# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Something went wrong with that request. Please try again.