diff options
| author | simonm <unknown> | 1999-03-01 15:17:43 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1999-03-01 15:17:43 +0000 |
| commit | 60ec01cc2792b7f6cd0225b961ac77e362384f1f (patch) | |
| tree | 69e59ad1a4dbe21c10ed5e6970e0697fd7f31530 /ghc | |
| parent | 5053fd6d0b577cd279aac53a9c2cc585381f4d06 (diff) | |
| download | haskell-60ec01cc2792b7f6cd0225b961ac77e362384f1f.tar.gz | |
[project @ 1999-03-01 15:17:43 by simonm]
Bring in rev. 1.22.2.1 - Don't apply -monly-n-reg patches to _regBlah
functions (profiling cost-centre register things)
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/driver/ghc-asm.lprl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/driver/ghc-asm.lprl b/ghc/driver/ghc-asm.lprl index 6d492199bd..e640f423dd 100644 --- 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; } |