all.T 12.7 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,
ian@well-typed.com's avatar
ian@well-typed.com committed
16
          compiler_stats_num_field('peak_megabytes_allocated', 22,
17
                                                               28)),
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)
ian@well-typed.com's avatar
ian@well-typed.com committed
20
                                             # 2012-09-20      23 (amd64/Linux)
21
                                             # 2012-10-03      25 (amd64/Linux if .hi exists)
Simon Marlow's avatar
Simon Marlow committed
22
      if_wordsize(32,
23
          compiler_stats_num_field('max_bytes_used', 4000000,
Simon Marlow's avatar
Simon Marlow committed
24
                                                     7000000)),
25
                             # expected value: 6707308 (x86/OS X)
26
                             #                 5717704 (x86/Windows 17/05/10)
27
                             #                 6149572 (x86/Linux, 31/12/09)
Simon Marlow's avatar
Simon Marlow committed
28
      if_wordsize(64,
29
          compiler_stats_range_field('max_bytes_used', 9000000, 20)),
Simon Marlow's avatar
Simon Marlow committed
30 31
                                  # looks like the peak is around 10M, but we're
                                  # unlikely to GC exactly on the peak.
32
                                  # varies quite a lot with CLEANUP and BINDIST,
Simon Marlow's avatar
Simon Marlow committed
33
                                  # hence 10% range.
Simon Marlow's avatar
Simon Marlow committed
34
      if_wordsize(32,
35 36 37 38 39
          compiler_stats_range_field('bytes allocated', 303930948, 1)),
                        # expected value: 215582916 (x86/Windows)
                        #                 221667908 (x86/OS X)
                        #                 274932264 (x86/Linux)
                        # 2012-10-08:     303930948 (x86/Linux, new codegen)
Simon Marlow's avatar
Simon Marlow committed
40
      if_wordsize(64,
Simon Marlow's avatar
Simon Marlow committed
41
          compiler_stats_range_field('bytes allocated', 661832592, 1)),
Simon Marlow's avatar
Simon Marlow committed
42 43
                                    # 17/11/2009:     434,845,560 (amd64/Linux)
                                    # 08/12/2009:     459,776,680 (amd64/Linux)
44
                                    # 17/05/2010:     519,377,728 (amd64/Linux)
45
                                    # 05/08/2011:     561,382,568 (amd64/OS X)
46
                                    # 16/07/2012:     589,168,872 (amd64/Linux)
Ian Lynagh's avatar
Ian Lynagh committed
47
                                    # 20/07/2012:     595,936,240 (amd64/Linux)
Simon Marlow's avatar
Simon Marlow committed
48
                                    # 23/08/2012:     606,230,880 (amd64/Linux)
49
                                    # 29/08/2012:     633,334,184 (amd64/Linux)
ian@well-typed.com's avatar
ian@well-typed.com committed
50 51
                                    #                 (^ new codegen)
                                    # 18/09/2012:     641,959,976 (amd64/Linux)
Simon Marlow's avatar
Simon Marlow committed
52
                                    # 19/10/2012:     661,832,592 (amd64/Linux)
53
      only_ways(['normal']),
54
      extra_hc_opts('-dcore-lint -static')
55 56
          # 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
57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
      ],
     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,
75
          compiler_stats_num_field('max_bytes_used', 12000000,
Simon Marlow's avatar
Simon Marlow committed
76
                                                     20000000)),
Ian Lynagh's avatar
Ian Lynagh committed
77
                                   # expected value: 17725476 (x86/OS X)
78
				   #                 14593500 (Windows)
Simon Marlow's avatar
Simon Marlow committed
79
      if_wordsize(64,
80 81 82 83
          compiler_stats_range_field('max_bytes_used', 37724352, 15)),
                                   # prev:           25753192 (amd64/Linux)
                                   # 29/08/2012:     37724352 (amd64/Linux)
                                   #  (increase due to new codegen, see #7198)
Simon Marlow's avatar
Simon Marlow committed
84
      if_wordsize(32,
85 86 87 88
          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)
Simon Marlow's avatar
Simon Marlow committed
89
      if_wordsize(64,
ian@well-typed.com's avatar
ian@well-typed.com committed
90
          compiler_stats_range_field('bytes allocated', 2717327208, 5)),
91 92
                                   # 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
93 94
                                   # (^ increase due to new codegen, see #7198)
                                   # 18/09/2012: 2,717,327,208 (amd64/Linux)
Simon Marlow's avatar
Simon Marlow committed
95 96 97 98
      conf_3294
      ],
     compile,
     [''])
Ian Lynagh's avatar
Ian Lynagh committed
99

Simon Peyton Jones's avatar
Simon Peyton Jones committed
100
test('T4801',
101 102
     [ # expect_broken(5224),
       # temporarily unbroken (#5227)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
103
      if_wordsize(32,
104
          compiler_stats_range_field('peak_megabytes_allocated', 30, 20)),
Simon Marlow's avatar
Simon Marlow committed
105 106 107 108 109 110

      if_wordsize(64,
          compiler_stats_range_field('peak_megabytes_allocated', 64, 20)),
                   # prev:       50 (amd64/Linux)
                   # 19/10/2012: 64 (amd64/Linux) (REASON UNKNOWN!)

111
      # expected value: 58 (amd64/OS X):
112
      if_platform('x86_64-apple-darwin',
113
          compiler_stats_num_field('peak_megabytes_allocated', 56, 60)),
Ian Lynagh's avatar
Ian Lynagh committed
114
      # expected value: 228286660 (x86/OS X)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
115
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
116
          compiler_stats_range_field('bytes allocated', 185669232, 10)),
Simon Marlow's avatar
Simon Marlow committed
117 118 119 120 121 122

      if_wordsize(64,
          compiler_stats_range_field('bytes allocated', 447190832, 10)),
                   # prev:       360243576 (amd64/Linux)
                   # 19/10/2012: 447190832 (amd64/Linux) (REASON UNKNOWN!)

123 124 125 126
      # expected value: 510938976 (amd64/OS X):
      if_platform('x86_64-apple-darwin',
          compiler_stats_num_field('bytes allocated', 490000000,
                                                      530000000)),
Simon Marlow's avatar
Simon Marlow committed
127

Simon Peyton Jones's avatar
Simon Peyton Jones committed
128
      if_wordsize(32,
129
      #                    expected value: x86/OS X:  9651948
130
          compiler_stats_num_field('max_bytes_used',  8000000,
Simon Marlow's avatar
Simon Marlow committed
131
                                                     12000000)),
132
      # expected value: 10290952 (windows)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
133
      if_wordsize(64,
Simon Marlow's avatar
Simon Marlow committed
134
          compiler_stats_range_field('max_bytes_used', 26882576, 15)),
135 136
                # prev:       20486256 (amd64/OS X)
                # 30/08/2012: 17305600--20391920 (varies a lot)
Simon Marlow's avatar
Simon Marlow committed
137
                # 19/10/2012: 26882576 (REASON UNKNOWN!)
138
      if_platform('x86_64-apple-darwin',
139 140
          compiler_stats_num_field('max_bytes_used', 20000000,
                                                     23000000)),
141 142
       only_ways(['normal']),
       extra_hc_opts('-static')
Simon Peyton Jones's avatar
Simon Peyton Jones committed
143 144 145 146
      ],
     compile,
     [''])

Ian Lynagh's avatar
Ian Lynagh committed
147
test('T3064',
148
     [# expect_broken( 3064 ),
149
      # expected value: 14 (x86/Linux 28-06-2012):
Ian Lynagh's avatar
Ian Lynagh committed
150
      if_wordsize(32,
151
          compiler_stats_range_field('peak_megabytes_allocated', 14, 30)),
Ian Lynagh's avatar
Ian Lynagh committed
152
      # expected value: 18 (amd64/Linux):
Ian Lynagh's avatar
Ian Lynagh committed
153
      if_wordsize(64,
154
          compiler_stats_num_field('peak_megabytes_allocated', 20, 28)),
155
      # expected value: 56380288 (x86/Linux) (28/6/2011)
Ian Lynagh's avatar
Ian Lynagh committed
156
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
157
          compiler_stats_range_field('bytes allocated', 124952112, 10)),
158
      # expected value: 73259544 (amd64/Linux) (28/6/2011):
Ian Lynagh's avatar
Ian Lynagh committed
159
      if_wordsize(64,
160 161
          compiler_stats_num_field('bytes allocated', 200000000,
                                                      280000000)),
162
      # expected value: 2247016 (x86/Linux) (28/6/2011):
Ian Lynagh's avatar
Ian Lynagh committed
163
      if_wordsize(32,
164
          compiler_stats_range_field('max_bytes_used', 5511604, 20)),
165
      # expected value: 4032024 (amd64/Linux, intree) (28/6/2011):
Ian Lynagh's avatar
Ian Lynagh committed
166
      if_wordsize(64,
167
          compiler_stats_num_field('max_bytes_used', 8000000,
168
                                                     14000000)),
Ian Lynagh's avatar
Ian Lynagh committed
169 170 171 172 173
       only_ways(['normal'])
      ],
     compile,
     [''])

Ian Lynagh's avatar
Ian Lynagh committed
174 175 176 177 178
test('T4007',
     normal,
     run_command,
     ['$MAKE -s --no-print-directory T4007'])

179
test('T5030',
180
     [
181
      if_wordsize(32,
182 183 184
          compiler_stats_range_field('bytes allocated', 259547660, 10)),
                     # previous:    196457520
                     # 2012-10-08:  259547660 (x86/Linux, new codegen)
185
      # expected value: 346750856 (amd64/Linux):
186
      if_wordsize(64,
Simon Peyton Jones's avatar
Simon Peyton Jones committed
187
          compiler_stats_range_field('bytes allocated', 530000000, 10)),
188 189 190 191 192
       only_ways(['normal'])
      ],
     compile,
     ['-fcontext-stack=300'])

Simon Peyton Jones's avatar
Simon Peyton Jones committed
193
test('T5631',
Simon Marlow's avatar
Simon Marlow committed
194 195
     [if_wordsize(32, # sample from x86/Linux
          compiler_stats_range_field('bytes allocated', 392904228, 10)),
196
      # expected value: 774,595,008 (amd64/Linux):
Simon Peyton Jones's avatar
Simon Peyton Jones committed
197
      if_wordsize(64,
198 199
          compiler_stats_num_field('bytes allocated', 600000000,
                                                      900000000)),
Simon Peyton Jones's avatar
Simon Peyton Jones committed
200 201 202 203 204
       only_ways(['normal'])
      ],
     compile,
     [''])

205 206 207
test('parsing001',
     [# expected value: ?
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
208
          compiler_stats_range_field('bytes allocated', 274000576, 10)),
209 210 211
      # expected value: 587079016 (amd64/Linux):
      if_wordsize(64,
          compiler_stats_num_field('bytes allocated', 540000000,
212
                                                      620000000)),
213 214 215 216 217
       only_ways(['normal']),
      ],
     compile_fail, [''])


218 219 220 221
test('T783',
     [ only_ways(['normal']),  # no optimisation for this one
      # expected value: 175,569,928 (x86/Linux)
      if_wordsize(32,
222 223
          compiler_stats_range_field('bytes allocated', 226907420, 10)),
                           # 2012-10-08: 226907420 (x86/Linux)
224
      if_wordsize(64,
225
          compiler_stats_range_field('bytes allocated', 436927840, 10)),
226 227 228
                           # prev:       349,263,216 (amd64/Linux)
                           # 07/08/2012: 384,479,856 (amd64/Linux)
                           # 29/08/2012: 436,927,840 (amd64/Linux)
229
      extra_hc_opts('-static')
230 231
      ],
      compile,[''])
232 233 234

test('T5321Fun',
     [ only_ways(['normal']),  # no optimisation for this one
Simon Marlow's avatar
Simon Marlow committed
235
      # sample from x86/Linux
236
      if_wordsize(32,
237 238 239 240
          compiler_stats_range_field('bytes allocated', 344416344, 10)),
                                         # prev:       300000000
                                         # 2012-10-08: 344416344
                                         #  (increase due to new codegen)
241
      if_wordsize(64,
242 243 244 245
          compiler_stats_range_field('bytes allocated', 713385808, 10))
                                         # prev:       585,521,080
                                         # 29/08/2012: 713,385,808
                                         #  (increase due to new codegen)
246 247 248 249 250 251
      ],
      compile,[''])

test('T5321FD',
     [ only_ways(['normal']),  # no optimisation for this one
      if_wordsize(32,
252 253 254 255
          compiler_stats_range_field('bytes allocated', 240302920, 10)),
                                         # prev:       213380256
                                         # 2012-10-08: 240302920 (x86/Linux)
                                         #  (increase due to new codegen)
256
      if_wordsize(64,
257 258 259 260
          compiler_stats_range_field('bytes allocated', 492905640, 10))
                                         # prev:       418,306,336
                                         # 29/08/2012: 492,905,640
                                         #  (increase due to new codegen)
261 262
      ],
      compile,[''])
Ian Lynagh's avatar
Ian Lynagh committed
263 264 265

test('T5642',
     [ only_ways(['normal']),
Simon Marlow's avatar
Simon Marlow committed
266
      if_wordsize(32, # sample from x86/Linux
Simon Peyton Jones's avatar
Simon Peyton Jones committed
267
          compiler_stats_range_field('bytes allocated',  650000000, 10)),
Ian Lynagh's avatar
Ian Lynagh committed
268
      if_wordsize(64,
Simon Peyton Jones's avatar
Simon Peyton Jones committed
269
          compiler_stats_range_field('bytes allocated', 1300000000, 10))
Ian Lynagh's avatar
Ian Lynagh committed
270 271
      ],
      compile,['-O'])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
272 273 274 275 276 277 278 279

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,
Simon Peyton Jones's avatar
Simon Peyton Jones committed
280 281
          compiler_stats_range_field('bytes allocated', 81879216, 10))
	  				   # 2012-10-02 81879216
ian@well-typed.com's avatar
ian@well-typed.com committed
282
                                           # 2012-09-20 87254264 amd64/Linux
Simon Peyton Jones's avatar
Simon Peyton Jones committed
283 284
      ],
      compile_fail,['-fcontext-stack=50'])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
285 286 287 288

test('T6048',
     [ only_ways(['optasm']),
      if_wordsize(32, # sample from x86/Linux
289 290 291
          compiler_stats_range_field('bytes allocated', 48887164, 10)),
                                           # prev:       38000000
                                           # 2012-10-08: 48887164 (x86/Linux)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
292
      if_wordsize(64,
ian@well-typed.com's avatar
ian@well-typed.com committed
293 294
          compiler_stats_range_field('bytes allocated', 97247032, 10))
                                           # 18/09/2012 97247032 amd64/Linux
Simon Peyton Jones's avatar
Simon Peyton Jones committed
295 296
      ],
      compile,[''])