equal
deleted
inserted
replaced
252 |
252 |
253 my $sourcefile; |
253 my $sourcefile; |
254 my $sourceline; |
254 my $sourceline; |
255 my ($line); |
255 my ($line); |
256 my %romfiles; |
256 my %romfiles; |
|
257 my %ibyfiles; # record the iby file for each ROM file |
257 |
258 |
258 # To handle BINARY_SELECTION_ORDER macro. |
259 # To handle BINARY_SELECTION_ORDER macro. |
259 my $firstDIR; |
260 my $firstDIR; |
260 my $binarySelectionOrderFlag = 0; |
261 my $binarySelectionOrderFlag = 0; |
261 |
262 |
3638 # Return the line as it is for non-MustBeSysBin 'alias'es. |
3639 # Return the line as it is for non-MustBeSysBin 'alias'es. |
3639 return $line; |
3640 return $line; |
3640 } |
3641 } |
3641 } |
3642 } |
3642 $romfiles{$romfile} = $variant.$pcfile; |
3643 $romfiles{$romfile} = $variant.$pcfile; |
|
3644 $ibyfiles{$romfile} = $sourcefile; |
3643 return "$type$variant=$pcfile \t\"$romfile\"$tail\n"; |
3645 return "$type$variant=$pcfile \t\"$romfile\"$tail\n"; |
3644 } |
3646 } |
3645 |
3647 |
3646 my @hidearray; |
3648 my @hidearray; |
3647 |
3649 |
4014 $prevdir = $dir; |
4016 $prevdir = $dir; |
4015 print DIRFILE "\n"; |
4017 print DIRFILE "\n"; |
4016 } |
4018 } |
4017 |
4019 |
4018 my @sources = split /\n/,$romfiles{$file}; |
4020 my @sources = split /\n/,$romfiles{$file}; |
4019 printf DIRFILE "%-40s\t%s\n", $file, shift @sources; |
4021 my @ibyfiles = split /\n/,$ibyfiles{$file}; |
|
4022 printf DIRFILE "%-40s\t%s\t%s\n", $file, shift @sources, shift @ibyfiles; |
4020 while (@sources) |
4023 while (@sources) |
4021 { |
4024 { |
4022 printf DIRFILE "%39s+\t%s\n", "", shift @sources; |
4025 printf DIRFILE "%39s+\t%s\t%s\n", "", shift @sources, shift @ibyfiles; |
4023 } |
4026 } |
4024 } |
4027 } |
4025 close DIRFILE; |
4028 close DIRFILE; |
4026 } |
4029 } |
4027 } |
4030 } |