X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgCallConv.hs;h=7be8b849821ed4ed960411983b711507d47cc84c;hb=59c796f8e77325d35f29ddd3e724bfa780466d40;hp=fa98f96378f9fc40eeb4ddb83ad800b683508ce6;hpb=c8898df0380dad4705353de00a48ea105d00bcc5;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgCallConv.hs b/ghc/compiler/codeGen/CgCallConv.hs
index fa98f96..7be8b84 100644
--- 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 Util		( isn'tIn, sortLt )
+import Util		( isn'tIn, sortLe )
 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]
-	 	rel_slots = sortLt (<) 
+	 	rel_slots = sortLe (<=) 
 	    	    [ start_sp - ofs  -- Get slots relative to top of frame
 	    	    | ofs <- live_slots ]