[Git][ghc/ghc][wip/angerman/aarch64-ncg] :facepalm:

[Moritz Angermann]

Moritz Angermann pushed to branch wip/angerman/aarch64-ncg at Glasgow Haskell Compiler / GHC


Commits:
0f47da63 by Moritz Angermann at 2020-10-23T23:32:00+08:00
:facepalm:

- - - - -


1 changed file:

- compiler/GHC/CmmToAsm/AArch64/Ppr.hs


Changes:

=====================================
compiler/GHC/CmmToAsm/AArch64/Ppr.hs
=====================================
@@ -551,11 +551,11 @@ pprInstr platform instr = case instr of
     text "\tadd" <+> pprOp o1 <> comma <+> pprOp o1 <> comma <+> char '#' <> int off -- XXX: check that off is in 12bits.
 
   LDR _f o1 (OpImm (ImmCLbl lbl')) | Just (_info, lbl) <- dynamicLinkerLabelInfo lbl' ->
-    text "\tadrp" <+> pprOp o1 <> comma <+> text ":got:" ppr lbl $$
+    text "\tadrp" <+> pprOp o1 <> comma <+> text ":got:" <> ppr lbl $$
     text "\tldr" <+> pprOp o1 <> comma <+> text "[" <> pprOp o1 <> comma <+> text ":got_lo12:" <> ppr lbl <> text "]"
 
   LDR _f o1 (OpImm (ImmCLbl lbl)) | isForeignLabel lbl ->
-    text "\tadrp" <+> pprOp o1 <> comma <+> text ":got:" ppr lbl $$
+    text "\tadrp" <+> pprOp o1 <> comma <+> text ":got:" <> ppr lbl $$
     text "\tldr" <+> pprOp o1 <> comma <+> text "[" <> pprOp o1 <> comma <+> text ":got_lo12:" <> ppr lbl <> text "]"
 
   LDR _f o1 (OpImm (ImmCLbl lbl)) ->



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0f47da637496321c0d0bdf34a34d22093d6c0236

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0f47da637496321c0d0bdf34a34d22093d6c0236
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20201023/a4a2b45f/attachment-0001.html>