[commit: ghc] master: Fix build on Windows (f6f1252)

[Ian Lynagh]

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

On branch  : master

https://github.com/ghc/ghc/commit/f6f1252e32adcc0a3d995fcf0077847c67ddac5d

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

commit f6f1252e32adcc0a3d995fcf0077847c67ddac5d
Author: Ian Lynagh <igloo at earth.li>
Date:   Sun Apr 28 00:15:55 2013 +0100

    Fix build on Windows

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

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

diff --git a/rts/StgCRun.c b/rts/StgCRun.c
index 1d3d71e..a45c52f 100644
--- a/rts/StgCRun.c
+++ b/rts/StgCRun.c
@@ -166,7 +166,9 @@ StgRunIsImplementedInAssembler(void)
 {
     __asm__ volatile (
         STG_GLOBAL STG_RUN "\n"
+#if !defined(mingw32_HOST_OS)
         STG_HIDDEN STG_RUN "\n"
+#endif
         STG_RUN ":\n\t"
 
         /*
@@ -255,7 +257,9 @@ StgRunIsImplementedInAssembler(void)
          * save callee-saves registers on behalf of the STG code.
          */
         STG_GLOBAL STG_RUN "\n"
+#if !defined(mingw32_HOST_OS)
         STG_HIDDEN STG_RUN "\n"
+#endif
         STG_RUN ":\n\t"
         "subq %1, %%rsp\n\t"
         "movq %%rsp, %%rax\n\t"