diff options
| author | sewardj <unknown> | 2000-01-17 16:24:45 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-17 16:24:45 +0000 |
| commit | 04280d87ccb3912f539d43ffedf20940c9eafe1a (patch) | |
| tree | 8df4e6c2b58d5c1c3469ff28667c8db3780d973e /ghc/compiler/nativeGen | |
| parent | 2b40f3a586dcc956e2fcd5bc98011fcee1ca3259 (diff) | |
| download | haskell-04280d87ccb3912f539d43ffedf20940c9eafe1a.tar.gz | |
[project @ 2000-01-17 16:24:45 by sewardj]
Change alignment directives for x86 segment changes to something
more plausible-looking for Linux.
Diffstat (limited to 'ghc/compiler/nativeGen')
| -rw-r--r-- | ghc/compiler/nativeGen/PprMach.lhs | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs index 766c2b32e4..3e8bde036f 100644 --- a/ghc/compiler/nativeGen/PprMach.lhs +++ b/ghc/compiler/nativeGen/PprMach.lhs @@ -400,16 +400,24 @@ pprInstr (SEGMENT TextSegment) = ptext IF_ARCH_alpha(SLIT("\t.text\n\t.align 3") {-word boundary-} ,IF_ARCH_sparc(SLIT("\t.text\n\t.align 4") {-word boundary-} - ,IF_ARCH_i386((_PK_ ".text\n\t.align 2\x2c\&0x90") {-needs per-OS variation!-} + ,IF_ARCH_i386((_PK_ ".text\n\t.align 4") {-needs per-OS variation!-} ,))) +#if 0 + ,IF_ARCH_i386((_PK_ ".text\n\t.align 2\x2c\&0x90") {-needs per-OS variation!-} +#endif + pprInstr (SEGMENT DataSegment) = ptext IF_ARCH_alpha(SLIT("\t.data\n\t.align 3") ,IF_ARCH_sparc(SLIT("\t.data\n\t.align 8") {-<8 will break double constants -} - ,IF_ARCH_i386(SLIT(".data\n\t.align 2") + ,IF_ARCH_i386(SLIT(".data\n\t.align 4") ,))) +#if 0 + ,IF_ARCH_i386(SLIT(".data\n\t.align 2") +#endif + pprInstr (LABEL clab) = let pp_lab = pprCLabel_asm clab |