[commit: ghc] master: ios fix from Stephen Blackheath; part of #7707 (7bc3bdf)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/7bc3bdf6ed6114ba04edcc1c3536b5e20218f20f

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

commit 7bc3bdf6ed6114ba04edcc1c3536b5e20218f20f
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Mar 2 13:15:21 2013 +0000

    ios fix from Stephen Blackheath; part of #7707
    
    Apparently ios doesn't understand .type %function.

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

 rts/StgCRun.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rts/StgCRun.c b/rts/StgCRun.c
index e16de75..f0fa6c7 100644
--- a/rts/StgCRun.c
+++ b/rts/StgCRun.c
@@ -686,7 +686,9 @@ StgRun(StgFunPtr f, StgRegTable *basereg) {
 
         ".globl " STG_RETURN "\n\t"
         THUMB_FUNC
+#if !defined(ios_HOST_OS)
         ".type " STG_RETURN ", %%function\n"
+#endif
         STG_RETURN ":\n\t"
         /*
          * Free the space we allocated