[project @ 1996-01-11 14:06:51 by partain]

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

diff --git a/ghc/includes/SMcompact.lh b/ghc/includes/SMcompact.lh
index cb47a45..9fb25d8 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,7 +81,7 @@ 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
 
@@ -128,6 +131,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,7 +153,7 @@ 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