From: simonm <unknown>
Date: Fri, 17 Apr 1998 10:13:36 +0000 (+0000)
Subject: [project @ 1998-04-17 10:13:36 by simonm]
X-Git-Tag: Approx_2487_patches~783
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0cbf71e09cd8d9eeb6982544c8b359913a0cd8e8;p=ghc-hetmet.git

[project @ 1998-04-17 10:13:36 by simonm]
- support the .p2align directive on x86 a.out architectures.  This
  might be required for others, too.
---

diff --git a/ghc/driver/ghc-asm.lprl b/ghc/driver/ghc-asm.lprl
index 6c6ac74..58f77ec 100644
--- a/ghc/driver/ghc-asm.lprl
+++ b/ghc/driver/ghc-asm.lprl
@@ -117,7 +117,7 @@ sub init_TARGET_STUFF {
     $T_X86_PRE_LLBL	    = 'L';
     $T_X86_BADJMP   = '^\tjmp [^L\*]';
 
-    $T_MOVE_DIRVS   = '^(\s*(\.align\s+\d+(,0x90)?|\.globl\s+\S+|\.text|\.data|\.stab[^n].*|\.type\s+.*|\.size\s+.*)\n)';
+    $T_MOVE_DIRVS   = '^(\s*(\.(p2)?align\s+\d+(,0x90)?|\.globl\s+\S+|\.text|\.data|\.stab[^n].*|\.type\s+.*|\.size\s+.*)\n)';
     $T_COPY_DIRVS   = '\.(globl|stab)';
     $T_hsc_cc_PAT   = '\.ascii.*\)(hsc|cc) (.*)\\\\11"\n\t\.ascii\s+"(.*)\\\\0"';
     $T_DOT_WORD	    = '\.long';