projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-10-15 16:03:04 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
codeGen
/
CgMonad.lhs
diff --git
a/ghc/compiler/codeGen/CgMonad.lhs
b/ghc/compiler/codeGen/CgMonad.lhs
index
780db64
..
3b918f6
100644
(file)
--- 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
%
%
% (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}
%
\section[CgMonad]{The code generation monad}
@@
-280,7
+280,7
@@
initC :: CompilationInfo -> Code -> AbstractC
initC cg_info (FCode code)
= case (code (MkCgInfoDown
cg_info
initC cg_info (FCode code)
= case (code (MkCgInfoDown
cg_info
- (error "initC: statics")
+ emptyVarEnv -- (error "initC: statics")
(error "initC: srt")
(mkTopTickyCtrLabel)
initEobInfo)
(error "initC: srt")
(mkTopTickyCtrLabel)
initEobInfo)