projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1998-08-21 11:03:30 by sof]
[ghc-hetmet.git]
/
ghc
/
driver
/
ghc-split.lprl
diff --git
a/ghc/driver/ghc-split.lprl
b/ghc/driver/ghc-split.lprl
index
8c140cc
..
91a34d2
100644
(file)
--- a/
ghc/driver/ghc-split.lprl
+++ b/
ghc/driver/ghc-split.lprl
@@
-200,7
+200,7
@@
sub process_asm_block_sparc {
$str =~ s/^\.stabs "(ghc\d+\.c)"/.stabs "$ifile_root.hc"/g; # HACK HACK
# remove/record any literal constants defined here
$str =~ s/^\.stabs "(ghc\d+\.c)"/.stabs "$ifile_root.hc"/g; # HACK HACK
# remove/record any literal constants defined here
- while ( $str =~ /(\t\.align .\n\.?(LC\d+):\n(\t\.asci[iz].*\n)+)/ ) {
+ while ( $str =~ /(\t\.align .\n\.?(L?LC\d+):\n(\t\.asci[iz].*\n)+)/ ) {
local($label) = $2;
local($body) = $1;
local($label) = $2;
local($body) = $1;
@@
-209,7
+209,7
@@
sub process_asm_block_sparc {
$LocalConstant{$label} = $body;
$LocalConstant{$label} = $body;
- $str =~ s/\t\.align .\n\.?LC\d+:\n(\t\.asci[iz].*\n)+//;
+ $str =~ s/\t\.align .\n\.?LL?C\d+:\n(\t\.asci[iz].*\n)+//;
}
# inject definitions for any local constants now used herein
}
# inject definitions for any local constants now used herein