X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgMonad.lhs;fp=ghc%2Fcompiler%2FcodeGen%2FCgMonad.lhs;h=25c36cd3f58c16fcb6e9df8f75c5829d4c580386;hb=beaf0404918eae2faf8a1783009a601f81984ac7;hp=40c8c570b510aa5aeeadef8f591a7486dfac4b73;hpb=8ec6cc30f339956cf3004dfeb708eec34aebe97a;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgMonad.lhs b/ghc/compiler/codeGen/CgMonad.lhs
index 40c8c57..25c36cd 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