projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-08-17 15:23:47 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
codeGen
/
CgCallConv.hs
diff --git
a/ghc/compiler/codeGen/CgCallConv.hs
b/ghc/compiler/codeGen/CgCallConv.hs
index
fa98f96
..
7be8b84
100644
(file)
--- a/
ghc/compiler/codeGen/CgCallConv.hs
+++ b/
ghc/compiler/codeGen/CgCallConv.hs
@@
-57,7
+57,7
@@
import Name ( Name )
import TyCon ( TyCon, tyConFamilySize )
import Bitmap ( Bitmap, mAX_SMALL_BITMAP_SIZE,
mkBitmap, intsToReverseBitmap )
import TyCon ( TyCon, tyConFamilySize )
import Bitmap ( Bitmap, mAX_SMALL_BITMAP_SIZE,
mkBitmap, intsToReverseBitmap )
-import Util ( isn'tIn, sortLt )
+import Util ( isn'tIn, sortLe )
import CmdLineOpts ( opt_Unregisterised )
import FastString ( LitString )
import Outputable
import CmdLineOpts ( opt_Unregisterised )
import FastString ( LitString )
import Outputable
@@
-350,7
+350,7
@@
buildContLiveness name live_slots
-- (subtract one for the frame-header = return address).
rel_slots :: [WordOff]
-- (subtract one for the frame-header = return address).
rel_slots :: [WordOff]
- rel_slots = sortLt (<)
+ rel_slots = sortLe (<=)
[ start_sp - ofs -- Get slots relative to top of frame
| ofs <- live_slots ]
[ start_sp - ofs -- Get slots relative to top of frame
| ofs <- live_slots ]