From: simonpj <unknown>
Date: Tue, 19 Dec 2000 08:34:40 +0000 (+0000)
Subject: [project @ 2000-12-19 08:34:40 by simonpj]
X-Git-Tag: Approximately_9120_patches~3070
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=90d53e5da097448e033857f1de02092633ace0ed;p=ghc-hetmet.git

[project @ 2000-12-19 08:34:40 by simonpj]
Add comment
---

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 64f32ff..495ee67 100644
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -160,6 +160,7 @@ mkTemplateLocals tys = zipWith (mkSysLocal SLIT("tpl"))
 			       tys
 
 mkTemplateLocalsNum :: Int -> [Type] -> [Id]
+-- The Int gives the starting point for unique allocation
 mkTemplateLocalsNum n tys = zipWith (mkSysLocal SLIT("tpl"))
 			       (getNumBuiltinUniques n (length tys))
 			       tys