Commit 219eee6b authored by Ian Lynagh's avatar Ian Lynagh

Merge branch 'master' of mac:ghc/git/val32/testsuite

parents b214e7a3 57938f3e
......@@ -593,6 +593,12 @@ def test_common_work (name, opts, func, args):
'_stub.h', '_stub.c', '_stub.o',
'.hp', '.exe.hp', '.ps', '.aux', '.hcr', '.eventlog']))
if func == multisrc_compile or func == multisrc_compile_fail \
or func == multi_compile or func == multi_compile_fail:
extra_mods = args[1]
clean(map (lambda (f,x): replace_suffix(f, 'o'), extra_mods))
clean(map (lambda (f,x): replace_suffix(f, 'hi'), extra_mods))
clean(getTestOpts().clean_files)
try:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment