diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-08-10 10:02:55 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-10 10:02:55 +0100 |
| commit | f0191c559d683b5bac12243c0db3b780b684799e (patch) | |
| tree | dee655e89dc18d5e9a38282a284bff5df757b52d | |
| parent | d7ca829ec8b1507a47f89e1d2f1d45c26d15e406 (diff) | |
| download | haskell-f0191c559d683b5bac12243c0db3b780b684799e.tar.gz | |
default to using @note for saving the linker opts (someone mentioned
that it wasn't working on Alpha, because we had explicitly listed the
arches rather than having a sensible fallback).
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index ee002b2a54..43e096ec21 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1465,13 +1465,8 @@ mkExtraObjToLinkIntoBinary dflags dep_packages = do elfSectionNote :: String elfSectionNote = case platformArch (targetPlatform dflags) of - ArchX86 -> "@note" - ArchX86_64 -> "@note" - ArchPPC -> "@note" - ArchPPC_64 -> "@note" - ArchSPARC -> "@note" ArchARM -> "%note" - ArchUnknown -> panic "elfSectionNote ArchUnknown" + _ -> "@note" -- The "link info" is a string representing the parameters of the -- link. We save this information in the binary, and the next time we |