Merge with master
[ghc.git] / testsuite / tests / perf / compiler / all.T
1 def no_lint(opts):
2    opts.compiler_always_flags = \
3        filter(lambda opt: opt != '-dcore-lint' and opt != '-dcmm-lint', opts.compiler_always_flags)
4
5 setTestOpts(no_lint)
6
7
8 test('T1969',
9      [if_wordsize(32,
10           compiler_stats_num_field('peak_megabytes_allocated', 13,
11                                                                19)),
12                              # expected value: 14 (x86/Windows 17/05/10)
13                              #                 15 (x86/OS X)
14                              #                 19 (x86/OS X)
15       if_wordsize(64,
16           compiler_stats_num_field('peak_megabytes_allocated', 22,
17                                                                24)),
18                                              # expected value: 28 (amd64/Linux)
19                                              # expected value: 34 (amd64/Linux)
20                                              # 2012-09-20      23 (amd64/Linux)
21       if_wordsize(32,
22           compiler_stats_num_field('max_bytes_used', 4000000,
23                                                      7000000)),
24                              # expected value: 6707308 (x86/OS X)
25                              #                 5717704 (x86/Windows 17/05/10)
26                              #                 6149572 (x86/Linux, 31/12/09)
27       if_wordsize(64,
28           compiler_stats_range_field('max_bytes_used', 9000000, 15)),
29                                   # looks like the peak is around 10M, but we're
30                                   # unlikely to GC exactly on the peak.
31                                   # varies quite a lot with CLEANUP and BINDIST,
32                                   # hence 10% range.
33       if_wordsize(32,
34           compiler_stats_num_field('bytes allocated', 210000000,
35                                                       290000000)),
36                                     # expected value: 215582916 (x86/Windows)
37                                     #                 221667908 (x86/OS X)
38                                     #                 274932264 (x86/Linux)
39       if_wordsize(64,
40           compiler_stats_range_field('bytes allocated', 641959976, 1)),
41                                     # 17/11/2009:     434,845,560 (amd64/Linux)
42                                     # 08/12/2009:     459,776,680 (amd64/Linux)
43                                     # 17/05/2010:     519,377,728 (amd64/Linux)
44                                     # 05/08/2011:     561,382,568 (amd64/OS X)
45                                     # 16/07/2012:     589,168,872 (amd64/Linux)
46                                     # 20/07/2012:     595,936,240 (amd64/Linux)
47                                     # 23/08/2012:     606,230,880 (amd64/Linux)
48                                     # 29/08/2012:     633,334,184 (amd64/Linux)
49                                     #                 (^ new codegen)
50                                     # 18/09/2012:     641,959,976 (amd64/Linux)
51       only_ways(['normal']),
52       extra_hc_opts('-dcore-lint')
53           # Leave -dcore-lint on for this one test, so that we have something
54           # that will catch a regression in -dcore-lint performance.
55       ],
56      compile,
57      [''])
58
59 # This one tests for the space leak in the native code generator,
60 # where it holds onto the entire asm output until the end.  The space
61 # leak reappears from time to time, so it's a good idea to have a test
62 # for it.  The residency of this test will jump by 10MB to 40MB or so
63 # on x86-64 if the space leak appears.
64
65 # Only run this one if we have an NCG:
66 if 'optasm' in config.compile_ways:
67    conf_3294 = only_ways(['normal'])
68 else:
69    conf_3294 = skip
70
71 test('T3294',
72      [if_wordsize(32,
73           compiler_stats_num_field('max_bytes_used', 12000000,
74                                                      20000000)),
75                                    # expected value: 17725476 (x86/OS X)
76                                    #                 14593500 (Windows)
77       if_wordsize(64,
78           compiler_stats_range_field('max_bytes_used', 37724352, 15)),
79                                    # prev:           25753192 (amd64/Linux)
80                                    # 29/08/2012:     37724352 (amd64/Linux)
81                                    #  (increase due to new codegen, see #7198)
82       if_wordsize(32,
83           compiler_stats_num_field('bytes allocated', 650000000,
84                                                       750000000)),
85                                     # expected value: 815479800  (x86/Linux)
86       if_wordsize(64,
87           compiler_stats_range_field('bytes allocated', 2717327208, 5)),
88                                    # old:        1,357,587,088 (amd64/Linux)
89                                    # 29/08/2012: 2,961,778,696 (amd64/Linux)
90                                    # (^ increase due to new codegen, see #7198)
91                                    # 18/09/2012: 2,717,327,208 (amd64/Linux)
92       conf_3294
93       ],
94      compile,
95      [''])
96
97 test('T4801',
98      [ # expect_broken(5224),
99        # temporarily unbroken (#5227)
100       if_wordsize(32,
101           compiler_stats_range_field('peak_megabytes_allocated', 30, 20)),
102       if_wordsize(64, # sample from (amd64/Linux):
103           compiler_stats_range_field('peak_megabytes_allocated', 50, 20)),
104       # expected value: 58 (amd64/OS X):
105       if_platform('x86_64-apple-darwin',
106           compiler_stats_num_field('peak_megabytes_allocated', 56, 60)),
107       # expected value: 228286660 (x86/OS X)
108       if_wordsize(32,
109           compiler_stats_range_field('bytes allocated', 185669232, 10)),
110       if_wordsize(64, # (amd64/Linux):
111           compiler_stats_range_field('bytes allocated', 360243576, 10)),
112       # expected value: 510938976 (amd64/OS X):
113       if_platform('x86_64-apple-darwin',
114           compiler_stats_num_field('bytes allocated', 490000000,
115                                                       530000000)),
116       if_wordsize(32,
117       #                    expected value: x86/OS X:  9651948
118           compiler_stats_num_field('max_bytes_used',  8000000,
119                                                      12000000)),
120       # expected value: 10290952 (windows)
121       if_wordsize(64,
122           compiler_stats_range_field('max_bytes_used', 18500000, 15)),
123                 # prev:       20486256 (amd64/OS X)
124                 # 30/08/2012: 17305600--20391920 (varies a lot)
125       if_platform('x86_64-apple-darwin',
126           compiler_stats_num_field('max_bytes_used', 20000000,
127                                                      23000000)),
128        only_ways(['normal'])
129       ],
130      compile,
131      [''])
132
133 test('T3064',
134      [# expect_broken( 3064 ),
135       # expected value: 14 (x86/Linux 28-06-2012):
136       if_wordsize(32,
137           compiler_stats_range_field('peak_megabytes_allocated', 14, 30)),
138       # expected value: 18 (amd64/Linux):
139       if_wordsize(64,
140           compiler_stats_num_field('peak_megabytes_allocated', 20, 28)),
141       # expected value: 56380288 (x86/Linux) (28/6/2011)
142       if_wordsize(32,
143           compiler_stats_range_field('bytes allocated', 124952112, 10)),
144       # expected value: 73259544 (amd64/Linux) (28/6/2011):
145       if_wordsize(64,
146           compiler_stats_num_field('bytes allocated', 200000000,
147                                                       280000000)),
148       # expected value: 2247016 (x86/Linux) (28/6/2011):
149       if_wordsize(32,
150           compiler_stats_range_field('max_bytes_used', 5511604, 20)),
151       # expected value: 4032024 (amd64/Linux, intree) (28/6/2011):
152       if_wordsize(64,
153           compiler_stats_num_field('max_bytes_used', 8000000,
154                                                      14000000)),
155        only_ways(['normal'])
156       ],
157      compile,
158      [''])
159
160 test('T4007',
161      normal,
162      run_command,
163      ['$MAKE -s --no-print-directory T4007'])
164
165 test('T5030',
166      [# expected value: 449368924 (x86/Linux)
167       if_wordsize(32,
168           compiler_stats_range_field('bytes allocated', 196457520, 10)),
169       # expected value: 346750856 (amd64/Linux):
170       if_wordsize(64,
171           compiler_stats_range_field('bytes allocated', 530000000, 10)),
172        only_ways(['normal'])
173       ],
174      compile,
175      ['-fcontext-stack=300'])
176
177 test('T5631',
178      [if_wordsize(32, # sample from x86/Linux
179           compiler_stats_range_field('bytes allocated', 392904228, 10)),
180       # expected value: 774,595,008 (amd64/Linux):
181       if_wordsize(64,
182           compiler_stats_num_field('bytes allocated', 600000000,
183                                                       900000000)),
184        only_ways(['normal'])
185       ],
186      compile,
187      [''])
188
189 test('parsing001',
190      [# expected value: ?
191       if_wordsize(32,
192           compiler_stats_range_field('bytes allocated', 274000576, 10)),
193       # expected value: 587079016 (amd64/Linux):
194       if_wordsize(64,
195           compiler_stats_num_field('bytes allocated', 540000000,
196                                                       620000000)),
197        only_ways(['normal']),
198       ],
199      compile_fail, [''])
200
201
202 test('T783',
203      [ only_ways(['normal']),  # no optimisation for this one
204       # expected value: 175,569,928 (x86/Linux)
205       if_wordsize(32,
206           compiler_stats_num_field('bytes allocated', 125000000,
207                                                       225000000)),
208       if_wordsize(64,
209           compiler_stats_range_field('bytes allocated', 436927840, 10))
210                            # prev:       349,263,216 (amd64/Linux)
211                            # 07/08/2012: 384,479,856 (amd64/Linux)
212                            # 29/08/2012: 436,927,840 (amd64/Linux)
213       ],
214       compile,[''])
215
216 test('T5321Fun',
217      [ only_ways(['normal']),  # no optimisation for this one
218       # sample from x86/Linux
219       if_wordsize(32,
220           compiler_stats_range_field('bytes allocated', 300000000, 10)),
221       if_wordsize(64,
222           compiler_stats_range_field('bytes allocated', 713385808, 10))
223                                          # prev:       585,521,080
224                                          # 29/08/2012: 713,385,808
225                                          #  (increase due to new codegen)
226       ],
227       compile,[''])
228
229 test('T5321FD',
230      [ only_ways(['normal']),  # no optimisation for this one
231       # sample from x86/Linux
232       if_wordsize(32,
233           compiler_stats_range_field('bytes allocated', 213380256, 10)),
234       if_wordsize(64,
235           compiler_stats_range_field('bytes allocated', 492905640, 10))
236                                          # prev:       418,306,336
237                                          # 29/08/2012: 492,905,640
238                                          #  (increase due to new codegen)
239       ],
240       compile,[''])
241
242 test('T5642',
243      [ only_ways(['normal']),
244       if_wordsize(32, # sample from x86/Linux
245           compiler_stats_range_field('bytes allocated',  650000000, 10)),
246       if_wordsize(64,
247           compiler_stats_range_field('bytes allocated', 1300000000, 10))
248       ],
249       compile,['-O'])
250
251 test('T5837',
252      [ only_ways(['normal']),
253       if_wordsize(32, # sample from x86/Linux
254           compiler_stats_range_field('bytes allocated', 40000000, 10)),
255
256       # sample: 3926235424 (amd64/Linux, 15/2/2012)
257       if_wordsize(64,
258           compiler_stats_range_field('bytes allocated', 87254264, 10))
259                                            # 2012-09-20 87254264 amd64/Linux
260       ],
261       compile_fail,['-fcontext-stack=50'])
262
263 test('T6048',
264      [ only_ways(['optasm']),
265       if_wordsize(32, # sample from x86/Linux
266           compiler_stats_range_field('bytes allocated', 38000000, 10)),
267
268       if_wordsize(64,
269           compiler_stats_range_field('bytes allocated', 97247032, 10))
270                                            # 18/09/2012 97247032 amd64/Linux
271       ],
272       compile,[''])