[commit: ghc] master: Add support for .text.startup sections to the Linker (041d1bc)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/041d1bcf4957ec6db1365c61144e50039fbab3fe

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

commit 041d1bcf4957ec6db1365c61144e50039fbab3fe
Author: Ian Lynagh <igloo at earth.li>
Date:   Mon May 7 22:45:04 2012 +0100

    Add support for .text.startup sections to the Linker
    
    We get these in a full build on Win64

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

 rts/Linker.c |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/rts/Linker.c b/rts/Linker.c
index 6486d4d..df5ab5c 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -3607,6 +3607,7 @@ ocGetNames_PEi386 ( ObjectCode* oc )
 #     endif
 
       if (0==strcmp(".text",(char*)secname) ||
+          0==strcmp(".text.startup",(char*)secname) ||
           0==strcmp(".rdata",(char*)secname)||
           0==strcmp(".rodata",(char*)secname))
          kind = SECTIONKIND_CODE_OR_RODATA;