From: simonmar <unknown>
Date: Thu, 3 Jan 2002 11:44:17 +0000 (+0000)
Subject: [project @ 2002-01-03 11:44:17 by simonmar]
X-Git-Tag: Approximately_9120_patches~334
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=beaf0404918eae2faf8a1783009a601f81984ac7;p=ghc-hetmet.git

[project @ 2002-01-03 11:44:17 by simonmar]
Add comment.
---

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