3 For systems having as(1) that doesn't recognise .ident
4 directives. (Already merged to the upstream)
7 --- compiler/main/SysTools.lhs.orig 2012-02-01 18:10:32.000000000 +0000
8 +++ compiler/main/SysTools.lhs
9 @@ -194,6 +194,7 @@ initSysTools mbMinusB
10 ; targetOS <- readSetting "target os"
11 ; targetWordSize <- readSetting "target word size"
12 ; targetHasGnuNonexecStack <- readSetting "target has GNU nonexec stack"
13 + ; targetHasIdentDirective <- readSetting "target has .ident directive"
14 ; targetHasSubsectionsViaSymbols <- readSetting "target has subsections via symbols"
15 ; myExtraGccViaCFlags <- getSetting "GCC extra via C opts"
16 -- On Windows, mingw is distributed with GHC,
17 @@ -259,6 +260,7 @@ initSysTools mbMinusB
18 platformOS = targetOS,
19 platformWordSize = targetWordSize,
20 platformHasGnuNonexecStack = targetHasGnuNonexecStack,
21 + platformHasIdentDirective = targetHasIdentDirective,
22 platformHasSubsectionsViaSymbols = targetHasSubsectionsViaSymbols
24 sTmpDir = normalise tmpdir,