diff options
| author | Ralf Baechle <ralf@linux-mips.org> | 1995-11-14 08:00:00 +0000 |
|---|---|---|
| committer | <ralf@linux-mips.org> | 1995-11-14 08:00:00 +0000 |
| commit | e7c2a72e2680827d6a733931273a93461c0d8d1b (patch) | |
| tree | c9abeda78ef7504062bb2e816bcf3e3c9d680112 /drivers/scsi/script_asm.pl | |
| parent | ec6044459060a8c9ce7f64405c465d141898548c (diff) | |
Import of Linux/MIPS 1.3.0
Diffstat (limited to 'drivers/scsi/script_asm.pl')
| -rw-r--r-- | drivers/scsi/script_asm.pl | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/drivers/scsi/script_asm.pl b/drivers/scsi/script_asm.pl index 37c120a55..f1e739d98 100644 --- a/drivers/scsi/script_asm.pl +++ b/drivers/scsi/script_asm.pl @@ -280,11 +280,11 @@ sub parse_conditional { $conditional = $1; print STDERR "$0 : parsed ATN\n" if ($debug); } elsif ($conditional =~ /^($phase)\s*(.*)/i) { - $1 = "\U$1\E"; - $p = $scsi_phases{$1}; + $phase_index = "\U$1\E"; + $p = $scsi_phases{$phase_index}; $code[$address] |= $p | 0x00_02_00_00; $conditional = $2; - print STDERR "$0 : parsed phase $1\n" if ($debug); + print STDERR "$0 : parsed phase $phase_index\n" if ($debug); } else { $other = ''; $need_data = 1; @@ -378,16 +378,17 @@ while (<STDIN>) { $rest = $2; foreach $rest (split (/\s*,\s*/, $rest)) { if ($rest =~ /^($identifier)\s*=\s*($constant)\s*$/) { - if ($symbol_values{$1} eq undef) { - $symbol_values{$1} = eval $2; - delete $forward{$1}; + local ($id, $cnst) = ($1, $2); + if ($symbol_values{$id} eq undef) { + $symbol_values{$id} = eval $cnst; + delete $forward{$id}; if ($is_absolute =~ /ABSOLUTE/i) { - push (@absolute , $1); + push (@absolute , $id); } else { - push (@relative, $1); + push (@relative, $id); } } else { - die "$0 : redefinition of symbol $1 in line $lineno : $_\n"; + die "$0 : redefinition of symbol $id in line $lineno : $_\n"; } } else { die |