diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-12-12 10:32:37 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-12-12 10:32:37 +0000 |
| commit | c667b12e4225d99cee8d3ae14e61c2e015fa38e0 (patch) | |
| tree | 344c9c5aeeb6da02a09fb6e995fc974e736bb3f2 /driver | |
| parent | 14ec68724389d204e9121361e015ab776f348c5e (diff) | |
| download | haskell-c667b12e4225d99cee8d3ae14e61c2e015fa38e0.tar.gz | |
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.
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/mangler/ghc-asm.lprl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl index 98e7a49f54..8912ddb6d5 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'; |