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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
# Copyright (C) 2001-2003, Parrot Foundation.
=head1 NAME
examples/benchmarks/gc_waves_sizeable_data.pasm - GC Benchmark
=head1 SYNOPSIS
% ./parrot examples/benchmarks/gc_waves_sizeable_data.pasm
=head1 DESCRIPTION
Makes some strings with C<concat> and C<substr>, then prints out some
statistics indicating:
=over 4
=item * the time taken
=item * the total number of bytes allocated
=item * the total of GC runs made
=item * the total number of collection runs made
=item * the total number of bytes copied
=item * the number of active C<Buffer> C<struct>s
=item * the total number of C<Buffer> C<struct>s
=back
=cut
.pcc_sub :main main:
set I0, 11
set I3, 0
set I2, 200
set S0, " "
set S1, S0
set S2, S0
set S3, S0
set S4, S0
set S5, S0
set S6, S0
set S7, S0
set S8, S0
time N5
set I1, 0
mainloop:
loopup:
concat S1, S8, S8
concat S2, S8, S8
concat S3, S8, S8
concat S4, S8, S8
concat S5, S8, S8
concat S6, S8, S8
concat S7, S8, S8
concat S8, S8, S8
inc I1
lt I1, I0, loopup
loopdown:
length I15, S1
div I15, I15, 2
substr S1, S1, 0, I15
substr S2, S2, 0, I15
substr S3, S3, 0, I15
substr S4, S4, 0, I15
substr S5, S5, 0, I15
substr S6, S6, 0, I15
substr S7, S7, 0, I15
substr S8, S8, 0, I15
dec I1
gt I1, 0, loopdown
inc I3
lt I3, I2, mainloop
getout: time N6
sub N7, N6, N5
print N7
print " seconds.\n"
interpinfo I1, 1
print "A total of "
print I1
print " bytes were allocated\n"
interpinfo I1, 2
print "A total of "
print I1
print " GC runs were made\n"
interpinfo I1, 3
print "A total of "
print I1
print " collection runs were made\n"
interpinfo I1, 10
print "Copying a total of "
print I1
print " bytes\n"
interpinfo I1, 5
print "There are "
print I1
print " active Buffer structs\n"
interpinfo I1, 7
print "There are "
print I1
print " total Buffer structs\n"
end
=head1 SEE ALSO
F<examples/benchmarks/bench_newp.pasm>,
F<examples/benchmarks/gc_alloc_new.pasm>,
F<examples/benchmarks/gc_alloc_reuse.pasm>,
F<examples/benchmarks/gc_generations.pasm>,
F<examples/benchmarks/gc_header_new.pasm>,
F<examples/benchmarks/gc_header_reuse.pasm>,
F<examples/benchmarks/gc_waves_headers.pasm>,
F<examples/benchmarks/gc_waves_sizeable_headers.pasm>.
=cut
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
|
