X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgClosure.lhs;h=b2bd1fe89c828554809a19d28fe234ca53c72a1b;hb=99073d876ea762016683fb0b22b9d343ff864eb4;hp=34a84cc93c62cc72b9a53e228fa0b137a42901d8;hpb=323fee1e8cbabe604496a1b92c6de0e98ca037e4;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgClosure.lhs b/ghc/compiler/codeGen/CgClosure.lhs
index 34a84cc..b2bd1fe 100644
--- a/ghc/compiler/codeGen/CgClosure.lhs
+++ b/ghc/compiler/codeGen/CgClosure.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: CgClosure.lhs,v 1.41 2000/07/14 08:14:53 simonpj Exp $
+% $Id: CgClosure.lhs,v 1.42 2000/10/24 08:40:09 simonpj Exp $
 %
 \section[CgClosure]{Code generation for closures}
 
@@ -57,7 +57,8 @@ import Outputable
 
 import Name             ( nameOccName )
 import OccName          ( occNameFS )
-
+import FastTypes	( iBox )
+	
 getWrapperArgTypeCategories = panic "CgClosure.getWrapperArgTypeCategories (ToDo)"
 \end{code}
 
@@ -539,7 +540,7 @@ argSatisfactionCheck closure_info arg_regs
 
         getSpRelOffset 0 	`thenFC` \ (SpRel sp) ->
 	let
-	    off = I# sp
+	    off     = iBox sp
 	    rel_arg = mkIntCLit off
 	in
 	ASSERT(off /= 0)