[commit: ghc] wip/rwbarton-align4: Try aligning info tables to 4 bytes (d03a0ae)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/rwbarton-align4
Link       : http://ghc.haskell.org/trac/ghc/changeset/d03a0ae909fb99da60ba345019632386e87525b0/ghc

>---------------------------------------------------------------

commit d03a0ae909fb99da60ba345019632386e87525b0
Author: Reid Barton <rwbarton at gmail.com>
Date:   Thu Jan 28 13:10:42 2016 -0500

    Try aligning info tables to 4 bytes


>---------------------------------------------------------------

d03a0ae909fb99da60ba345019632386e87525b0
 compiler/nativeGen/X86/Ppr.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs
index 7809ae1..301c44b 100644
--- a/compiler/nativeGen/X86/Ppr.hs
+++ b/compiler/nativeGen/X86/Ppr.hs
@@ -109,7 +109,7 @@ pprBasicBlock info_env (BasicBlock blockid instrs)
     maybe_infotable = case mapLookup blockid info_env of
        Nothing   -> empty
        Just (Statics info_lbl info) ->
-           pprAlignForSection Text $$
+           text ".align 4" $$
            infoTableLoc $$
            vcat (map pprData info) $$
            pprLabel info_lbl