[project @ 2000-07-11 20:45:29 by panne]

Hash MachLabel, too

[project @ 2000-07-11 20:45:29 by panne]
Hash MachLabel, too
8223bac6 · panne · c38093b5 · 8223bac6
Commit 8223bac6 authored Jul 11, 2000 by panne
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

ghc/compiler/basicTypes/Literal.lhs ghc/compiler/basicTypes/Literal.lhs +1 -0

No files found.
--- 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