Skip to content
Snippets Groups Projects
Commit 8223bac6 authored by sven.panne@aedion.de's avatar sven.panne@aedion.de
Browse files

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

Hash MachLabel, too
parent c38093b5
No related merge requests found
Hide whitespace changes
Inline Side-by-side
ghc/compiler/basicTypes/Literal.lhs
+ 1
− 0
View file @ 8223bac6
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment