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
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
# Args to compile_and_run are:
# extra compile flags
# extra run flags
# expected process return value, if not zero
# Doesn't work with External Core due to __labels
test('fed001', compose(only_compiler_types(['ghc']),
expect_fail_for(['extcore','optextcore'])),
compile_and_run, [''])
# Omit GHCi for these two, as they use foreign export
test('ffi001', omit_ways(['ghci']), compile_and_run, [''])
test('ffi002', [ omit_ways(['ghci']),
extra_clean(['ffi002_c.o']),
compile_cmd_prefix('$MAKE ffi002_setup && ') ],
# The ffi002_setup hack is to ensure that we generate
# ffi002_stub.h before compiling ffi002_c.c, which
# needs it.
compile_and_run, ['ffi002_c.c -no-hs-main'])
test('ffi003', normal, compile_and_run, [''])
# ffi004 calls printf, which is not supported (the FFI spec says that
# calling varargs functions is deprecated). It stopped working in GHC 6.9.
test('ffi004', skip, compile_and_run, [''])
# omit prof ways, because this test exits before the RTS has a chance to
# generate profiling info.
#
# On x86, the test suffers from floating-point differences due to the
# use of 80-bit internal precision when using the native code generator.
#
test('ffi005', [ omit_ways(prof_ways),
if_arch('i386', skip),
if_platform('i386-apple-darwin', expect_broken(4105)),
exit_code(3) ],
compile_and_run, [''])
# ffi[006-009] don't work with External Core due to non-static-C foreign calls
test('ffi006', expect_fail_for(['extcore','optextcore']), compile_and_run, [''])
# Skip ffi00{7,8} for GHCi. These tests both try to exit or raise an
# error from a foreign export, which shuts down the runtime. When
# GHCi is running, this results in GHCi's main thread also trying to
# shut down, and a race ensues to see who gets to call exit() first.
# Sometimes we end up with the wrong exit code, or get an extra
# 'interrupted' message from the GHCi thread shutting down.
test('ffi007', compose( omit_ways(['ghci']),
expect_fail_for(['extcore','optextcore']) ),
compile_and_run, [''])
test('ffi008', compose(expect_fail_for(['extcore','optextcore']),
compose(exit_code(1),
omit_ways(['ghci']))),
compile_and_run, [''])
# On i386, we need -msse2 to get reliable floating point results
maybe_skip = normal
opts = ''
if config.platform.startswith('i386-'):
if config.compiler_type == 'ghc' and \
version_ge(config.compiler_version, '6.13'):
opts = '-msse2'
else:
maybe_skip = only_ways(['ghci'])
test('ffi009', [skip_if_fast, expect_fail_for(['extcore','optextcore']),
maybe_skip] ,compile_and_run, [opts])
# Doesn't work with External Core due to __labels
test('ffi010', expect_fail_for(['extcore','optextcore']), compile_and_run, [''])
test('ffi011', normal, compile_and_run, [''])
# The stdcall calling convention works on Windows, and sometimes on
# Linux, and fails everywhhere else. For now, we test only on Windows,
# because it's difficult to discover whether a given Linux supports
# it.
if config.platform == 'i386-unknown-mingw32':
skip_if_not_windows = normal
else:
skip_if_not_windows = skip
test('ffi012', skip_if_not_windows, compile_and_run, [''])
# Doesn't work with External Core due to __labels
test('ffi013', expect_fail_for(['extcore','optextcore']), compile_and_run, [''])
# threaded2 sometimes gives ffi014: Main_dDu: interrupted
test('ffi014', only_ways(['threaded1','threaded2']), compile_and_run, ['ffi014_cbits.c'])
# GHCi can't handle the separate C file (ToDo: fix this somehow)
test('ffi015', [ omit_ways(['ghci']), extra_clean(['ffi015_cbits.o']) ],
compile_and_run, ['ffi015_cbits.c'])
# GHCi can't handle foreign import "&"
test('ffi016', omit_ways(['ghci']), compile_and_run, [''])
test('ffi017', normal, compile_and_run, [''])
test('ffi018', [ omit_ways(['ghci']), extra_clean(['ffi018_c.o']) ],
compile_and_run, ['ffi018_c.c'])
test('ffi018_ghci', [ only_ways(['ghci']),
cmd_prefix('$MAKE ffi018_ghci_setup && '),
extra_clean(['ffi018_ghci_c.o']) ],
compile_and_run, ['ffi018_ghci_c.o'])
test('ffi019', normal, compile_and_run, [''])
# This one originally failed only GHCi, but doesn't hurt to test all ways.
test('1679', normal, compile_and_run, [''])
test('1288', [ omit_ways(['ghci']),
extra_clean(['1288_c.o']) ],
compile_and_run, ['1288_c.c'])
test('1288_ghci', [ only_ways(['ghci']),
cmd_prefix('$MAKE --no-print-directory 1288_ghci_setup && '),
extra_clean(['1288_ghci_c.o']) ],
compile_and_run, ['1288_ghci_c.o'])
test('2276', [ omit_ways(['ghci']),
extra_clean(['2276_c.o']) ],
compile_and_run, ['2276_c.c'])
test('2276_ghci', [ only_ways(['ghci']),
cmd_prefix('$MAKE --no-print-directory 2276_ghci_setup && '),
extra_clean(['2276_ghci_c.o']) ],
compile_and_run, ['-fobject-code 2276_ghci_c.o'])
test('2469', normal, compile_and_run, ['-optc-std=gnu99'])
test('2594', omit_ways(['ghci']), compile_and_run, ['2594_c.c'])
test('fptr01', [ omit_ways(['ghci']), extra_clean(['fptr01_c.o']) ],
compile_and_run, ['fptr01_c.c'])
test('fptr02', normal, compile_and_run, [''])
test('fptrfail01', [ compose(omit_ways(['ghci']), exit_code(1)),
extra_clean(['fptrfail01_c.o']) ],
compile_and_run, ['fptrfail01_c.c'])
test('2917a', normal, compile_and_run, [''])
# omit prof ways, because this test causes the RTS to exit (correctly)
# without generating profiling information.
test('ffi020', [ omit_ways(prof_ways),
exit_code(1) ], compile_and_run, [''])
test('ffi021', normal, compile_and_run, [''])
test('ffi022', normal, compile_and_run, [''])
if config.platform == 'i386-unknown-mingw32':
# This test needs a larger C stack than we get by default on Windows
flagsFor4038 = ['-optl-Wl,--stack,10485760']
else:
flagsFor4038 = ['']
test('4038', normal, compile_and_run, flagsFor4038)
test('4221', [ omit_ways(['ghci']), extra_clean(['4221_c.o']) ],
compile_and_run, ['4221_c.c'])
|
