diff options
author | Moritz Angermann <moritz.angermann@gmail.com> | 2020-09-07 16:14:29 +0000 |
---|---|---|
committer | Moritz Angermann <moritz.angermann@gmail.com> | 2020-09-09 09:58:46 +0800 |
commit | bd0ba0fba5472f8f67933e98c86a965d50b3e36d (patch) | |
tree | a20d52e002f75d83c9c2f8632ff8a3c761c9d28d | |
parent | a894d50f9c9fa3295cd1d1dd2114bee5f0389559 (diff) | |
download | haskell-bd0ba0fba5472f8f67933e98c86a965d50b3e36d.tar.gz |
:sob: :sob:
-rw-r--r-- | compiler/GHC/CmmToAsm/AArch64/Instr.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/CmmToAsm/AArch64/Instr.hs b/compiler/GHC/CmmToAsm/AArch64/Instr.hs index ee4de11734..4b30198847 100644 --- a/compiler/GHC/CmmToAsm/AArch64/Instr.hs +++ b/compiler/GHC/CmmToAsm/AArch64/Instr.hs @@ -523,6 +523,7 @@ allocMoreStack platform slots proc@(CmmProc info lbl live (ListGraph code)) = do insert_dealloc insn r = case insn of J _ -> dealloc ++ (insn : r) + ANN _ (J _) -> dealloc ++ (insn : r) _other | aarch64_jumpDestsOfInstr insn /= [] -> aarch64_patchJumpInstr insn retarget : r _other -> insn : r |