projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
6581514
)
[project @ 2000-12-13 11:50:30 by simonmar]
author
simonmar
<unknown>
Wed, 13 Dec 2000 11:50:30 +0000
(11:50 +0000)
committer
simonmar
<unknown>
Wed, 13 Dec 2000 11:50:30 +0000
(11:50 +0000)
Fix a broken regexp
ghc/driver/mangler/ghc-asm.lprl
patch
|
blob
|
history
diff --git
a/ghc/driver/mangler/ghc-asm.lprl
b/ghc/driver/mangler/ghc-asm.lprl
index
8e03615
..
e3b0ecb
100644
(file)
--- 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;