Commit c733b2d7 authored by simonm's avatar simonm
Browse files

[project @ 1999-03-08 17:05:41 by simonm]

Fix bug in mkRegLiveness causing bogus heap checks to be generated on the Sparc.
parent 54edac78
% %
% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
% %
% $Id: CgHeapery.lhs,v 1.14 1999/03/02 16:09:28 simonm Exp $ % $Id: CgHeapery.lhs,v 1.15 1999/03/08 17:05:41 simonm Exp $
% %
\section[CgHeapery]{Heap management functions} \section[CgHeapery]{Heap management functions}
...@@ -343,7 +343,7 @@ altHeapCheck is_fun regs [] AbsCNop Nothing code ...@@ -343,7 +343,7 @@ altHeapCheck is_fun regs [] AbsCNop Nothing code
mkRegLiveness :: [MagicId] -> Word# mkRegLiveness :: [MagicId] -> Word#
mkRegLiveness [] = int2Word# 0# mkRegLiveness [] = int2Word# 0#
mkRegLiveness (VanillaReg rep i : regs) | isFollowableRep rep mkRegLiveness (VanillaReg rep i : regs) | isFollowableRep rep
= ((int2Word# 1#) `shiftL#` (i -# 1#)) = ((int2Word# 1#) `shiftL#` (i -# 1#)) `or#` mkRegLiveness regs
mkRegLiveness (_ : regs) = mkRegLiveness regs mkRegLiveness (_ : regs) = mkRegLiveness regs
-- Emit macro for simulating a fetch and then reschedule -- Emit macro for simulating a fetch and then reschedule
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment