From: simonmar <unknown>
Date: Wed, 13 Dec 2000 11:50:30 +0000 (+0000)
Subject: [project @ 2000-12-13 11:50:30 by simonmar]
X-Git-Tag: Approximately_9120_patches~3107
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ffa2ee4d647cd2288f5699a33764604749e09c3b;p=ghc-hetmet.git

[project @ 2000-12-13 11:50:30 by simonmar]
Fix a broken regexp
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 8e03615..e3b0ecb 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -1265,8 +1265,7 @@ sub print_doctored {
     #   jmp  *<bad-reg>
     #
 
-# Because of Perl bug, needed separate cases for eax, ebx, ecx, edx in the past
-    s/^\tmovl \$${T_US}(.*),(\%e[abcd]x)\n\tjmp \*$2/\tjmp $T_US$1/g;
+    s/^\tmovl\s+\$${T_US}(.*),(\%e[abcd]x)\n\tjmp\s+\*\2/\tjmp $T_US$1/g;
 
     if ($StolenX86Regs <= 2 ) { # YURGH! spurious uses of esi?
 	s/^\tmovl\s+(.*),\s*\%esi\n\tjmp\s+\*%esi\n/\tmovl $1,\%eax\n\tjmp \*\%eax\n/g;