From: geoffw <unknown>
Date: Fri, 21 May 2004 09:25:03 +0000 (+0000)
Subject: [project @ 2004-05-21 09:25:03 by geoffw]
X-Git-Tag: Initial_conversion_from_CVS_complete~1837
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0479146dbed7fdc5f3612f91f4ee1c78b8ce280f;p=ghc-hetmet.git

[project @ 2004-05-21 09:25:03 by geoffw]
mingw/msys fix: keep .lcomm directives
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 5aee942..b19550d 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -152,8 +152,8 @@ sub init_TARGET_STUFF {
     $T_X86_PRE_LLBL	    = 'L';
     $T_X86_BADJMP   = '^\tjmp [^L\*]';
 
-    $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_MOVE_DIRVS   = '^(\s*(\.(p2)?align\s+\d+(,0x90)?|\.globl\s+\S+|\.text|\.data|\.stab[^n].*|\.type\s+.*|\.size\s+.*|\.lcomm.*)\n)';
+    $T_COPY_DIRVS   = '\.(globl|stab|lcomm)';
     $T_hsc_cc_PAT   = '\.ascii.*\)(hsc|cc) (.*)\\\\11"\n\t\.ascii\s+"(.*)\\\\0"';
     $T_DOT_WORD	    = '\.(long|word|value|byte|space)';
     $T_DOT_GLOBAL   = '\.globl';