[commit: ghc] master: Ignore drectve sections, partially fixing #7056 (24b791f)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/24b791f9618e263d0a972be0ea4883d8f582d0fe/ghc

>---------------------------------------------------------------

commit 24b791f9618e263d0a972be0ea4883d8f582d0fe
Author: Edward Z. Yang <ezyang at mit.edu>
Date:   Wed Sep 4 17:43:35 2013 -0700

    Ignore drectve sections, partially fixing #7056
    
    Signed-off-by: Edward Z. Yang <ezyang at mit.edu>


>---------------------------------------------------------------

24b791f9618e263d0a972be0ea4883d8f582d0fe
 rts/Linker.c |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/rts/Linker.c b/rts/Linker.c
index c8451b0..ab5a557 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -3835,6 +3835,8 @@ ocGetNames_PEi386 ( ObjectCode* oc )
           /* ignore unknown section that appeared in gcc 3.4.5(?) */
           && 0!= strcmp(".reloc", (char*)secname)
           && 0 != strcmp(".rdata$zzz", (char*)secname)
+          /* ignore linker directive sections */
+          && 0 != strcmp(".drectve", (char*)secname)
          ) {
          errorBelch("Unknown PEi386 section name `%s' (while processing: %" PATH_FMT")", secname, oc->fileName);
          stgFree(secname);