From beaf0404918eae2faf8a1783009a601f81984ac7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 3 Jan 2002 11:44:17 +0000
Subject: [PATCH] [project @ 2002-01-03 11:44:17 by simonmar] Add comment.

---
 ghc/compiler/codeGen/CgMonad.lhs |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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
-- 
1.7.10.4