X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmExpr.hs;h=a4d07c2c60316f6956af3e51d0241fa7219800ba;hb=63cd3a632e974b2fde5b934b94260e2c79bcb23e;hp=e1a78a707e3f026a0a34a861cbc346520c966a8c;hpb=b25c93f1c914d81d77aeafeb49263f29bed128aa;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs
index e1a78a7..a4d07c2 100644
--- a/compiler/cmm/CmmExpr.hs
+++ b/compiler/cmm/CmmExpr.hs
@@ -117,7 +117,10 @@ End of note -}
 
 type SubArea    = (Area, Int, Int) -- area, offset, width
 type SubAreaSet = FiniteMap Area [SubArea]
+
 type AreaMap    = FiniteMap Area Int
+     -- Byte offset of the oldest byte of the Area, 
+     -- relative to the oldest byte of the Old Area
 
 data CmmLit
   = CmmInt Integer  Width