diff options
Diffstat (limited to 'ghc/includes/SMcompact.lh')
| -rw-r--r-- | ghc/includes/SMcompact.lh | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/ghc/includes/SMcompact.lh b/ghc/includes/SMcompact.lh index 9fb25d819b..c491b5b995 100644 --- a/ghc/includes/SMcompact.lh +++ b/ghc/includes/SMcompact.lh @@ -85,7 +85,7 @@ extern StgScanFun _ScanLink_MuTuple; 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; @@ -117,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; @@ -158,7 +159,7 @@ extern StgScanFun _ScanMove_PI; #endif #ifndef PAR -extern StgScanFun _ScanMove_MallocPtr; +extern StgScanFun _ScanMove_ForeignObj; #endif /* !PAR */ extern StgScanFun _ScanMove_ImmuTuple; |