diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-09-23 10:01:40 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-09-23 10:44:19 +0100 |
| commit | 65c837a3f267ff949d491802de2309b1f347356d (patch) | |
| tree | 955962c8db691c48ffb3f08c01c78a5a05265461 | |
| parent | 3d328eb57b027e45eba71de32aa39c7f4defee2b (diff) | |
| download | haskell-65c837a3f267ff949d491802de2309b1f347356d.tar.gz | |
Typo [skip ci]wip/typo-cg
| -rw-r--r-- | compiler/GHC/CmmToAsm/AArch64/CodeGen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToAsm/AArch64/CodeGen.hs b/compiler/GHC/CmmToAsm/AArch64/CodeGen.hs index 8d77e8df63..e05fb38e60 100644 --- a/compiler/GHC/CmmToAsm/AArch64/CodeGen.hs +++ b/compiler/GHC/CmmToAsm/AArch64/CodeGen.hs @@ -427,7 +427,7 @@ getRegister e = do getRegister' :: NCGConfig -> Platform -> CmmExpr -> NatM Register -- OPTIMIZATION WARNING: CmmExpr rewrites -- 1. Rewrite: Reg + (-n) => Reg - n --- TODO: this expression souldn't even be generated to begin with. +-- TODO: this expression shouldn't even be generated to begin with. getRegister' config plat (CmmMachOp (MO_Add w0) [x, CmmLit (CmmInt i w1)]) | i < 0 = getRegister' config plat (CmmMachOp (MO_Sub w0) [x, CmmLit (CmmInt (-i) w1)]) |