-- | Determine all the regs that make up a certain class.
---
regsOfClass :: RegClass -> UniqSet Reg
regsOfClass c
= case c of
-- | 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