From: matthewc <unknown>
Date: Sun, 9 Jun 2002 13:39:14 +0000 (+0000)
Subject: [project @ 2002-06-09 13:39:14 by matthewc]
X-Git-Tag: Approx_11550_changesets_converted~1981
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=16fc3bfa87946607d6e477464e56f11e86e52597;hp=52f5a164e64fe5c443445cfc59345920506b4f2a;p=ghc-hetmet.git

[project @ 2002-06-09 13:39:14 by matthewc]
Recognise .subsection directive (IA64).
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 4dc5b49..3c6b2b4 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -221,7 +221,7 @@ sub init_TARGET_STUFF {
     $T_CONST_LBL    = '^\.LC(\d+):$'; # regexp for what such a lbl looks like
     $T_POST_LBL     = ':';
 
-    $T_MOVE_DIRVS   = '^(\s*\.(global|proc|pred\.safe_across_calls|text|data|section|align|size|type|ident)\s+.*\n)';
+    $T_MOVE_DIRVS   = '^(\s*\.(global|proc|pred\.safe_across_calls|text|data|section|subsection|align|size|type|ident)\s+.*\n)';
     $T_COPY_DIRVS   = '\.(global|proc)';
 
     $T_hsc_cc_PAT   = '\.string.*\)(hsc|cc) (.*)\\\\t(.*)"';