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
|
# -*-: 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']),
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,
when(arch('arm'), expect_broken(17559))],
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,
when(arch('arm'), expect_broken(17559)),
when(opsys('darwin') or opsys('mingw32'), skip)],
makefile_test, ['T5435_v_asm_b'])
test('T5435_v_gcc',
[extra_files(['T5435.hs', 'T5435_gcc.c']),
req_rts_linker,
when(arch('arm'), expect_broken(17559))],
makefile_test, ['T5435_v_gcc'])
test('T5435_dyn_asm',
[extra_files(['T5435.hs', 'T5435_asm.c']),
check_stdout(checkDynAsm)],
makefile_test, ['T5435_dyn_asm'])
test('T5435_dyn_gcc', extra_files(['T5435.hs', 'T5435_gcc.c']) , 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']),
ignore_stderr], makefile_test, ['linker_error1'])
test('linker_error2', [extra_files(['linker_error.c']),
ignore_stderr], makefile_test, ['linker_error2'])
test('linker_error3', [extra_files(['linker_error.c']),
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'])
],
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],
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'])
|
