Commit 8223bac6 authored by panne's avatar panne
Browse files

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

Hash MachLabel, too
parent c38093b5
......@@ -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
......
Markdown is supported
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