From: panne <unknown>
Date: Tue, 11 Jul 2000 20:45:29 +0000 (+0000)
Subject: [project @ 2000-07-11 20:45:29 by panne]
X-Git-Tag: Approximately_9120_patches~4031
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8223bac632c3be67018ae6b29ceab89167dcffa5;p=ghc-hetmet.git

[project @ 2000-07-11 20:45:29 by panne]
Hash MachLabel, too
---

diff --git a/ghc/compiler/basicTypes/Literal.lhs b/ghc/compiler/basicTypes/Literal.lhs
index 54af473..b3037d1 100644
--- a/ghc/compiler/basicTypes/Literal.lhs
+++ b/ghc/compiler/basicTypes/Literal.lhs
@@ -340,6 +340,7 @@ hashLiteral (MachWord i)   	= hashInteger i
 hashLiteral (MachWord64 i) 	= hashInteger i
 hashLiteral (MachFloat r)   	= hashRational r
 hashLiteral (MachDouble r)  	= hashRational r
+hashLiteral (MachLabel s)       = hashFS s
 hashLiteral (MachLitLit s _)    = hashFS s
 
 hashRational :: Rational -> Int