Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
c733b2d7
Commit
c733b2d7
authored
Mar 08, 1999
by
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
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/codeGen/CgHeapery.lhs
View file @
c733b2d7
%
% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
%
% $Id: CgHeapery.lhs,v 1.1
4
1999/03/0
2
1
6
:0
9:28
simonm Exp $
% $Id: CgHeapery.lhs,v 1.1
5
1999/03/0
8
1
7
:0
5:41
simonm Exp $
%
\section[CgHeapery]{Heap management functions}
...
...
@@ -343,7 +343,7 @@ altHeapCheck is_fun regs [] AbsCNop Nothing code
mkRegLiveness :: [MagicId] -> Word#
mkRegLiveness [] = int2Word# 0#
mkRegLiveness (VanillaReg rep i : regs) | isFollowableRep rep
= ((int2Word# 1#) `shiftL#` (i -# 1#))
= ((int2Word# 1#) `shiftL#` (i -# 1#))
`or#` mkRegLiveness regs
mkRegLiveness (_ : regs) = mkRegLiveness regs
-- Emit macro for simulating a fetch and then reschedule
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment