From: simonmar <unknown>
Date: Mon, 15 Jan 2001 09:16:03 +0000 (+0000)
Subject: [project @ 2001-01-15 09:16:03 by simonmar]
X-Git-Tag: Approximately_9120_patches~2910
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6db8367a09597a8e705be23a62fde8782c9ded60;p=ghc-hetmet.git

[project @ 2001-01-15 09:16:03 by simonmar]
Improve the test for "still has jump to fast entry point": it was
turning up a false positive.
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 44f4693..6e5da21 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -1084,7 +1084,7 @@ sub mangle_asm {
 		    # references to fast-entry point.
 		    # (questionable re hppa and mips...)
 		    print STDERR "still has jump to fast entry point:\n$c"
-			if $c =~ /${T_US}${symb}_fast/;
+			if $c =~ /\b${T_US}${symb}_fast/;
 		}
 
 		print OUTASM $T_HDR_entry;