all.T 13.7 KB
Newer Older
1
def no_lint(name, 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
test('T1969',
9
     [when(wordsize(32),
ian@well-typed.com's avatar
ian@well-typed.com committed
10
          compiler_stats_range_field('peak_megabytes_allocated', 18, 1)),
11 12 13
                             # expected value: 14 (x86/Windows 17/05/10)
                             #                 15 (x86/OS X)
                             #                 19 (x86/OS X)
14
      when(wordsize(64),
ian@well-typed.com's avatar
ian@well-typed.com committed
15
          compiler_stats_range_field('peak_megabytes_allocated', 25, 1)),
Simon Marlow's avatar
Simon Marlow committed
16
                                             # expected value: 28 (amd64/Linux)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
17
                                             # expected value: 34 (amd64/Linux)
ian@well-typed.com's avatar
ian@well-typed.com committed
18
                                             # 2012-09-20      23 (amd64/Linux)
19
                                             # 2012-10-03      25 (amd64/Linux if .hi exists)
20
      when(wordsize(32),
ian@well-typed.com's avatar
ian@well-typed.com committed
21
          compiler_stats_range_field('max_bytes_used', 6149572, 5)),
22
                             # expected value: 6707308 (x86/OS X)
23
                             #                 5717704 (x86/Windows 17/05/10)
24
                             #                 6149572 (x86/Linux, 31/12/09)
25
      when(wordsize(64),
26
          compiler_stats_range_field('max_bytes_used', 9000000, 20)),
Simon Marlow's avatar
Simon Marlow committed
27 28
                                  # looks like the peak is around 10M, but we're
                                  # unlikely to GC exactly on the peak.
29
                                  # varies quite a lot with CLEANUP and BINDIST,
Simon Marlow's avatar
Simon Marlow committed
30
                                  # hence 10% range.
31
      when(wordsize(32),
32
          compiler_stats_range_field('bytes allocated', 303930948, 5)),
33 34 35 36
                        # expected value: 215582916 (x86/Windows)
                        #                 221667908 (x86/OS X)
                        #                 274932264 (x86/Linux)
                        # 2012-10-08:     303930948 (x86/Linux, new codegen)
37
                        # 2012-10-29:     298921816 (x86/Windows; increased range to 5%
38
      when(wordsize(64),
39
          compiler_stats_range_field('bytes allocated', 658786936, 5)),
Simon Marlow's avatar
Simon Marlow committed
40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
                        # 17/11/2009:     434,845,560 (amd64/Linux)
                        # 08/12/2009:     459,776,680 (amd64/Linux)
                        # 17/05/2010:     519,377,728 (amd64/Linux)
                        # 05/08/2011:     561,382,568 (amd64/OS X)
                        # 16/07/2012:     589,168,872 (amd64/Linux)
                        # 20/07/2012:     595,936,240 (amd64/Linux)
                        # 23/08/2012:     606,230,880 (amd64/Linux)
                        # 29/08/2012:     633,334,184 (amd64/Linux)
                        #                 (^ new codegen)
                        # 18/09/2012:     641,959,976 (amd64/Linux)
                        # 19/10/2012:     661,832,592 (amd64/Linux)
                        #                 (^ -fPIC turned on)
                        # 23/10/2012:     642,594,312 (amd64/Linux)
                        #                 (^ -fPIC turned off again)
                        # 12/11/2012:     658,786,936 (amd64/Linux)
                        #                 ( UNKNOWN REASON )
56 57
                        # 17/1/13:        667,160,192 (x86_64/Linux)
                        #                 (new demand analyser)
58
      only_ways(['normal']),
59

60
      extra_hc_opts('-dcore-lint -static')
61 62
          # 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
63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
      ],
     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',
80
     [when(wordsize(32),
ian@well-typed.com's avatar
ian@well-typed.com committed
81
          compiler_stats_range_field('max_bytes_used', 17725476, 5)),
Ian Lynagh's avatar
Ian Lynagh committed
82
                                   # expected value: 17725476 (x86/OS X)
ian@well-typed.com's avatar
ian@well-typed.com committed
83
                                   #                 14593500 (Windows)
84
      when(wordsize(64),
ian@well-typed.com's avatar
ian@well-typed.com committed
85
          compiler_stats_range_field('max_bytes_used', 44894544, 15)),
86 87 88
                                   # prev:           25753192 (amd64/Linux)
                                   # 29/08/2012:     37724352 (amd64/Linux)
                                   #  (increase due to new codegen, see #7198)
ian@well-typed.com's avatar
ian@well-typed.com committed
89 90
                                   # 13/13/2012:     44894544 (amd64/Linux)
                                   #  (reason for increase unknown)
91
      when(wordsize(32),
92 93 94 95
          compiler_stats_range_field('bytes allocated', 1373514844, 5)),
                                   # previous:     815479800  (x86/Linux)
                                   # (^ increase due to new codegen, see #7198)
                                   # 2012-10-08:   1373514844 (x86/Linux)
96
      when(wordsize(64),
ian@well-typed.com's avatar
ian@well-typed.com committed
97
          compiler_stats_range_field('bytes allocated', 2717327208, 5)),
98 99
                                   # old:        1,357,587,088 (amd64/Linux)
                                   # 29/08/2012: 2,961,778,696 (amd64/Linux)
ian@well-typed.com's avatar
ian@well-typed.com committed
100 101
                                   # (^ increase due to new codegen, see #7198)
                                   # 18/09/2012: 2,717,327,208 (amd64/Linux)
Simon Marlow's avatar
Simon Marlow committed
102 103 104 105
      conf_3294
      ],
     compile,
     [''])
Ian Lynagh's avatar
Ian Lynagh committed
106

Simon Peyton Jones's avatar
Simon Peyton Jones committed
107
test('T4801',
108 109
     [ # expect_broken(5224),
       # temporarily unbroken (#5227)
110
      when(wordsize(32),
111
          compiler_stats_range_field('peak_megabytes_allocated', 30, 20)),
Simon Marlow's avatar
Simon Marlow committed
112

113
      when(wordsize(64),
Simon Marlow's avatar
Simon Marlow committed
114
          compiler_stats_range_field('peak_megabytes_allocated', 49, 20)),
Simon Marlow's avatar
Simon Marlow committed
115 116
                   # prev:       50 (amd64/Linux)
                   # 19/10/2012: 64 (amd64/Linux) (REASON UNKNOWN!)
Simon Marlow's avatar
Simon Marlow committed
117
                   # 12/11/2012: 49 (amd64/Linux) (REASON UNKNOWN!)
Simon Marlow's avatar
Simon Marlow committed
118

119
      # expected value: 58 (amd64/OS X):
120
      when(platform('x86_64-apple-darwin'),
ian@well-typed.com's avatar
ian@well-typed.com committed
121
          compiler_stats_range_field('peak_megabytes_allocated', 58, 1)),
Ian Lynagh's avatar
Ian Lynagh committed
122
      # expected value: 228286660 (x86/OS X)
123
      when(wordsize(32),
Simon Marlow's avatar
Simon Marlow committed
124
          compiler_stats_range_field('bytes allocated', 185669232, 10)),
Simon Marlow's avatar
Simon Marlow committed
125

126
      when(wordsize(64),
127
          compiler_stats_range_field('bytes allocated', 392409984, 10)),
Simon Marlow's avatar
Simon Marlow committed
128
                   # prev:       360243576 (amd64/Linux)
129 130
                   # 19/10/2012: 447190832 (amd64/Linux) (-fPIC turned on)
                   # 19/10/2012: 392409984 (amd64/Linux) (-fPIC turned off)
Simon Marlow's avatar
Simon Marlow committed
131

132
      # expected value: 510938976 (amd64/OS X):
133
      when(platform('x86_64-apple-darwin'),
ian@well-typed.com's avatar
ian@well-typed.com committed
134
          compiler_stats_range_field('bytes allocated', 510938976, 5)),
Simon Marlow's avatar
Simon Marlow committed
135

136
      when(wordsize(32),
ian@well-typed.com's avatar
ian@well-typed.com committed
137
          compiler_stats_range_field('max_bytes_used', 9651948, 5)),
138
      #                    expected value: x86/OS X:  9651948
ian@well-typed.com's avatar
ian@well-typed.com committed
139
      #                    expected value:           10290952 (windows)
140
      when(wordsize(64),
141
          compiler_stats_range_field('max_bytes_used', 21657520, 15)),
142 143
                # prev:       20486256 (amd64/OS X)
                # 30/08/2012: 17305600--20391920 (varies a lot)
144 145
                # 19/10/2012: 26882576 (-fPIC turned on)
                # 19/10/2012: 18619912 (-fPIC turned off)
146
                # 24/12/2012: 21657520 (perhaps gc sampling time wibbles?)
147
      when(platform('x86_64-apple-darwin'),
ian@well-typed.com's avatar
ian@well-typed.com committed
148
          compiler_stats_range_field('max_bytes_used', 21657520, 5)),
149 150
       only_ways(['normal']),
       extra_hc_opts('-static')
Simon Peyton Jones's avatar
Simon Peyton Jones committed
151 152 153 154
      ],
     compile,
     [''])

Ian Lynagh's avatar
Ian Lynagh committed
155
test('T3064',
156
     [# expect_broken( 3064 ),
157
      # expected value: 14 (x86/Linux 28-06-2012):
158
      when(wordsize(32),
ian@well-typed.com's avatar
ian@well-typed.com committed
159
          compiler_stats_range_field('peak_megabytes_allocated', 14, 1)),
160

161
      when(wordsize(64),
162 163 164
          compiler_stats_range_field('peak_megabytes_allocated', 26, 1)),
                                     # (amd64/Linux):            18
                                     # (amd64/Linux) 2012-02-07: 26
165

166
      # expected value: 56380288 (x86/Linux) (28/6/2011)
167
      #                 111189536 (x86/Windows) (30/10/12)
168
      when(wordsize(32),
169 170 171
          compiler_stats_range_field('bytes allocated', 111189536, 10)),


172
      when(wordsize(64),
173 174 175
          compiler_stats_range_field('bytes allocated', 224798696, 5)),
                          # (amd64/Linux) (28/06/2011):  73259544
                          # (amd64/Linux) (07/02/2013): 224798696
176

177
      # expected value: 2247016 (x86/Linux) (28/6/2011):
178
      when(wordsize(32),
179
          compiler_stats_range_field('max_bytes_used', 5511604, 20)),
180

181
      when(wordsize(64),
182 183 184
          compiler_stats_range_field('max_bytes_used',  9819288, 5)),
                 # (amd64/Linux, intree) (28/06/2011):  4032024
                 # (amd64/Linux, intree) (07/02/2013):  9819288
Ian Lynagh's avatar
Ian Lynagh committed
185 186 187 188 189
       only_ways(['normal'])
      ],
     compile,
     [''])

Ian Lynagh's avatar
Ian Lynagh committed
190 191 192 193 194
test('T4007',
     normal,
     run_command,
     ['$MAKE -s --no-print-directory T4007'])

195
test('T5030',
196
     [
197
      when(wordsize(32),
198 199 200
          compiler_stats_range_field('bytes allocated', 259547660, 10)),
                     # previous:    196457520
                     # 2012-10-08:  259547660 (x86/Linux, new codegen)
201

202
      when(wordsize(64),
203 204 205 206 207
          compiler_stats_range_field('bytes allocated', 602993184, 10)),
            # Previously 530000000 (+/- 10%)
            # 17/1/13:       602,993,184  (x86_64/Linux)
            #                (new demand analyser)
   
208 209 210 211 212
       only_ways(['normal'])
      ],
     compile,
     ['-fcontext-stack=300'])

Simon Peyton Jones's avatar
Simon Peyton Jones committed
213
test('T5631',
214
     [when(wordsize(32), # sample from x86/Linux
Simon Marlow's avatar
Simon Marlow committed
215
          compiler_stats_range_field('bytes allocated', 392904228, 10)),
216
      # expected value: 774,595,008 (amd64/Linux):
217
      when(wordsize(64),
ian@well-typed.com's avatar
ian@well-typed.com committed
218
          compiler_stats_range_field('bytes allocated', 774595008, 5)),
Simon Peyton Jones's avatar
Simon Peyton Jones committed
219 220 221 222 223
       only_ways(['normal'])
      ],
     compile,
     [''])

224 225
test('parsing001',
     [# expected value: ?
226
      when(wordsize(32),
Simon Marlow's avatar
Simon Marlow committed
227
          compiler_stats_range_field('bytes allocated', 274000576, 10)),
228
      # expected value: 587079016 (amd64/Linux):
229
      when(wordsize(64),
ian@well-typed.com's avatar
ian@well-typed.com committed
230
          compiler_stats_range_field('bytes allocated', 587079016, 5)),
231 232 233 234 235
       only_ways(['normal']),
      ],
     compile_fail, [''])


236 237 238
test('T783',
     [ only_ways(['normal']),  # no optimisation for this one
      # expected value: 175,569,928 (x86/Linux)
239
      when(wordsize(32),
240 241
          compiler_stats_range_field('bytes allocated', 226907420, 10)),
                           # 2012-10-08: 226907420 (x86/Linux)
242
      when(wordsize(64),
Simon Marlow's avatar
Simon Marlow committed
243
          compiler_stats_range_field('bytes allocated', 640324528, 10)),
244 245 246
                           # prev:       349,263,216 (amd64/Linux)
                           # 07/08/2012: 384,479,856 (amd64/Linux)
                           # 29/08/2012: 436,927,840 (amd64/Linux)
Simon Marlow's avatar
Simon Marlow committed
247 248 249
                           # 12/11/2012: 640,324,528 (amd64/Linux)
                           #   (OldCmm removed: not sure why this got worse, the
                           #    other perf tests remained about the same)
250
      extra_hc_opts('-static')
251 252
      ],
      compile,[''])
253 254 255

test('T5321Fun',
     [ only_ways(['normal']),  # no optimisation for this one
Simon Marlow's avatar
Simon Marlow committed
256
      # sample from x86/Linux
257
      when(wordsize(32),
258 259 260 261
          compiler_stats_range_field('bytes allocated', 344416344, 10)),
                                         # prev:       300000000
                                         # 2012-10-08: 344416344
                                         #  (increase due to new codegen)
262
      when(wordsize(64),
263 264 265 266
          compiler_stats_range_field('bytes allocated', 713385808, 10))
                                         # prev:       585,521,080
                                         # 29/08/2012: 713,385,808
                                         #  (increase due to new codegen)
267 268 269 270 271
      ],
      compile,[''])

test('T5321FD',
     [ only_ways(['normal']),  # no optimisation for this one
272
      when(wordsize(32),
273 274 275 276
          compiler_stats_range_field('bytes allocated', 240302920, 10)),
                                         # prev:       213380256
                                         # 2012-10-08: 240302920 (x86/Linux)
                                         #  (increase due to new codegen)
277
      when(wordsize(64),
278 279 280 281
          compiler_stats_range_field('bytes allocated', 492905640, 10))
                                         # prev:       418,306,336
                                         # 29/08/2012: 492,905,640
                                         #  (increase due to new codegen)
282 283
      ],
      compile,[''])
Ian Lynagh's avatar
Ian Lynagh committed
284 285 286

test('T5642',
     [ only_ways(['normal']),
287
      when(wordsize(32), # sample from x86/Linux
Simon Peyton Jones's avatar
Simon Peyton Jones committed
288
          compiler_stats_range_field('bytes allocated',  650000000, 10)),
289
      when(wordsize(64),
Simon Peyton Jones's avatar
Simon Peyton Jones committed
290
          compiler_stats_range_field('bytes allocated', 1300000000, 10))
Ian Lynagh's avatar
Ian Lynagh committed
291 292
      ],
      compile,['-O'])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
293 294 295

test('T5837',
     [ only_ways(['normal']),
296
      when(wordsize(32), # sample from x86/Linux
Simon Peyton Jones's avatar
Simon Peyton Jones committed
297 298 299
          compiler_stats_range_field('bytes allocated', 40000000, 10)),

      # sample: 3926235424 (amd64/Linux, 15/2/2012)
300
      when(wordsize(64),
Simon Peyton Jones's avatar
Simon Peyton Jones committed
301 302
          compiler_stats_range_field('bytes allocated', 81879216, 10))
	  				   # 2012-10-02 81879216
ian@well-typed.com's avatar
ian@well-typed.com committed
303
                                           # 2012-09-20 87254264 amd64/Linux
Simon Peyton Jones's avatar
Simon Peyton Jones committed
304 305
      ],
      compile_fail,['-fcontext-stack=50'])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
306 307 308

test('T6048',
     [ only_ways(['optasm']),
309
      when(wordsize(32), # sample from x86/Linux
310 311 312
          compiler_stats_range_field('bytes allocated', 48887164, 10)),
                                           # prev:       38000000
                                           # 2012-10-08: 48887164 (x86/Linux)
313
      when(wordsize(64),
ian@well-typed.com's avatar
ian@well-typed.com committed
314 315
          compiler_stats_range_field('bytes allocated', 97247032, 10))
                                           # 18/09/2012 97247032 amd64/Linux
Simon Peyton Jones's avatar
Simon Peyton Jones committed
316 317
      ],
      compile,[''])