X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FLiteral.lhs;h=fb93ef490a6f5d0b518f64318b62cfe18b3c4772;hb=17de8ea2c9bc3bd3485737a3514e9fa8bcaec4f7;hp=62ead1c08a91988ebd8399936d00be62237f9db3;hpb=531d0d264fafd66aece5ca38d2bfcd266a8fd3e5;p=ghc-hetmet.git

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#