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
|
# Test for #1227, #1418
extra_prof_ways = ['prof', 'prof_hc_hb', 'prof_hb', 'prof_hd', 'prof_hy', 'prof_hr']
test('heapprof001',
composes([only_ways(prof_ways),
extra_ways(extra_prof_ways),
req_profiling,
extra_run_opts('7')]),
compile_and_run, [''])
test('T2592',
[only_ways(['profasm']), req_profiling,
extra_run_opts('+RTS -M1m -RTS'), exit_code(251)],
compile_and_run, [''])
test('T3001',
[only_ways(['prof_hb']), extra_ways(['prof_hb']), req_profiling],
compile_and_run, [''])
test('T3001-2',
[only_ways(['prof_hb']), extra_ways(['prof_hb']), req_profiling],
compile_and_run, ['-package bytestring'])
test('scc001', [req_profiling,
extra_ways(['prof']), only_ways(prof_ways)],
compile_and_run,
['-fno-state-hack']) # Note [consistent stacks]
test('scc002', [req_profiling,
extra_ways(['prof']), only_ways(prof_ways)],
compile_and_run,
[''])
test('scc003', [req_profiling,
extra_ways(['prof']), only_ways(prof_ways)],
compile_and_run,
['-fno-state-hack']) # Note [consistent stacks]
test('scc004', [req_profiling,
extra_ways(['prof']), only_ways(prof_ways),
expect_broken(5654)],
compile_and_run,
[''])
test('T5314',
[ only_ways(prof_ways),
extra_ways(extra_prof_ways),
req_profiling ],
compile_and_run,
[''])
test('T680',
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
compile_and_run,
['-fno-full-laziness']) # Note [consistent stacks]
test('T2552',
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
compile_and_run,
[''])
test('T949',
[ req_profiling, extra_ways(extra_prof_ways), only_ways(prof_ways) ],
compile_and_run,
[''])
test('ioprof',
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways),
expect_fail_for(['prof']),
# The results for 'prof' are fine, but the ordering changes.
# We care more about getting the optimised results right, so ignoring
# this for now.
exit_code(1) ],
compile_and_run,
['-fno-full-laziness -fno-state-hack']) # Note [consistent stacks]
# These two examples are from the User's Guide:
test('prof-doc-fib',
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
compile_and_run,
[''])
test('prof-doc-last',
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
compile_and_run,
['-fno-full-laziness'])
test('T5559', # unicode in cost centre names
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
compile_and_run,
[''])
# Note [consistent stacks]
# Certain optimisations can change the stacks we get out of the
# profiler. These flags are necessary (but perhaps not sufficient)
# to get consistent stacks:
#
# -fno-state-hack
# -fno-full-laziness
test('callstack001',
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
compile_and_run, ['-fprof-auto-calls -fno-full-laziness -fno-state-hack'])
test('callstack002',
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
compile_and_run, ['-fprof-auto-calls -fno-full-laziness -fno-state-hack'])
# Should not stack overflow with -prof -auto-all
test('T5363',
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
compile_and_run, [''])
test('profinline001',
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
compile_and_run, [''])
|
