From: simonmar <unknown>
Date: Mon, 23 Sep 2002 10:44:07 +0000 (+0000)
Subject: [project @ 2002-09-23 10:44:07 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1650
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8a1b723784343488f7bf1a183bc78184f3f9796d;p=ghc-hetmet.git

[project @ 2002-09-23 10:44:07 by simonmar]
Don't throw away .size and .type directives.  This lets us profile
with cachegrind and get meaningful results from vg_annotate (*very*
useful).
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 9ed28e5..6ff483f 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -188,8 +188,8 @@ sub init_TARGET_STUFF {
     $T_X86_PRE_LLBL	    = '.L';
     $T_X86_BADJMP   = '^\tjmp\s+[^\.\*]';
 
-    $T_MOVE_DIRVS   = '^(\s*(\.(p2)?align\s+\d+(,\s*0x90)?|\.globl\s+\S+|\.text|\.data|\.section\s+.*|\.type\s+.*|\.Lfe.*\n\s*\.size\s+.*|\.size\s+.*|\.ident.*)\n)';
-    $T_COPY_DIRVS   = '\.(globl)';
+    $T_MOVE_DIRVS   = '^(\s*(\.(p2)?align\s+\d+(,\s*0x90)?|\.globl\s+\S+|\.text|\.data|\.section\s+.*|\.type\s+.*|\.ident.*)\n)';
+    $T_COPY_DIRVS   = '^\s*\.(globl|type)';
 
     if ( $TargetPlatform =~ /freebsd|netbsd/ ) {
         $T_hsc_cc_PAT   = '\.ascii.*\)(hsc|cc) (.*)\\\\11"\n\t\.ascii\s+"(.*)\\\\0"';