From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 27 Feb 2006 15:28:22 +0000 (+0000)
Subject: x86_64: include .type and .size directives in the output, for valgrind
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ddb2e508c45dabf52d61cb019b0aead66e5ffaf7;p=ghc-hetmet.git

x86_64: include .type and .size directives in the output, for valgrind
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 19c3012..d4f06e0 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -219,7 +219,7 @@ sub init_TARGET_STUFF {
     $T_POST_LBL     = ':';
 
     $T_MOVE_DIRVS   = '^(\s*\.(globl|text|data|section|align|size|type|ident|local)\s+.*\n)';
-    $T_COPY_DIRVS   = '\.(globl|local)';
+    $T_COPY_DIRVS   = '\.(globl|type|size|local)';
 
     $T_DOT_WORD     = '\.(quad|long|value|byte|zero)';
     $T_DOT_GLOBAL   = '\.global';