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

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

diff --git a/ghc/includes/SMcopying.lh b/ghc/includes/SMcopying.lh
index 252fbfc..7667fb2 100644 (file)
--- a/ghc/includes/SMcopying.lh
+++ b/ghc/includes/SMcopying.lh
@@ -84,7 +84,7 @@ extern StgScavFun _Scavenge_Data;
 extern StgEvacFun _Evacuate_MuTuple;
 extern StgScavFun _Scavenge_MuTuple;
 
-#ifdef PAR
+#if defined(PAR) || defined(GRAN)
 extern StgEvacFun _Evacuate_RBH_2;
 extern StgEvacFun _Evacuate_RBH_3;
 extern StgEvacFun _Evacuate_RBH_4;
@@ -117,11 +117,14 @@ extern StgScavFun _Scavenge_RBH_12_12;
 extern StgScavFun _Scavenge_RBH_N;
 extern StgScavFun _Scavenge_FetchMe;
 extern StgScavFun _Scavenge_BF;
-#else
-extern StgEvacFun _Evacuate_MallocPtr;
-extern StgScavFun _Scavenge_MallocPtr;
+#endif /* PAR || GRAN */
+
+#if !defined(PAR) || defined(GRAN)
+extern StgEvacFun _Evacuate_ForeignObj;
+extern StgScavFun _Scavenge_ForeignObj;
 #endif /* PAR */
 
+
 extern StgEvacFun _Evacuate_BH_N;
 extern StgScavFun _Scavenge_BH_N;