diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-01-26 22:13:51 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-01-29 14:52:56 -0500 |
| commit | 512ed3f1ceffd8da5dab91a4d0d7b16cfed18fd3 (patch) | |
| tree | 3495bd793e589b094a3950342ed2e0a8d79ecca4 | |
| parent | 5771b69007f1c218db8ddc1652ffd3c0ba6d0682 (diff) | |
| download | haskell-512ed3f1ceffd8da5dab91a4d0d7b16cfed18fd3.tar.gz | |
CmmToAsm: Make RealReg a newtype
Now that RegPair is gone we no longer need to pay for the additional
box.
| -rw-r--r-- | compiler/GHC/Platform/Reg.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Platform/Reg.hs b/compiler/GHC/Platform/Reg.hs index 8b4757744b..3b160f467e 100644 --- a/compiler/GHC/Platform/Reg.hs +++ b/compiler/GHC/Platform/Reg.hs @@ -142,8 +142,8 @@ getHiVRegFromLo reg -- the usual way. We know what class they are, because that's part of -- the processor's architecture. -- -data RealReg - = RealRegSingle {-# UNPACK #-} !RegNo +newtype RealReg + = RealRegSingle RegNo deriving (Eq, Show, Ord) instance Uniquable RealReg where |