diff options
| author | simonmar <unknown> | 2001-12-12 12:20:10 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-12-12 12:20:10 +0000 |
| commit | 23d366594eec3e60a86ea90e4edc42fd5f1d88ee (patch) | |
| tree | ecc9f4d4ce9dd35755767d1b63f7646dbe0a94e1 /ghc/compiler/codeGen/CgHeapery.lhs | |
| parent | e34cff9c046f4b5661d555603833dd2f85ac4e6d (diff) | |
| download | haskell-23d366594eec3e60a86ea90e4edc42fd5f1d88ee.tar.gz | |
[project @ 2001-12-12 12:19:11 by simonmar]
shiftery #ifdefs
Diffstat (limited to 'ghc/compiler/codeGen/CgHeapery.lhs')
| -rw-r--r-- | ghc/compiler/codeGen/CgHeapery.lhs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/ghc/compiler/codeGen/CgHeapery.lhs b/ghc/compiler/codeGen/CgHeapery.lhs index 4049930165..f2707955d1 100644 --- a/ghc/compiler/codeGen/CgHeapery.lhs +++ b/ghc/compiler/codeGen/CgHeapery.lhs @@ -1,7 +1,7 @@ % % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % -% $Id: CgHeapery.lhs,v 1.28 2001/11/23 11:58:00 simonmar Exp $ +% $Id: CgHeapery.lhs,v 1.29 2001/12/12 12:19:11 simonmar Exp $ % \section[CgHeapery]{Heap management functions} @@ -377,10 +377,16 @@ altHeapCheck is_fun regs [] AbsCNop Nothing code -- build up a bitmap of the live pointer registers +#if __GLASGOW_HASKELL__ >= 503 +shiftL = uncheckedShiftL# +#else +shiftL = shiftL# +#endif + mkRegLiveness :: [MagicId] -> Word# mkRegLiveness [] = int2Word# 0# mkRegLiveness (VanillaReg rep i : regs) | isFollowableRep rep - = ((int2Word# 1#) `shiftL#` (i -# 1#)) `or#` mkRegLiveness regs + = ((int2Word# 1#) `shiftL` (i -# 1#)) `or#` mkRegLiveness regs mkRegLiveness (_ : regs) = mkRegLiveness regs -- The two functions below are only used in a GranSim setup |