projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8ec6cc3
)
[project @ 2002-01-03 11:44:17 by simonmar]
author
simonmar
<unknown>
Thu, 3 Jan 2002 11:44:17 +0000
(11:44 +0000)
committer
simonmar
<unknown>
Thu, 3 Jan 2002 11:44:17 +0000
(11:44 +0000)
Add comment.
ghc/compiler/codeGen/CgMonad.lhs
patch
|
blob
|
history
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