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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
# -*-: mode: python -*-
test('unsigned_reloc_macho_x64',
[
extra_files(['runner.c', 'unsigned_reloc_macho_x64.s']),
unless(opsys('darwin'), skip),
unless(arch('x86_64'), skip)
],
makefile_test, [])
######################################
test('section_alignment',
[
extra_files(['runner.c', 'section_alignment.c']),
unless(opsys('darwin'), expect_broken(13624))
],
makefile_test, [])
######################################
# Test to see if linker scripts link properly to real ELF files
test('T2615',
[extra_files(['libfoo_T2615.c', 'libfoo_script_T2615.so']),
js_broken(22374),
when(opsys('mingw32'), skip),
# OS X doesn't seem to support linker scripts
when(opsys('darwin'), skip),
# Solaris' linker does not support GNUish linker scripts
when(opsys('solaris2'), skip),
# OpenBSD linker does not support GNUish linker scripts
when(opsys('openbsd'), expect_broken(20869)),
pre_cmd('$MAKE -s --no-print-directory T2615-prep'),
# Add current directory to dlopen search path
cmd_prefix('LD_LIBRARY_PATH=$LD_LIBRARY_PATH:. ')],
compile_and_run,
['-package ghc'])
######################################
# Workaround bug #8458: old dlopen opens sections in the wrong order,
# so we just accept both orders.
def checkDynAsm(actual_file, normaliser):
actual_raw = read_no_crs(actual_file)
actual_str = normaliser(actual_raw)
actual = actual_str.split()
if actual == ['initArray1', 'initArray2', 'success']:
return True
elif opsys('darwin') and actual == ['modInitFunc1', 'modInitFunc2', 'success']:
return True
elif opsys('mingw32') and actual == ['ctors1', 'ctors2', 'success']:
return True
else:
if_verbose(1, 'T5435_dyn_asm failed with %s, see all.T for details' % actual)
return False
# T5435_v_asm got split into two tests because depending
# on the linker, .init_array and .ctors sections are loaded
# in a different order (but all entries within a section
# do get loaded in a deterministic order). So we test each
# separately now.
test('T5435_v_asm_a',
[extra_files(['T5435.hs', 'T5435_asm.c']),
req_rts_linker,
fragile(22970),
when(arch('arm'), expect_broken(17559)),
when(opsys('linux') and not ghc_dynamic(), expect_broken(20706))],
makefile_test, ['T5435_v_asm_a'])
# this one just needs to run on linux, as darwin/mingw32 are covered
# by the _a test already.
test('T5435_v_asm_b',
[extra_files(['T5435.hs', 'T5435_asm.c']),
req_rts_linker,
fragile(22970),
when(arch('arm'), expect_broken(17559)),
when(opsys('darwin') or opsys('mingw32'), skip),
when(opsys('linux') and not ghc_dynamic(), expect_broken(20706))],
makefile_test, ['T5435_v_asm_b'])
test('T5435_v_gcc',
[extra_files(['T5435.hs', 'T5435_gcc.c']),
req_rts_linker,
fragile(22970),
when(arch('arm'), expect_broken(17559)),
when(opsys('linux') and not ghc_dynamic(), expect_broken(20706))],
makefile_test, ['T5435_v_gcc'])
test('T5435_dyn_asm',
[extra_files(['T5435.hs', 'T5435_asm.c']),
fragile(22970),
js_skip, # dynamic linking not supported by the JS backend
check_stdout(checkDynAsm)],
makefile_test, ['T5435_dyn_asm'])
test('T5435_dyn_gcc',
[extra_files(['T5435.hs', 'T5435_gcc.c']),
fragile(22970),
js_skip], # dynamic linking not supported by the JS backend
makefile_test, ['T5435_dyn_gcc'])
######################################
test('linker_unload',
[extra_files(['LinkerUnload.hs', 'Test.hs']),
req_rts_linker],
makefile_test, ['linker_unload'])
test('linker_unload_native',
[extra_files(['LinkerUnload.hs', 'Test.hs']),
req_rts_linker,
unless(have_dynamic(), skip),
when(opsys('darwin') or opsys('mingw32'), skip)],
makefile_test, ['linker_unload_native'])
######################################
test('linker_error1', [extra_files(['linker_error.c']),
js_skip, # dynamic linking not supported by the JS backend
ignore_stderr], makefile_test, ['linker_error1'])
test('linker_error2', [extra_files(['linker_error.c']),
js_skip, # dynamic linking not supported by the JS backend
ignore_stderr], makefile_test, ['linker_error2'])
test('linker_error3', [extra_files(['linker_error.c']),
js_skip, # dynamic linking not supported by the JS backend
ignore_stderr], makefile_test, ['linker_error3'])
######################################
test('rdynamic', [ unless(opsys('linux') or opsys('mingw32'), skip)
# this needs runtime infrastructure to do in ghci:
# '-rdynamic' ghc, load modules only via dlopen(RTLD_BLOBAL) and more.
, omit_ways(['ghci'])
, js_broken(22374)
],
compile_and_run, ['-rdynamic -package ghc'])
test('T7072',
[extra_files(['T7072-main.c', 'T7072-obj.c']),
unless(opsys('linux'), skip),
req_rts_linker],
makefile_test, ['T7072'])
test('T20494', [req_rts_linker, when(opsys('linux') and not ghc_dynamic(), expect_broken(20706))],
makefile_test, ['T20494'])
test('T20918',
[extra_files(['T20918_v.cc']),
unless(opsys('mingw32'), skip),
when(opsys('mingw32'), expect_broken(2)),
req_rts_linker],
makefile_test, ['T20918'])
test('T21618',
[unless(opsys('mingw32'), skip), req_rts_linker],
makefile_test, ['T21618'])
|
