diff options
| author | simonmar <unknown> | 2002-01-03 11:44:17 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-01-03 11:44:17 +0000 |
| commit | beaf0404918eae2faf8a1783009a601f81984ac7 (patch) | |
| tree | 7a19f3868f49dc2ecf23276114b7f46b793dcab2 /ghc/compiler/codeGen | |
| parent | 8ec6cc30f339956cf3004dfeb708eec34aebe97a (diff) | |
| download | haskell-beaf0404918eae2faf8a1783009a601f81984ac7.tar.gz | |
[project @ 2002-01-03 11:44:17 by simonmar]
Add comment.
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgMonad.lhs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ghc/compiler/codeGen/CgMonad.lhs b/ghc/compiler/codeGen/CgMonad.lhs index 40c8c570b5..25c36cd3f5 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.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} @@ -608,6 +608,10 @@ getEndOfBlockInfo = do 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 |