X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Fstg%2FMiscClosures.h;h=8a1b84a5cc71be66a6c5d9e4c0541f46f8d2ec58;hb=9ba922ee06b048774d7a82964867ff768a78126e;hp=afe2623f1ec4d2063671798c55753bfa6d64d03c;hpb=ad3b79d22b32760f25bf10069bd2957462be959d;p=ghc-hetmet.git

diff --git a/includes/stg/MiscClosures.h b/includes/stg/MiscClosures.h
index afe2623..8a1b84a 100644
--- a/includes/stg/MiscClosures.h
+++ b/includes/stg/MiscClosures.h
@@ -440,6 +440,7 @@ RTS_FUN_DECL(stg_checkzh);
 RTS_FUN_DECL(stg_unpackClosurezh);
 RTS_FUN_DECL(stg_getApStackValzh);
 RTS_FUN_DECL(stg_getSparkzh);
+RTS_FUN_DECL(stg_numSparkszh);
 
 RTS_FUN_DECL(stg_noDuplicatezh);
 
@@ -486,6 +487,7 @@ extern StgWord      RTS_VAR(CCCS);	        /* current CCS */
 extern unsigned int RTS_VAR(entering_PAP);
 extern StgWord      RTS_VAR(CC_LIST);               /* registered CC list */
 extern StgWord      RTS_VAR(CCS_LIST);         /* registered CCS list */
+extern StgWord      CCS_SYSTEM[];
 extern unsigned int RTS_VAR(CC_ID);	/* global ids */
 extern unsigned int RTS_VAR(CCS_ID);