From: simonm Date: Mon, 15 Mar 1999 16:31:02 +0000 (+0000) Subject: [project @ 1999-03-15 16:31:02 by simonm] X-Git-Tag: Approximately_9120_patches~6390 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e18e743b72e43200efba7c72494179464d68231b;p=ghc-hetmet.git [project @ 1999-03-15 16:31:02 by simonm] Reduce alignment for info tables on x86 to 1 word. It was previously 4 words, which meant that the entry code was wrongly aligned all the time (because info tables are either 2 or 3 words). At least this way we've got a 1 in 4 chance of being properly aligned. --- diff --git a/ghc/driver/ghc-asm.lprl b/ghc/driver/ghc-asm.lprl index d81240c..cdf8d7a 100644 --- a/ghc/driver/ghc-asm.lprl +++ b/ghc/driver/ghc-asm.lprl @@ -164,11 +164,11 @@ sub init_TARGET_STUFF { $T_HDR_consist = "\.text\n"; $T_HDR_closure = "\.data\n\t\.align 4\n"; # ToDo: change align? $T_HDR_srt = "\.data\n\t\.align 4\n"; # ToDo: change align? - $T_HDR_info = "\.text\n\t\.align 16\n"; # NB: requires padding + $T_HDR_info = "\.text\n\t\.align 4\n"; # NB: requires padding $T_HDR_entry = "\.text\n"; # no .align so we're right next to _info (arguably wrong...?) - $T_HDR_fast = "\.text\n\t\.align 16\n"; - $T_HDR_vector = "\.text\n\t\.align 16\n"; # NB: requires padding - $T_HDR_direct = "\.text\n\t\.align 16\n"; + $T_HDR_fast = "\.text\n\t\.align 4\n"; + $T_HDR_vector = "\.text\n\t\.align 4\n"; # NB: requires padding + $T_HDR_direct = "\.text\n\t\.align 4\n"; #--------------------------------------------------------# } elsif ( $TargetPlatform =~ /^m68k-.*-sunos4/ ) {