diff options
| author | Reid Barton <rwbarton@gmail.com> | 2016-01-28 13:10:42 -0500 |
|---|---|---|
| committer | Reid Barton <rwbarton@gmail.com> | 2016-01-28 13:11:30 -0500 |
| commit | d03a0ae909fb99da60ba345019632386e87525b0 (patch) | |
| tree | df9bf738a32c9cbe84bc0abd86ddb9208016590e | |
| parent | 0dc7b36c3c261b3eccf8460581fcd3d71f6e6ff6 (diff) | |
| download | haskell-wip/rwbarton-align4.tar.gz | |
Try aligning info tables to 4 byteswip/rwbarton-align4
| -rw-r--r-- | compiler/nativeGen/X86/Ppr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs index 7809ae1df9..301c44b034 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 |