diff options
| author | Reid Barton <rwbarton@gmail.com> | 2016-02-29 17:35:43 -0500 |
|---|---|---|
| committer | Reid Barton <rwbarton@gmail.com> | 2016-02-29 17:35:43 -0500 |
| commit | 0fd5db798e31912f335e4553e939e1e783284495 (patch) | |
| tree | 43f1d3c8466b7e4276dfb3bb25e2a1839d7265f8 /compiler/nativeGen/X86/Ppr.hs | |
| parent | 49c55e68aae9841c166430ae566b0d9bdc03c99d (diff) | |
| download | haskell-wip/rwbarton-tiny-tables.tar.gz | |
Experiment with one-byte info tableswip/rwbarton-tiny-tables
Diffstat (limited to 'compiler/nativeGen/X86/Ppr.hs')
| -rw-r--r-- | compiler/nativeGen/X86/Ppr.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs index 7809ae1df9..b5111a1a99 100644 --- a/compiler/nativeGen/X86/Ppr.hs +++ b/compiler/nativeGen/X86/Ppr.hs @@ -108,6 +108,11 @@ pprBasicBlock info_env (BasicBlock blockid instrs) asmLbl = mkAsmTempLabel (getUnique blockid) maybe_infotable = case mapLookup blockid info_env of Nothing -> empty + Just (Statics info_lbl [b8@(CmmStaticLit (CmmInt _ W8))]) -> + text ".align 2" $$ -- XXX Needs to be adjusted for darwin + infoTableLoc $$ + pprData b8 $$ + pprLabel info_lbl Just (Statics info_lbl info) -> pprAlignForSection Text $$ infoTableLoc $$ |