rts/PrimOps.cmm: fix UNREG profiled build
authorSergei Trofimovich <siarheit@google.com>
Wed, 30 Dec 2015 12:35:53 +0000 (12:35 +0000)
committerSergei Trofimovich <siarheit@google.com>
Wed, 30 Dec 2015 13:49:14 +0000 (13:49 +0000)
Brought 'CCS_MAIN' into scope, otherwise UNREG
prof build is unhappy:

    rts_dist_HC rts/dist/build/PrimOps.p_o
  /tmp/ghc25593_0/ghc_3.hc: In function 'clB_entry':

  /tmp/ghc25593_0/ghc_3.hc:2983:24: error:
     error: 'CCS_MAIN' undeclared (first use in this function)
     *((P_)(_cly+8)) = (W_)&CCS_MAIN;
                            ^

Signed-off-by: Sergei Trofimovich <siarheit@google.com>
rts/PrimOps.cmm

index 2989f29..7add835 100644 (file)
@@ -35,6 +35,9 @@ import CLOSURE ghczmprim_GHCziTypes_False_closure;
 #if defined(USE_MINIINTERPRETER) || !defined(mingw32_HOST_OS)
 import CLOSURE sm_mutex;
 #endif
+#ifdef PROFILING
+import CLOSURE CCS_MAIN;
+#endif
 
 /*-----------------------------------------------------------------------------
   Array Primitives