projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
NCG: Comments and formatting only
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
RegAlloc
/
Graph
/
ArchX86.hs
diff --git
a/compiler/nativeGen/RegAlloc/Graph/ArchX86.hs
b/compiler/nativeGen/RegAlloc/Graph/ArchX86.hs
index
8018f24
..
e12d62d
100644
(file)
--- a/
compiler/nativeGen/RegAlloc/Graph/ArchX86.hs
+++ b/
compiler/nativeGen/RegAlloc/Graph/ArchX86.hs
@@
-31,7
+31,6
@@
classOfReg reg
-- | Determine all the regs that make up a certain class.
-- | Determine all the regs that make up a certain class.
---
regsOfClass :: RegClass -> UniqSet Reg
regsOfClass c
= case c of
regsOfClass :: RegClass -> UniqSet Reg
regsOfClass c
= case c of
@@
-52,7
+51,6
@@
regsOfClass c
-- | Determine the common name of a reg
-- returns Nothing if this reg is not part of the machine.
-- | Determine the common name of a reg
-- returns Nothing if this reg is not part of the machine.
-
regName :: Reg -> Maybe String
regName reg
= case reg of
regName :: Reg -> Maybe String
regName reg
= case reg of