diff options
| author | simonm <unknown> | 1999-03-02 16:09:28 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1999-03-02 16:09:28 +0000 |
| commit | 7f0835583aade367f5a8f643c042ecd230af83ac (patch) | |
| tree | 62fabe9b48259051a47369607b451889f5c53f53 /ghc/compiler/codeGen | |
| parent | 44ff0cd1c0b00f4627afe976d27c9bcedb39751f (diff) | |
| download | haskell-7f0835583aade367f5a8f643c042ecd230af83ac.tar.gz | |
[project @ 1999-03-02 16:09:28 by simonm]
Add missing default case to mkRegLiveness.
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgHeapery.lhs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/ghc/compiler/codeGen/CgHeapery.lhs b/ghc/compiler/codeGen/CgHeapery.lhs index c3839985dc..7bca34db45 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.13 1999/01/26 16:16:33 simonm Exp $ +% $Id: CgHeapery.lhs,v 1.14 1999/03/02 16:09:28 simonm Exp $ % \section[CgHeapery]{Heap management functions} @@ -341,11 +341,10 @@ altHeapCheck is_fun regs [] AbsCNop Nothing code -- build up a bitmap of the live pointer registers mkRegLiveness :: [MagicId] -> Word# -mkRegLiveness [] = int2Word# 0# -mkRegLiveness (VanillaReg rep i : regs) - | isFollowableRep rep = ((int2Word# 1#) `shiftL#` (i -# 1#)) - `or#` mkRegLiveness regs - | otherwise = mkRegLiveness regs +mkRegLiveness [] = int2Word# 0# +mkRegLiveness (VanillaReg rep i : regs) | isFollowableRep rep + = ((int2Word# 1#) `shiftL#` (i -# 1#)) +mkRegLiveness (_ : regs) = mkRegLiveness regs -- Emit macro for simulating a fetch and then reschedule |