X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPprMach.hs;h=694e487058cff57a86dcc62a349b4c220ff96f67;hb=497d3a963f679681db098588bcab00121687c8ed;hp=0c14ff8f7bc9fe809ed4183d6e1f35bb8ece7e6a;hpb=0d80489c9b9f2421f65d8dd86c1e50c6bb429715;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs
index 0c14ff8..694e487 100644
--- a/compiler/nativeGen/PprMach.hs
+++ b/compiler/nativeGen/PprMach.hs
@@ -83,7 +83,7 @@ pprNatCmmTop (CmmProc info lbl params (ListGraph blocks)) =
        pprLabel (entryLblToInfoLbl lbl)
   ) $$
   vcat (map pprBasicBlock blocks)
-     -- ^ Even the first block gets a label, because with branch-chain
+     -- above: Even the first block gets a label, because with branch-chain
      -- elimination, it might be the target of a goto.
 #if HAVE_SUBSECTIONS_VIA_SYMBOLS
         -- If we are using the .subsections_via_symbols directive
@@ -349,7 +349,7 @@ pprReg IF_ARCH_i386(s,) IF_ARCH_x86_64(s,) r
     ppr_reg_no :: Int -> Doc
     ppr_reg_no i | i <= 31 = int i	-- GPRs
                  | i <= 63 = int (i-32) -- FPRs
-		 | otherwise = ptext sLit "very naughty powerpc register"
+                 | otherwise = ptext (sLit "very naughty powerpc register")
 #endif
 #endif