X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgMonad.lhs;fp=ghc%2Fcompiler%2FcodeGen%2FCgMonad.lhs;h=3b918f6d46bdda0f8c170ff46cdb2ad7a1484f67;hb=5e65c9fef4d73b3109ea9b1063f0e14850ae9af1;hp=780db6445d9821081c13bc672c9e68420c66774c;hpb=713b32a591db467a8e9e266ffa3a3bf453b7d4c3;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgMonad.lhs b/ghc/compiler/codeGen/CgMonad.lhs
index 780db64..3b918f6 100644
--- a/ghc/compiler/codeGen/CgMonad.lhs
+++ b/ghc/compiler/codeGen/CgMonad.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: CgMonad.lhs,v 1.30 2001/09/26 15:11:50 simonpj Exp $
+% $Id: CgMonad.lhs,v 1.31 2001/10/15 16:03:04 simonpj Exp $
 %
 \section[CgMonad]{The code generation monad}
 
@@ -280,7 +280,7 @@ initC :: CompilationInfo -> Code -> AbstractC
 initC cg_info (FCode code)
   = case (code (MkCgInfoDown 
 			cg_info 
-			(error "initC: statics")
+			emptyVarEnv -- (error "initC: statics")
 			(error "initC: srt")
 			(mkTopTickyCtrLabel)
 			initEobInfo)