[commit: ghc] master: rts/PrimOps.cmm: fix UNREG profiled build (e9ab6d5)

git at git.haskell.org git at git.haskell.org
Wed Dec 30 14:23:07 UTC 2015


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

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

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

commit e9ab6d5939014e11b4f9368984f991de4d4cf041
Author: Sergei Trofimovich <siarheit at google.com>
Date:   Wed Dec 30 12:35:53 2015 +0000

    rts/PrimOps.cmm: fix UNREG profiled build
    
    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 at google.com>


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

e9ab6d5939014e11b4f9368984f991de4d4cf041
 rts/PrimOps.cmm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 2989f29..7add835 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -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



More information about the ghc-commits mailing list