all.T 10.3 KB
Newer Older
Simon Marlow's avatar
Simon Marlow committed
1
def no_lint(opts):
2
   opts.compiler_always_flags = \
Simon Marlow's avatar
Simon Marlow committed
3
       filter(lambda opt: opt != '-dcore-lint' and opt != '-dcmm-lint', opts.compiler_always_flags)
4

Simon Marlow's avatar
Simon Marlow committed
5
setTestOpts(no_lint)
6 7


Simon Marlow's avatar
Simon Marlow committed
8 9
test('T1969',
     [if_wordsize(32,
10
          compiler_stats_num_field('peak_megabytes_allocated', 13,
Simon Marlow's avatar
Simon Marlow committed
11
                                                               19)),
12 13 14
                             # expected value: 14 (x86/Windows 17/05/10)
                             #                 15 (x86/OS X)
                             #                 19 (x86/OS X)
Simon Marlow's avatar
Simon Marlow committed
15
      if_wordsize(64,
16
          compiler_stats_num_field('peak_megabytes_allocated', 24,
Simon Peyton Jones's avatar
Simon Peyton Jones committed
17
                                                               37)),
Simon Marlow's avatar
Simon Marlow committed
18
                                             # expected value: 28 (amd64/Linux)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
19
                                             # expected value: 34 (amd64/Linux)
Simon Marlow's avatar
Simon Marlow committed
20
      if_wordsize(32,
21
          compiler_stats_num_field('max_bytes_used', 4000000,
Simon Marlow's avatar
Simon Marlow committed
22
                                                     7000000)),
23
                             # expected value: 6707308 (x86/OS X)
24
                             #                 5717704 (x86/Windows 17/05/10)
25
                             #                 6149572 (x86/Linux, 31/12/09)
Simon Marlow's avatar
Simon Marlow committed
26
      if_wordsize(64,
Simon Marlow's avatar
Simon Marlow committed
27
          compiler_stats_range_field('max_bytes_used', 9000000, 15)),
Simon Marlow's avatar
Simon Marlow committed
28 29
                                  # looks like the peak is around 10M, but we're
                                  # unlikely to GC exactly on the peak.
30
                                  # varies quite a lot with CLEANUP and BINDIST,
Simon Marlow's avatar
Simon Marlow committed
31
                                  # hence 10% range.
Simon Marlow's avatar
Simon Marlow committed
32 33
      if_wordsize(32,
          compiler_stats_num_field('bytes allocated', 210000000,
34
                                                      290000000)),
Simon Marlow's avatar
Simon Marlow committed
35 36
                                    # expected value: 215582916 (x86/Windows)
                                    #                 221667908 (x86/OS X)
37
                                    #                 274932264 (x86/Linux)
Simon Marlow's avatar
Simon Marlow committed
38
      if_wordsize(64,
Simon Marlow's avatar
Simon Marlow committed
39
          compiler_stats_range_field('bytes allocated', 606230880, 1)),
Simon Marlow's avatar
Simon Marlow committed
40 41
                                    # 17/11/2009:     434,845,560 (amd64/Linux)
                                    # 08/12/2009:     459,776,680 (amd64/Linux)
42
                                    # 17/05/2010:     519,377,728 (amd64/Linux)
43
                                    # 05/08/2011:     561,382,568 (amd64/OS X)
44
                                    # 16/07/2012:     589,168,872 (amd64/Linux)
Ian Lynagh's avatar
Ian Lynagh committed
45
                                    # 20/07/2012:     595,936,240 (amd64/Linux)
Simon Marlow's avatar
Simon Marlow committed
46
                                    # 23/08/2012:     606,230,880 (amd64/Linux)
47 48 49 50
      only_ways(['normal']),
      extra_hc_opts('-dcore-lint')
          # Leave -dcore-lint on for this one test, so that we have something
          # that will catch a regression in -dcore-lint performance.
Simon Marlow's avatar
Simon Marlow committed
51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
      ],
     compile,
     [''])

# This one tests for the space leak in the native code generator,
# where it holds onto the entire asm output until the end.  The space
# leak reappears from time to time, so it's a good idea to have a test
# for it.  The residency of this test will jump by 10MB to 40MB or so
# on x86-64 if the space leak appears.

# Only run this one if we have an NCG:
if 'optasm' in config.compile_ways:
   conf_3294 = only_ways(['normal'])
else:
   conf_3294 = skip

test('T3294',
     [if_wordsize(32,
69
          compiler_stats_num_field('max_bytes_used', 12000000,
Simon Marlow's avatar
Simon Marlow committed
70
                                                     20000000)),
Ian Lynagh's avatar
Ian Lynagh committed
71
                                   # expected value: 17725476 (x86/OS X)
72
				   #                 14593500 (Windows)
Simon Marlow's avatar
Simon Marlow committed
73
      if_wordsize(64,
74 75 76 77
          compiler_stats_range_field('max_bytes_used', 25753192, 15)),
                                   # Improved with the new codegen merge,
                                   # because we now do stg->cmm->NCG for one
                                   # top-level binding at a time.
Simon Marlow's avatar
Simon Marlow committed
78
      if_wordsize(32,
79 80
          compiler_stats_num_field('bytes allocated', 650000000,
                                                      750000000)),
Simon Marlow's avatar
Simon Marlow committed
81 82 83 84 85 86 87 88 89
                                    # expected value: 815479800  (x86/Linux)
      if_wordsize(64,
          compiler_stats_num_field('bytes allocated', 1200000000,
                                                      1500000000)),
                                    # expected value: 1357587088 (amd64/Linux)
      conf_3294
      ],
     compile,
     [''])
Ian Lynagh's avatar
Ian Lynagh committed
90

Simon Peyton Jones's avatar
Simon Peyton Jones committed
91
test('T4801',
92 93
     [ # expect_broken(5224),
       # temporarily unbroken (#5227)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
94
      if_wordsize(32,
95
          compiler_stats_range_field('peak_megabytes_allocated', 30, 20)),
96
      if_wordsize(64, # sample from (amd64/Linux):
97
          compiler_stats_range_field('peak_megabytes_allocated', 50, 20)),
98
      # expected value: 58 (amd64/OS X):
99
      if_platform('x86_64-apple-darwin',
100
          compiler_stats_num_field('peak_megabytes_allocated', 56, 60)),
Ian Lynagh's avatar
Ian Lynagh committed
101
      # expected value: 228286660 (x86/OS X)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
102
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
103
          compiler_stats_range_field('bytes allocated', 185669232, 10)),
104 105
      if_wordsize(64, # (amd64/Linux):
          compiler_stats_range_field('bytes allocated', 360243576, 10)),
106 107 108 109
      # expected value: 510938976 (amd64/OS X):
      if_platform('x86_64-apple-darwin',
          compiler_stats_num_field('bytes allocated', 490000000,
                                                      530000000)),
Simon Peyton Jones's avatar
Simon Peyton Jones committed
110
      if_wordsize(32,
111
      #                    expected value: x86/OS X:  9651948
112
          compiler_stats_num_field('max_bytes_used',  8000000,
Simon Marlow's avatar
Simon Marlow committed
113
                                                     12000000)),
114
      # expected value: 10290952 (windows)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
115
      if_wordsize(64,
116
          compiler_stats_range_field('max_bytes_used', 17629176, 15)),
117
      # expected value: 20486256 (amd64/OS X):
118
      if_platform('x86_64-apple-darwin',
119 120
          compiler_stats_num_field('max_bytes_used', 20000000,
                                                     23000000)),
Simon Peyton Jones's avatar
Simon Peyton Jones committed
121 122 123 124 125
       only_ways(['normal'])
      ],
     compile,
     [''])

Ian Lynagh's avatar
Ian Lynagh committed
126
test('T3064',
127
     [# expect_broken( 3064 ),
128
      # expected value: 14 (x86/Linux 28-06-2012):
Ian Lynagh's avatar
Ian Lynagh committed
129
      if_wordsize(32,
130
          compiler_stats_range_field('peak_megabytes_allocated', 14, 30)),
Ian Lynagh's avatar
Ian Lynagh committed
131
      # expected value: 18 (amd64/Linux):
Ian Lynagh's avatar
Ian Lynagh committed
132
      if_wordsize(64,
133
          compiler_stats_num_field('peak_megabytes_allocated', 20, 28)),
134
      # expected value: 56380288 (x86/Linux) (28/6/2011)
Ian Lynagh's avatar
Ian Lynagh committed
135
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
136
          compiler_stats_range_field('bytes allocated', 124952112, 10)),
137
      # expected value: 73259544 (amd64/Linux) (28/6/2011):
Ian Lynagh's avatar
Ian Lynagh committed
138
      if_wordsize(64,
139 140
          compiler_stats_num_field('bytes allocated', 200000000,
                                                      280000000)),
141
      # expected value: 2247016 (x86/Linux) (28/6/2011):
Ian Lynagh's avatar
Ian Lynagh committed
142
      if_wordsize(32,
143
          compiler_stats_range_field('max_bytes_used', 5511604, 20)),
144
      # expected value: 4032024 (amd64/Linux, intree) (28/6/2011):
Ian Lynagh's avatar
Ian Lynagh committed
145
      if_wordsize(64,
146
          compiler_stats_num_field('max_bytes_used', 8000000,
147
                                                     14000000)),
Ian Lynagh's avatar
Ian Lynagh committed
148 149 150 151 152
       only_ways(['normal'])
      ],
     compile,
     [''])

Ian Lynagh's avatar
Ian Lynagh committed
153 154 155 156 157
test('T4007',
     normal,
     run_command,
     ['$MAKE -s --no-print-directory T4007'])

158
test('T5030',
159 160
     [expect_broken(5030),
      # expected value: 449368924 (x86/Linux)
161
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
162
          compiler_stats_range_field('bytes allocated', 196457520, 10)),
163
      # expected value: 346750856 (amd64/Linux):
164
      if_wordsize(64,
165 166
          compiler_stats_num_field('bytes allocated', 300000000,
                                                      400000000)),
167 168 169 170 171
       only_ways(['normal'])
      ],
     compile,
     ['-fcontext-stack=300'])

Simon Peyton Jones's avatar
Simon Peyton Jones committed
172
test('T5631',
Simon Marlow's avatar
Simon Marlow committed
173 174
     [if_wordsize(32, # sample from x86/Linux
          compiler_stats_range_field('bytes allocated', 392904228, 10)),
175
      # expected value: 774,595,008 (amd64/Linux):
Simon Peyton Jones's avatar
Simon Peyton Jones committed
176
      if_wordsize(64,
177 178
          compiler_stats_num_field('bytes allocated', 600000000,
                                                      900000000)),
Simon Peyton Jones's avatar
Simon Peyton Jones committed
179 180 181 182 183
       only_ways(['normal'])
      ],
     compile,
     [''])

184 185 186
test('parsing001',
     [# expected value: ?
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
187
          compiler_stats_range_field('bytes allocated', 274000576, 10)),
188 189 190
      # expected value: 587079016 (amd64/Linux):
      if_wordsize(64,
          compiler_stats_num_field('bytes allocated', 540000000,
191
                                                      620000000)),
192 193 194 195 196
       only_ways(['normal']),
      ],
     compile_fail, [''])


197 198 199 200 201 202
test('T783',
     [ only_ways(['normal']),  # no optimisation for this one
      # expected value: 175,569,928 (x86/Linux)
      if_wordsize(32,
          compiler_stats_num_field('bytes allocated', 125000000,
                                                      225000000)),
203
      # sample: 349263216 (amd64/Linux)
Simon Marlow's avatar
Simon Marlow committed
204
      # sample: 384479856 (amd64/Linux, 7/8/2012)
205
      if_wordsize(64,
Simon Marlow's avatar
Simon Marlow committed
206
          compiler_stats_range_field('bytes allocated', 384479856, 10))
207 208
      ],
      compile,[''])
209 210 211

test('T5321Fun',
     [ only_ways(['normal']),  # no optimisation for this one
Simon Marlow's avatar
Simon Marlow committed
212
      # sample from x86/Linux
213
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
214
          compiler_stats_range_field('bytes allocated', 296657384, 10)),
215
      if_wordsize(64,
216
          compiler_stats_range_field('bytes allocated', 585521080, 10))
217 218 219 220 221
      ],
      compile,[''])

test('T5321FD',
     [ only_ways(['normal']),  # no optimisation for this one
Simon Marlow's avatar
Simon Marlow committed
222
      # sample from x86/Linux
223
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
224
          compiler_stats_range_field('bytes allocated', 213380256, 10)),
225
      if_wordsize(64,
226
          compiler_stats_range_field('bytes allocated', 418306336, 10))
227 228
      ],
      compile,[''])
Ian Lynagh's avatar
Ian Lynagh committed
229 230 231

test('T5642',
     [ only_ways(['normal']),
Simon Marlow's avatar
Simon Marlow committed
232
      if_wordsize(32, # sample from x86/Linux
Simon Marlow's avatar
Simon Marlow committed
233
          compiler_stats_range_field('bytes allocated', 1682508520, 10)),
Ian Lynagh's avatar
Ian Lynagh committed
234
      if_wordsize(64,
235
          compiler_stats_range_field('bytes allocated', 3361296144, 10))
Ian Lynagh's avatar
Ian Lynagh committed
236 237
      ],
      compile,['-O'])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
238 239 240 241 242 243 244 245 246 247 248

test('T5837',
     [ only_ways(['normal']),
      if_wordsize(32, # sample from x86/Linux
          compiler_stats_range_field('bytes allocated', 40000000, 10)),

      # sample: 3926235424 (amd64/Linux, 15/2/2012)
      if_wordsize(64,
          compiler_stats_range_field('bytes allocated', 79110184, 10))
      ],
      compile_fail,['-fcontext-stack=50'])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
249 250 251 252 253 254 255

test('T6048',
     [ only_ways(['optasm']),
      if_wordsize(32, # sample from x86/Linux
          compiler_stats_range_field('bytes allocated', 38000000, 10)),

      if_wordsize(64,
256
          compiler_stats_range_field('bytes allocated', 67328320, 10))
Simon Peyton Jones's avatar
Simon Peyton Jones committed
257 258
      ],
      compile,[''])