[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 (file)
--- 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#