X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FSMmark.lh;h=764f418e97338d889a3d3255cb92143b955a9378;hb=3d7f51b9c6b157f31f46623bfbd2408aafe137ab;hp=2c6cb0b31e70e8877ba5a416c69c08eec90a01b9;hpb=10521d8418fd3a1cf32882718b5bd28992db36fd;p=ghc-hetmet.git

diff --git a/ghc/includes/SMmark.lh b/ghc/includes/SMmark.lh
index 2c6cb0b..764f418 100644
--- a/ghc/includes/SMmark.lh
+++ b/ghc/includes/SMmark.lh
@@ -49,7 +49,7 @@ extern F_ _PRStart_MuTuple(STG_NO_ARGS);
 extern F_ _PRStart_PI(STG_NO_ARGS);
 #endif
 
-#ifdef PAR
+#if defined(PAR) || defined(GRAN)
 extern F_ _PRStart_RBH_0(STG_NO_ARGS);
 extern F_ _PRStart_RBH_1(STG_NO_ARGS);
 extern F_ _PRStart_RBH_2(STG_NO_ARGS);
@@ -66,9 +66,11 @@ extern F_ _PRStart_RBH_12(STG_NO_ARGS);
 extern F_ _PRStart_RBH_N(STG_NO_ARGS);
 extern F_ _PRStart_FetchMe(STG_NO_ARGS);
 extern F_ _PRStart_BF(STG_NO_ARGS);
-#else
-extern F_ _PRStart_MallocPtr(STG_NO_ARGS);
-#endif /* PAR */
+#endif /* PAR || GRAN */
+
+#if !defined(PAR) || defined(GRAN)
+extern F_ _PRStart_ForeignObj(STG_NO_ARGS);
+#endif
 
 #if defined(CONCURRENT)
 extern F_ _PRStart_StkO(STG_NO_ARGS);
@@ -117,7 +119,7 @@ extern F_ _PRIn_I_Dyn(STG_NO_ARGS);
 extern F_ _PRIn_I_Tuple(STG_NO_ARGS);
 extern F_ _PRIn_I_MuTuple(STG_NO_ARGS);
 
-#ifdef PAR
+#if defined(PAR) || defined(GRAN)
 extern F_ _PRIn_BF(STG_NO_ARGS);
 extern F_ _PRIn_RBH_0(STG_NO_ARGS);
 extern F_ _PRIn_RBH_1(STG_NO_ARGS);
@@ -133,9 +135,11 @@ extern F_ _PRIn_RBH_10(STG_NO_ARGS);
 extern F_ _PRIn_RBH_11(STG_NO_ARGS);
 extern F_ _PRIn_RBH_12(STG_NO_ARGS);
 extern F_ _PRIn_RBH_I(STG_NO_ARGS);
-#else
-extern F_ _PRIn_I_MallocPtr(STG_NO_ARGS);
-#endif /* PAR */
+#endif /* PAR || GRAN */
+
+#if !defined(PAR) || defined(GRAN)
+extern F_ _PRIn_I_ForeignObj(STG_NO_ARGS);
+#endif
 
 extern F_ _PRIn_Error(STG_NO_ARGS);