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:
e850f69
)
comment-out "use vars" in 3 places (see #1739)
author
Simon Marlow
<simonmar@microsoft.com>
Mon, 8 Oct 2007 11:57:40 +0000
(11:57 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Mon, 8 Oct 2007 11:57:40 +0000
(11:57 +0000)
driver/mangler/ghc-asm.lprl
patch
|
blob
|
history
diff --git
a/driver/mangler/ghc-asm.lprl
b/driver/mangler/ghc-asm.lprl
index
d18c032
..
7696155
100644
(file)
--- a/
driver/mangler/ghc-asm.lprl
+++ b/
driver/mangler/ghc-asm.lprl
@@
-1284,7
+1284,7
@@
sub mangle_asm {
# toss all prologue stuff, except for loading gp, and the ..ng address
unless ($c =~ /\.ent.*\n\$.*\.\.ng:/m) {
if (($p, $r) = split(/^\t\.prologue/m, $c)) {
# toss all prologue stuff, except for loading gp, and the ..ng address
unless ($c =~ /\.ent.*\n\$.*\.\.ng:/m) {
if (($p, $r) = split(/^\t\.prologue/m, $c)) {
- use vars '$junk'; # Unused?
+ # use vars '$junk'; # Unused?
if (($keep, $junk) = split(/\.\.ng:/m, $p)) {
$keep =~ s/^\t\.frame.*\n/\t.frame \$30,0,\$26,0\n/m;
$keep =~ s/^\t\.(mask|fmask).*\n//gm;
if (($keep, $junk) = split(/\.\.ng:/m, $p)) {
$keep =~ s/^\t\.frame.*\n/\t.frame \$30,0,\$26,0\n/m;
$keep =~ s/^\t\.(mask|fmask).*\n//gm;
@@
-1861,7
+1861,7
@@
sub print_doctored {
\begin{code}
sub init_FUNNY_THINGS {
\begin{code}
sub init_FUNNY_THINGS {
- use vars '%KNOWN_FUNNY_THING'; # Unused?
+ # use vars '%KNOWN_FUNNY_THING'; # Unused?
%KNOWN_FUNNY_THING = (
# example
# "${T_US}stg_.*{T_POST_LBL}", 1,
%KNOWN_FUNNY_THING = (
# example
# "${T_US}stg_.*{T_POST_LBL}", 1,
@@
-1877,7
+1877,7
@@
right after the table itself. (The code pasting is done elsewhere.)
\begin{code}
sub rev_tbl {
\begin{code}
sub rev_tbl {
- use vars '$discard1'; # Unused?
+ # use vars '$discard1'; # Unused?
local($symb, $tbl, $discard1) = @_;
return ($tbl) if ($TargetPlatform =~ /^ia64-/m);
local($symb, $tbl, $discard1) = @_;
return ($tbl) if ($TargetPlatform =~ /^ia64-/m);