projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-01-03 11:44:17 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
codeGen
/
CgMonad.lhs
diff --git
a/ghc/compiler/codeGen/CgMonad.lhs
b/ghc/compiler/codeGen/CgMonad.lhs
index
40c8c57
..
25c36cd
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.32 2001/11/23 11:46:31 simonmar Exp $
+% $Id: CgMonad.lhs,v 1.33 2002/01/03 11:44:17 simonmar Exp $
%
\section[CgMonad]{The code generation monad}
%
\section[CgMonad]{The code generation monad}
@@
-608,6
+608,10
@@
getEndOfBlockInfo = do
return eob_info
\end{code}
return eob_info
\end{code}
+There is just one SRT for each top level binding; all the nested
+bindings use sub-sections of this SRT. The label is passed down to
+the nested bindings via the monad.
+
\begin{code}
getSRTInfo :: SRT -> FCode C_SRT
getSRTInfo NoSRT = return NoC_SRT
\begin{code}
getSRTInfo :: SRT -> FCode C_SRT
getSRTInfo NoSRT = return NoC_SRT