--
-- This code is here because we can test the architecture specific code against it.
--
---
+
module RegArchBase (
RegClass(..),
Reg(..),
= mkUnique 'S'
$ fromEnum s * 10000 + fromEnum c * 1000 + i
- getUnique (RegSub s (RegSub c _))
+ getUnique (RegSub _ (RegSub _ _))
= error "RegArchBase.getUnique: can't have a sub-reg of a sub-reg."
-- | A subcomponent of another register