From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 12 Dec 2006 10:32:37 +0000 (+0000)
Subject: Fix the pattern for _hpc symbols: it incorrectly matched the _hp suffix too
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c667b12e4225d99cee8d3ae14e61c2e015fa38e0;p=ghc-hetmet.git

Fix the pattern for _hpc symbols: it incorrectly matched the _hp suffix too
This has the undesitrable effect that stg_gc_gen_hp in the RTS was
caught as an HPC symbol and put in the data segment.
---

diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl
index 98e7a49..8912ddb 100644
--- a/driver/mangler/ghc-asm.lprl
+++ b/driver/mangler/ghc-asm.lprl
@@ -725,7 +725,7 @@ sub mangle_asm {
 	    $chkcat[$i]  = 'data';
 	    $chksymb[$i] = '';
 
-        } elsif ( /^${T_US}([A-Za-z0-9_]+)_hpc?${T_POST_LBL}$/o ) {
+        } elsif ( /^${T_US}([A-Za-z0-9_]+)_hpc${T_POST_LBL}$/o ) {
            # hpc shares tick boxes across modules
            $chk[++$i]   = $_;
            $chkcat[$i]  = 'data';