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 

   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;

  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};

  4020 			while (@sources)

  4023 			while (@sources)

  4021 			{

  4024 			{

  4023 			}

  4026 			}

  4024 		}

  4027 		}

  4025 		close DIRFILE;

  4028 		close DIRFILE;

  4026 	}

  4029 	}

  4027 }

  4030 }