[project @ 2000-01-17 16:24:45 by sewardj]
authorsewardj <unknown>
Mon, 17 Jan 2000 16:24:45 +0000 (16:24 +0000)
committersewardj <unknown>
Mon, 17 Jan 2000 16:24:45 +0000 (16:24 +0000)
Change alignment directives for x86 segment changes to something
more plausible-looking for Linux.

ghc/compiler/nativeGen/PprMach.lhs

index 766c2b3..3e8bde0 100644 (file)
@@ -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