From 04280d87ccb3912f539d43ffedf20940c9eafe1a Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Mon, 17 Jan 2000 16:24:45 +0000
Subject: [PATCH] [project @ 2000-01-17 16:24:45 by sewardj] Change alignment
directives for x86 segment changes to something more plausible-looking for
Linux.
---
ghc/compiler/nativeGen/PprMach.lhs | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index 766c2b32e47b..3e8bde036ff9 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
--
GitLab