From ffa2ee4d647cd2288f5699a33764604749e09c3b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 13 Dec 2000 11:50:30 +0000
Subject: [PATCH] [project @ 2000-12-13 11:50:30 by simonmar] Fix a broken
 regexp

---
 ghc/driver/mangler/ghc-asm.lprl |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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;
-- 
1.7.10.4