[Git][ghc/ghc][wip/rip-32bit-apple] 5 commits: compiler: remove 32-bit darwin logic
Cheng Shao (@TerrorJack)
gitlab at gitlab.haskell.org
Tue Jun 4 14:15:51 UTC 2024
Cheng Shao pushed to branch wip/rip-32bit-apple at Glasgow Haskell Compiler / GHC
Commits:
e0534ea1 by Cheng Shao at 2024-06-04T14:15:31+00:00
compiler: remove 32-bit darwin logic
This commit removes all 32-bit darwin logic from the compiler, given
we no longer support 32-bit apple systems (#24921). Also contains a
bit more cleanup of obsolete i386 windows logic.
- - - - -
62fea527 by Cheng Shao at 2024-06-04T14:15:36+00:00
rts: remove 32-bit darwin/ios logic
This commit removes 32-bit darwin/ios related logic from the rts,
given we no longer support them (#24921).
- - - - -
8b666f9a by Cheng Shao at 2024-06-04T14:15:36+00:00
llvm-targets: remove 32-bit darwin/ios targets
This commit removes 32-bit darwin/ios targets from llvm-targets given
we no longer support them (#24921).
- - - - -
04742db9 by Cheng Shao at 2024-06-04T14:15:36+00:00
testsuite: remove 32-bit darwin logic
This commit removes 32-bit darwin logic from the testsuite given it's
no longer supported (#24921). Also contains more cleanup of obsolete
i386 windows logic.
- - - - -
235e496b by Cheng Shao at 2024-06-04T14:15:36+00:00
docs: mention 32-bit darwin/ios removal in 9.12 changelog
This commit mentions removal of 32-bit darwin/ios support (#24921) in
the 9.12 changelog.
- - - - -
19 changed files:
- compiler/GHC/Cmm/CLabel.hs
- compiler/GHC/CmmToAsm/PIC.hs
- compiler/GHC/CmmToAsm/X86/CodeGen.hs
- compiler/GHC/CmmToAsm/X86/Instr.hs
- compiler/GHC/Driver/Config/Cmm.hs
- compiler/GHC/Linker/Static.hs
- docs/users_guide/9.12.1-notes.rst
- llvm-targets
- rts/RtsSymbols.c
- rts/StgCRun.c
- testsuite/tests/driver/objc/all.T
- testsuite/tests/ffi/should_run/Makefile
- testsuite/tests/ffi/should_run/all.T
- testsuite/tests/numeric/should_run/all.T
- testsuite/tests/rts/T10672/Makefile
- testsuite/tests/rts/T10672/all.T
- testsuite/tests/rts/all.T
- utils/ghc-toolchain/src/GHC/Toolchain/Tools/Cc.hs
- utils/llvm-targets/gen-data-layout.sh
Changes:
=====================================
compiler/GHC/Cmm/CLabel.hs
=====================================
@@ -1659,11 +1659,7 @@ pprDynamicLinkerAsmLabel !platform dllInfo ppLbl =
GotSymbolPtr -> ppLbl <> text "@GOTPCREL"
GotSymbolOffset -> ppLbl
| platformArch platform == ArchAArch64 -> ppLbl
- | otherwise ->
- case dllInfo of
- CodeStub -> char 'L' <> ppLbl <> text "$stub"
- SymbolPtr -> char 'L' <> ppLbl <> text "$non_lazy_ptr"
- _ -> panic "pprDynamicLinkerAsmLabel"
+ | otherwise -> panic "pprDynamicLinkerAsmLabel"
OSAIX ->
case dllInfo of
=====================================
compiler/GHC/CmmToAsm/PIC.hs
=====================================
@@ -303,25 +303,15 @@ howToAccessLabel config arch OSDarwin DataReference lbl
| otherwise
= AccessDirectly
-howToAccessLabel config arch OSDarwin JumpReference lbl
+howToAccessLabel config _ OSDarwin JumpReference lbl
-- dyld code stubs don't work for tailcalls because the
-- stack alignment is only right for regular calls.
-- Therefore, we have to go via a symbol pointer:
- | arch == ArchX86 || arch == ArchX86_64 || arch == ArchAArch64
- , ncgLabelDynamic config lbl
+ | ncgLabelDynamic config lbl
= AccessViaSymbolPtr
-howToAccessLabel config arch OSDarwin _kind lbl
- -- Code stubs are the usual method of choice for imported code;
- -- not needed on x86_64 because Apple's new linker, ld64, generates
- -- them automatically, neither on Aarch64 (arm64).
- | arch /= ArchX86_64
- , arch /= ArchAArch64
- , ncgLabelDynamic config lbl
- = AccessViaStub
-
- | otherwise
+howToAccessLabel _ _ OSDarwin _ _
= AccessDirectly
----------------------------------------------------------------------------
@@ -534,16 +524,6 @@ gotLabel
-- However, for PIC on x86, we need a small helper function.
pprGotDeclaration :: NCGConfig -> HDoc
pprGotDeclaration config = case (arch,os) of
- (ArchX86, OSDarwin)
- | ncgPIC config
- -> lines_ [
- text ".section __TEXT,__textcoal_nt,coalesced,no_toc",
- text ".weak_definition ___i686.get_pc_thunk.ax",
- text ".private_extern ___i686.get_pc_thunk.ax",
- text "___i686.get_pc_thunk.ax:",
- text "\tmovl (%esp), %eax",
- text "\tret" ]
-
(_, OSDarwin) -> empty
-- Emit XCOFF TOC section
@@ -597,59 +577,6 @@ pprGotDeclaration config = case (arch,os) of
pprImportedSymbol :: NCGConfig -> CLabel -> HDoc
pprImportedSymbol config importedLbl = case (arch,os) of
- (ArchX86, OSDarwin)
- | Just (CodeStub, lbl) <- dynamicLinkerLabelInfo importedLbl
- -> if not pic
- then
- lines_ [
- text ".symbol_stub",
- text "L" <> ppr_lbl lbl <> text "$stub:",
- text "\t.indirect_symbol" <+> ppr_lbl lbl,
- text "\tjmp *L" <> ppr_lbl lbl
- <> text "$lazy_ptr",
- text "L" <> ppr_lbl lbl
- <> text "$stub_binder:",
- text "\tpushl $L" <> ppr_lbl lbl
- <> text "$lazy_ptr",
- text "\tjmp dyld_stub_binding_helper"
- ]
- else
- lines_ [
- text ".section __TEXT,__picsymbolstub2,"
- <> text "symbol_stubs,pure_instructions,25",
- text "L" <> ppr_lbl lbl <> text "$stub:",
- text "\t.indirect_symbol" <+> ppr_lbl lbl,
- text "\tcall ___i686.get_pc_thunk.ax",
- text "1:",
- text "\tmovl L" <> ppr_lbl lbl
- <> text "$lazy_ptr-1b(%eax),%edx",
- text "\tjmp *%edx",
- text "L" <> ppr_lbl lbl
- <> text "$stub_binder:",
- text "\tlea L" <> ppr_lbl lbl
- <> text "$lazy_ptr-1b(%eax),%eax",
- text "\tpushl %eax",
- text "\tjmp dyld_stub_binding_helper"
- ]
- $$ lines_ [
- text ".section __DATA, __la_sym_ptr"
- <> (if pic then int 2 else int 3)
- <> text ",lazy_symbol_pointers",
- text "L" <> ppr_lbl lbl <> text "$lazy_ptr:",
- text "\t.indirect_symbol" <+> ppr_lbl lbl,
- text "\t.long L" <> ppr_lbl lbl
- <> text "$stub_binder"]
-
- | Just (SymbolPtr, lbl) <- dynamicLinkerLabelInfo importedLbl
- -> lines_ [
- text ".non_lazy_symbol_pointer",
- char 'L' <> ppr_lbl lbl <> text "$non_lazy_ptr:",
- text "\t.indirect_symbol" <+> ppr_lbl lbl,
- text "\t.long\t0"]
-
- | otherwise
- -> empty
-
(ArchAArch64, OSDarwin)
-> empty
@@ -734,7 +661,6 @@ pprImportedSymbol config importedLbl = case (arch,os) of
ppr_lbl = pprAsmLabel platform
arch = platformArch platform
os = platformOS platform
- pic = ncgPIC config
--------------------------------------------------------------------------------
-- Generate code to calculate the address that should be put in the
@@ -840,11 +766,11 @@ initializePicBase_ppc _ _ _ _
-- (See PprMach.hs)
initializePicBase_x86
- :: Arch -> OS -> Reg
+ :: OS -> Reg
-> [NatCmmDecl (Alignment, RawCmmStatics) X86.Instr]
-> NatM [NatCmmDecl (Alignment, RawCmmStatics) X86.Instr]
-initializePicBase_x86 ArchX86 os picReg
+initializePicBase_x86 os picReg
(CmmProc info lab live (ListGraph blocks) : statics)
| osElfTarget os
= return (CmmProc info lab live (ListGraph blocks') : statics)
@@ -862,12 +788,12 @@ initializePicBase_x86 ArchX86 os picReg
fetchGOT (BasicBlock bID insns) =
BasicBlock bID (X86.FETCHGOT picReg : insns)
-initializePicBase_x86 ArchX86 OSDarwin picReg
+initializePicBase_x86 OSDarwin picReg
(CmmProc info lab live (ListGraph (entry:blocks)) : statics)
= return (CmmProc info lab live (ListGraph (block':blocks)) : statics)
where BasicBlock bID insns = entry
block' = BasicBlock bID (X86.FETCHPC picReg : insns)
-initializePicBase_x86 _ _ _ _
+initializePicBase_x86 _ _ _
= panic "initializePicBase_x86: not needed"
=====================================
compiler/GHC/CmmToAsm/X86/CodeGen.hs
=====================================
@@ -124,7 +124,7 @@ cmmTopCodeGen (CmmProc info lab live graph) = do
os = platformOS platform
case picBaseMb of
- Just picBase -> initializePicBase_x86 ArchX86 os picBase tops
+ Just picBase -> initializePicBase_x86 os picBase tops
Nothing -> return tops
cmmTopCodeGen (CmmData sec dat) =
=====================================
compiler/GHC/CmmToAsm/X86/Instr.hs
=====================================
@@ -883,7 +883,6 @@ needs_probe_call :: Platform -> Int -> Bool
needs_probe_call platform amount
= case platformOS platform of
OSMinGW32 -> case platformArch platform of
- ArchX86 -> amount > (4 * 1024)
ArchX86_64 -> amount > (4 * 1024)
_ -> False
_ -> False
@@ -913,15 +912,6 @@ mkStackAllocInstr platform amount
-- function dropping the stack more than a page.
-- See Note [Windows stack layout]
case platformArch platform of
- ArchX86 | needs_probe_call platform amount ->
- [ MOV II32 (OpImm (ImmInt amount)) (OpReg eax)
- , CALL (Left $ strImmLit (fsLit "___chkstk_ms")) [eax]
- , SUB II32 (OpReg eax) (OpReg esp)
- ]
- | otherwise ->
- [ SUB II32 (OpImm (ImmInt amount)) (OpReg esp)
- , TEST II32 (OpReg esp) (OpReg esp)
- ]
ArchX86_64 | needs_probe_call platform amount ->
[ MOV II64 (OpImm (ImmInt amount)) (OpReg rax)
, CALL (Left $ strImmLit (fsLit "___chkstk_ms")) [rax]
=====================================
compiler/GHC/Driver/Config/Cmm.hs
=====================================
@@ -24,15 +24,10 @@ initCmmConfig dflags = CmmConfig
, cmmDoCmmSwitchPlans = not (backendHasNativeSwitch (backend dflags))
, cmmSplitProcPoints = not (backendSupportsUnsplitProcPoints (backend dflags))
|| not (platformTablesNextToCode platform)
- || usingInconsistentPicReg
, cmmAllowMul2 = (ncg && x86ish) || llvm
, cmmOptConstDivision = not llvm
}
where platform = targetPlatform dflags
- usingInconsistentPicReg =
- case (platformArch platform, platformOS platform, positionIndependent dflags)
- of (ArchX86, OSDarwin, pic) -> pic
- _ -> False
-- Copied from StgToCmm
(ncg, llvm) = case backendPrimitiveImplementation (backend dflags) of
GenericPrimitives -> (False, False)
=====================================
compiler/GHC/Linker/Static.hs
=====================================
@@ -219,25 +219,12 @@ linkBinary' staticLink logger tmpfs dflags unit_env o_files dep_units = do
toolSettings_ldSupportsCompactUnwind toolSettings' &&
(platformOS platform == OSDarwin) &&
case platformArch platform of
- ArchX86 -> True
ArchX86_64 -> True
- ArchARM {} -> True
ArchAArch64 -> True
_ -> False
then ["-Wl,-no_compact_unwind"]
else [])
- -- '-Wl,-read_only_relocs,suppress'
- -- ld gives loads of warnings like:
- -- ld: warning: text reloc in _base_GHCziArr_unsafeArray_info to _base_GHCziArr_unsafeArray_closure
- -- when linking any program. We're not sure
- -- whether this is something we ought to fix, but
- -- for now this flags silences them.
- ++ (if platformOS platform == OSDarwin &&
- platformArch platform == ArchX86
- then ["-Wl,-read_only_relocs,suppress"]
- else [])
-
-- We should rather be asking does it support --gc-sections?
++ (if toolSettings_ldIsGnuLd toolSettings' &&
not (gopt Opt_WholeArchiveHsLibs dflags)
=====================================
docs/users_guide/9.12.1-notes.rst
=====================================
@@ -69,6 +69,10 @@ Compiler
and treat it as ``ccall``. All C import/export declarations on
Windows should now use ``ccall``.
+- 32-bit macOS/iOS support has also been completely removed (`#24921
+ <https://gitlab.haskell.org/ghc/ghc/-/issues/24921>`_). This does
+ not affect existing support of apple systems on x86_64/aarch64.
+
GHCi
~~~~
=====================================
llvm-targets
=====================================
@@ -43,12 +43,9 @@
,("riscv64-unknown-linux", ("e-m:e-p:64:64-i64:64-i128:128-n64-S128", "", "+m +a +f +d +c +relax"))
,("loongarch64-unknown-linux-gnu", ("e-m:e-p:64:64-i64:64-i128:128-n64-S128", "", "+f +d"))
,("loongarch64-unknown-linux", ("e-m:e-p:64:64-i64:64-i128:128-n64-S128", "", "+f +d"))
-,("i386-apple-darwin", ("e-m:o-p:32:32-p270:32:32-p271:32:32-p272:64:64-f64:32:64-f80:128-n8:16:32-S128", "penryn", ""))
,("x86_64-apple-darwin", ("e-m:o-p270:32:32-p271:32:32-p272:64:64-i64:64-f80:128-n8:16:32:64-S128", "penryn", ""))
,("arm64-apple-darwin", ("e-m:o-i64:64-i128:128-n32:64-S128", "generic", "+v8.3a +fp-armv8 +neon +crc +crypto +fullfp16 +ras +lse +rdm +rcpc +zcm +zcz +sha2 +aes"))
-,("armv7-apple-ios", ("e-m:o-p:32:32-Fi8-f64:32:64-v64:32:64-v128:32:128-a:0:32-n32-S32", "generic", ""))
,("aarch64-apple-ios", ("e-m:o-i64:64-i128:128-n32:64-S128", "apple-a7", "+fp-armv8 +neon +crypto +zcm +zcz +sha2 +aes"))
-,("i386-apple-ios", ("e-m:o-p:32:32-p270:32:32-p271:32:32-p272:64:64-f64:32:64-f80:128-n8:16:32-S128", "yonah", ""))
,("x86_64-apple-ios", ("e-m:o-p270:32:32-p271:32:32-p272:64:64-i64:64-f80:128-n8:16:32:64-S128", "core2", ""))
,("amd64-portbld-freebsd", ("e-m:e-p270:32:32-p271:32:32-p272:64:64-i64:64-f80:128-n8:16:32:64-S128", "x86-64", ""))
,("x86_64-unknown-freebsd", ("e-m:e-p270:32:32-p271:32:32-p272:64:64-i64:64-f80:128-n8:16:32:64-S128", "x86-64", ""))
=====================================
rts/RtsSymbols.c
=====================================
@@ -1073,11 +1073,5 @@ RtsSymbolVal rtsSyms[] = {
RTS_LIBFFI_SYMBOLS
RTS_ARM_OUTLINE_ATOMIC_SYMBOLS
SymI_HasDataProto(nonmoving_write_barrier_enabled)
-#if defined(darwin_HOST_OS) && defined(i386_HOST_ARCH)
- // dyld stub code contains references to this,
- // but it should never be called because we treat
- // lazy pointers as nonlazy.
- { "dyld_stub_binding_helper", (void*)0xDEADBEEF, STRENGTH_NORMAL },
-#endif
{ 0, 0, STRENGTH_NORMAL, SYM_TYPE_CODE } /* sentinel */
};
=====================================
rts/StgCRun.c
=====================================
@@ -102,13 +102,8 @@ StgFunPtr StgReturn(void)
#if defined(i386_HOST_ARCH)
-#if defined(darwin_HOST_OS) || defined(ios_HOST_OS)
-#define STG_GLOBAL ".globl "
-#define STG_HIDDEN ".private_extern "
-#else
#define STG_GLOBAL ".global "
#define STG_HIDDEN ".hidden "
-#endif
/*
* Note [Stack Alignment on X86]
=====================================
testsuite/tests/driver/objc/all.T
=====================================
@@ -1,19 +1,11 @@
-def if_not_platform(platforms, f):
- if not (config.platform in platforms):
- return f
- else:
- return normal
-
-skip_if_not_osx = if_not_platform(['i386-apple-darwin','x86_64-apple-darwin'], skip)
-
test('objc-hi',
- [ skip_if_not_osx,
+ [ unless(opsys('darwin'), skip),
objc_src,
expect_fail_for(['ghci']) ],
compile_and_run, ['-framework Foundation'])
test('objcxx-hi',
- [ skip_if_not_osx,
+ [ unless(opsys('darwin'), skip),
objcxx_src,
expect_fail_for(['ghci']) ],
compile_and_run, ['-framework Foundation -lc++'])
=====================================
testsuite/tests/ffi/should_run/Makefile
=====================================
@@ -6,12 +6,10 @@ ffi018_ghci_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c ffi018_ghci_c.c
T1288_ghci_setup :
- # Don't show gcc warning: 'stdcall' attribute ignored [-Wattributes]
- '$(TEST_HC)' $(TEST_HC_OPTS) $(ghciWayFlags) -c -optc=-Wno-attributes T1288_ghci_c.c
+ '$(TEST_HC)' $(TEST_HC_OPTS) $(ghciWayFlags) -c T1288_ghci_c.c
T2276_ghci_setup :
- # Don't show gcc warning: 'stdcall' attribute ignored [-Wattributes]
- '$(TEST_HC)' $(TEST_HC_OPTS) $(ghciWayFlags) -c -optc=-Wno-attributes T2276_ghci_c.c
+ '$(TEST_HC)' $(TEST_HC_OPTS) $(ghciWayFlags) -c T2276_ghci_c.c
ffi002_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c ffi002.hs
=====================================
testsuite/tests/ffi/should_run/all.T
=====================================
@@ -33,7 +33,6 @@ test('ffi004', skip, compile_and_run, [''])
#
test('ffi005', [ omit_ways(prof_ways),
when(arch('i386'), skip),
- when(platform('i386-apple-darwin'), expect_broken(4105)),
exit_code(3),
req_c ],
compile_and_run, ['ffi005_c.c'])
@@ -101,7 +100,6 @@ test('T1288_ghci',
test('T2276', [req_c], compile_and_run, ['T2276_c.c'])
test('T2276_ghci', [ only_ghci,
- when(opsys('darwin'), skip), # stdcall not supported on OS X
pre_cmd('$MAKE -s --no-print-directory T2276_ghci_setup') ],
compile_and_run, ['-fobject-code T2276_ghci_c.o'])
=====================================
testsuite/tests/numeric/should_run/all.T
=====================================
@@ -7,7 +7,7 @@ test('arith001', normal, compile_and_run, [''])
test('arith002', normal, compile_and_run, [''])
test('arith003', normal, compile_and_run, [''])
test('arith004', normal, compile_and_run, [''])
-test('arith005', when(platform('i386-apple-darwin'), expect_broken_for(7043, ['ghci'])), compile_and_run, [''])
+test('arith005', normal, compile_and_run, [''])
test('arith006', normal, compile_and_run, [''])
test('arith007', normal, compile_and_run, [''])
=====================================
testsuite/tests/rts/T10672/Makefile
=====================================
@@ -5,7 +5,3 @@ include $(TOP)/mk/test.mk
T10672_x64:
'$(TEST_HC)' $(TEST_HC_OPTS) -v0 -rtsopts=none -fforce-recomp -lgcc_s_seh-1 -package system-cxx-std-lib
Main.hs Printf.hs cxxy.cpp
-
-T10672_x86:
- '$(TEST_HC)' $(TEST_HC_OPTS) -v0 -rtsopts=none -fforce-recomp -lgcc_s_dw2-1 -package system-cxx-std-lib \
- Main.hs Printf.hs cxxy.cpp
=====================================
testsuite/tests/rts/T10672/all.T
=====================================
@@ -3,9 +3,3 @@ test('T10672_x64',
unless(opsys('mingw32'), skip), unless(arch('x86_64'), skip),
when(opsys('mingw32'), expect_broken(16390))],
makefile_test, ['T10672_x64'])
-
-test('T10672_x86',
- [extra_files(['Main.hs', 'Printf.hs', 'cxxy.cpp']),
- unless(opsys('mingw32'), skip), unless(arch('i386'), skip),
- when(opsys('mingw32'), expect_broken(16390))],
- makefile_test, ['T10672_x86'])
=====================================
testsuite/tests/rts/all.T
=====================================
@@ -38,7 +38,6 @@ test('derefnull',
when(opsys('openbsd'), ignore_stderr),
# SIGBUS on OX X (PPC and x86 only; amd64 gives SEGV)
# The output under OS X is too unstable to readily compare
- when(platform('i386-apple-darwin'), [ignore_stderr, exit_code(139)]),
when(platform('x86_64-apple-darwin'), [ignore_stderr, exit_code(139)]),
when(platform('aarch64-apple-darwin'), [ignore_stderr, exit_code(139)]),
when(opsys('mingw32'), [ignore_stderr, exit_code(11)]),
@@ -80,7 +79,6 @@ test('divbyzero',
when(opsys('mingw32'), [ignore_stderr, exit_code(8)]),
when(opsys('mingw32'), [fragile(18548)]),
# The output under OS X is too unstable to readily compare
- when(platform('i386-apple-darwin'), [ignore_stderr, exit_code(136)]),
when(platform('x86_64-apple-darwin'), [ignore_stderr, exit_code(136)]),
# ThreadSanitizer changes the output
when(have_thread_sanitizer(), skip),
=====================================
utils/ghc-toolchain/src/GHC/Toolchain/Tools/Cc.hs
=====================================
@@ -148,8 +148,6 @@ addPlatformDepCcFlags archOs cc0 = do
let cc1 = addWorkaroundFor7799 archOs cc0
-- As per FPTOOLS_SET_C_LD_FLAGS
case archOs of
- ArchOS ArchX86 OSMinGW32 ->
- return $ cc1 & _ccFlags %++ "-march=i686"
ArchOS ArchX86 OSFreeBSD ->
return $ cc1 & _ccFlags %++ "-march=i686"
ArchOS ArchX86_64 OSSolaris2 ->
@@ -183,4 +181,3 @@ addWorkaroundFor7799 :: ArchOS -> Cc -> Cc
addWorkaroundFor7799 archOs cc
| ArchX86 <- archOS_arch archOs = cc & _ccFlags %++ "-U__i686"
| otherwise = cc
-
=====================================
utils/llvm-targets/gen-data-layout.sh
=====================================
@@ -89,13 +89,10 @@ TARGETS=(
#########################
# macOS
- "i386-apple-darwin"
"x86_64-apple-darwin"
"arm64-apple-darwin"
# iOS
- "armv7-apple-ios"
"arm64-apple-ios"
- "i386-apple-ios"
"x86_64-apple-ios"
#########################
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/f75241e50c1496f43f215480ee1bafa210f4c278...235e496b9094c9aaf1df77b47aa5c0891767b6d1
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/f75241e50c1496f43f215480ee1bafa210f4c278...235e496b9094c9aaf1df77b47aa5c0891767b6d1
You're receiving this email because of your account on gitlab.haskell.org.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240604/903888c8/attachment-0001.html>
More information about the ghc-commits
mailing list