projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5053fd6
)
[project @ 1999-03-01 15:17:43 by simonm]
author
simonm
<unknown>
Mon, 1 Mar 1999 15:17:43 +0000
(15:17 +0000)
committer
simonm
<unknown>
Mon, 1 Mar 1999 15:17:43 +0000
(15:17 +0000)
Bring in rev. 1.22.2.1 - Don't apply -monly-n-reg patches to _regBlah
functions (profiling cost-centre register things)
ghc/driver/ghc-asm.lprl
patch
|
blob
|
history
diff --git
a/ghc/driver/ghc-asm.lprl
b/ghc/driver/ghc-asm.lprl
index
6d49219
..
e640f42
100644
(file)
--- a/
ghc/driver/ghc-asm.lprl
+++ b/
ghc/driver/ghc-asm.lprl
@@
-1154,7
+1154,8
@@
sub print_doctored {
local($_, $need_fallthru_patch) = @_;
if ( $TargetPlatform !~ /^i386-/
- || ! /^\t[a-z]/ ) { # no instructions in here, apparently
+ || ! /^\t[a-z]/ # no instructions in here, apparently
+ || /^${T_US}_reg[A-Za-z0-9_]+:/) {
print OUTASM $_;
return;
}