From: rrt <unknown>
Date: Mon, 5 Feb 2001 17:50:26 +0000 (+0000)
Subject: [project @ 2001-02-05 17:50:26 by rrt]
X-Git-Tag: Approximately_9120_patches~2746
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=47134232cb81d7afa7f22a4e24d87ecd13319692;p=ghc-hetmet.git

[project @ 2001-02-05 17:50:26 by rrt]
Improved comment.
---

diff --git a/ghc/compiler/basicTypes/Literal.lhs b/ghc/compiler/basicTypes/Literal.lhs
index 62ead1c..fb93ef4 100644
--- a/ghc/compiler/basicTypes/Literal.lhs
+++ b/ghc/compiler/basicTypes/Literal.lhs
@@ -99,6 +99,8 @@ data Literal
   | MachFloat	Rational
   | MachDouble	Rational
 
+        -- MachLabel is used (only) for the literal derived from a 
+	-- "foreign label" declaration.
 	-- string argument is the name of a symbol.  This literal
 	-- refers to the *address* of the label.
   | MachLabel   FAST_STRING		-- always an Addr#