diff options
| author | PHO <pho@cielonegro.org> | 2011-11-30 17:46:27 +0900 |
|---|---|---|
| committer | PHO <pho@cielonegro.org> | 2011-12-08 10:57:28 +0900 |
| commit | 3640d374f3501c0addb1be273ecc0f10f93be10d (patch) | |
| tree | 17a23f00548a6ecbe1728bfdd561247ed8cc94e4 /compiler/main | |
| parent | 8b48562e8cd773b4bc162edb4fc6d05a7654c7e1 (diff) | |
| download | haskell-3640d374f3501c0addb1be273ecc0f10f93be10d.tar.gz | |
Detect cases where as(1) doesn't recognise .ident directive (#5408)
.ident directives are usually ignored by as(1), and in some cases (like Darwin/PPC) they even raise an error.
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/SysTools.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 4a51b313e2..23906c69bc 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -193,6 +193,7 @@ initSysTools mbMinusB ; targetArch <- readSetting "target arch" ; targetOS <- readSetting "target os" ; targetHasGnuNonexecStack <- readSetting "target has GNU nonexec stack" + ; targetHasIdentDirective <- readSetting "target has .ident directive" ; targetHasSubsectionsViaSymbols <- readSetting "target has subsections via symbols" ; myExtraGccViaCFlags <- getSetting "GCC extra via C opts" -- On Windows, mingw is distributed with GHC, @@ -257,6 +258,7 @@ initSysTools mbMinusB platformArch = targetArch, platformOS = targetOS, platformHasGnuNonexecStack = targetHasGnuNonexecStack, + platformHasIdentDirective = targetHasIdentDirective, platformHasSubsectionsViaSymbols = targetHasSubsectionsViaSymbols }, sTmpDir = normalise tmpdir, |