[project @ 1998-11-26 09:17:22 by sof]

[ghc-hetmet.git] / ghc / includes / SMcompact.lh

diff --git a/ghc/includes/SMcompact.lh b/ghc/includes/SMcompact.lh
index cb47a45..c491b5b 100644 (file)
--- a/ghc/includes/SMcompact.lh
+++ b/ghc/includes/SMcompact.lh
@@ -49,6 +49,9 @@ if it's not static.
 typedef I_ (StgScanFun)(STG_NO_ARGS);
 typedef I_ (*StgScanPtr)(STG_NO_ARGS);
 
+#ifdef TICKY_TICKY
+extern StgScanFun _ScanLink_0_0;
+#endif
 extern StgScanFun _ScanLink_1_0;
 extern StgScanFun _ScanLink_2_0;
 extern StgScanFun _ScanLink_3_0;
@@ -78,11 +81,11 @@ extern StgScanFun _ScanLink_Tuple;
 extern StgScanFun _ScanLink_Data;
 extern StgScanFun _ScanLink_MuTuple;
 
-#ifdef USE_COST_CENTRES
+#if defined(PROFILING) || defined(TICKY_TICKY)
 extern StgScanFun _ScanLink_PI;
 #endif
 
-#ifdef PAR
+#if defined(PAR) || defined(GRAN)
 extern StgScanFun _ScanLink_RBH_2_1;
 extern StgScanFun _ScanLink_RBH_3_1;
 extern StgScanFun _ScanLink_RBH_3_3;
@@ -114,10 +117,11 @@ extern StgScanFun _ScanMove_RBH_11;
 extern StgScanFun _ScanMove_RBH_12;
 
 extern StgScanFun _ScanMove_RBH_S;
+#endif /* PAR || GRAN */
 
-#else
-extern StgScanFun _ScanLink_MallocPtr;
-#endif /* PAR */
+#if !defined(PAR) || defined(GRAN)
+extern StgScanFun _ScanLink_ForeignObj;
+#endif
 
 extern StgScanFun _ScanLink_BH_N;
 extern StgScanFun _ScanLink_BH_U;
@@ -128,6 +132,9 @@ extern StgScanFun _ScanLink_TSO;
 extern StgScanFun _ScanLink_BQ;
 #endif
 
+#ifdef TICKY_TICKY
+extern StgScanFun _ScanMove_0;
+#endif
 extern StgScanFun _ScanMove_1;
 extern StgScanFun _ScanMove_2;
 extern StgScanFun _ScanMove_3;
@@ -147,12 +154,12 @@ extern StgScanFun _ScanMove_Tuple;
 extern StgScanFun _ScanMove_Data;
 extern StgScanFun _ScanMove_MuTuple;
 
-#ifdef USE_COST_CENTRES
+#if defined(PROFILING) || defined(TICKY_TICKY)
 extern StgScanFun _ScanMove_PI;
 #endif
 
 #ifndef PAR
-extern StgScanFun _ScanMove_MallocPtr;
+extern StgScanFun _ScanMove_ForeignObj;
 #endif /* !PAR */
 
 extern StgScanFun _ScanMove_ImmuTuple;