-
Notifications
You must be signed in to change notification settings - Fork 138
/
gc_generations.pasm
134 lines (99 loc) · 2.26 KB
/
gc_generations.pasm
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
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id$
=head1 NAME
examples/benchmarks/gc_generations.pasm - GC/DOD Benchmark
=head1 SYNOPSIS
% ./parrot examples/benchmarks/gc_generations.pasm
=head1 DESCRIPTION
Runs a loop several loops, each making big strings with C<repeat>, then
prints out some statistics indicating:
=over 4
=item * the time taken
=item * the total number of bytes allocated
=item * the total of DOD 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
set I0, 70
set I2, 70
set I4, 70
set S0, " "
time N5
set I1, 0
loop:
repeat S1, S0, 2
repeat S2, S0, 2
repeat S3, S0, 2
repeat S4, S0, 2
repeat S5, S0, 2
repeat S6, S0, 2
repeat S7, S0, 2
repeat S8, S0, 2
set I3, 0
iloop:
repeat S9, S0, 2
repeat S10, S0, 2
repeat S11, S0, 2
repeat S12, S0, 2
repeat S13, S0, 2
repeat S14, S0, 2
repeat S15, S0, 2
repeat S16, S0, 2
set I5, 0
jloop:
repeat S17, S0, 2
repeat S18, S0, 2
repeat S19, S0, 2
repeat S20, S0, 2
repeat S21, S0, 2
repeat S22, S0, 2
repeat S23, S0, 2
repeat S24, S0, 2
inc I5
lt I5, I4, jloop
inc I3
lt I3, I2, iloop
inc I1
lt I1, I0, loop
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 " DOD 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_header_new.pasm>,
F<examples/benchmarks/gc_header_reuse.pasm>,
F<examples/benchmarks/gc_waves_headers.pasm>,
F<examples/benchmarks/gc_waves_sizeable_data.pasm>,
F<examples/benchmarks/gc_waves_sizeable_headers.pasm>.
=cut