dspspy createtest: don't end list file with a newline

git-svn-id: https://dolphin-emu.googlecode.com/svn/trunk@3471 8ced0084-cf51-0410-be5f-012b33b47a6e
This commit is contained in:
Shawn Hoffman 2009-06-16 20:25:03 +00:00
parent 81f6d431dc
commit 212c406d0b
1 changed files with 8 additions and 2 deletions

View File

@ -89,12 +89,18 @@ foreach my $cmd (split(/,/, $cmds)) {
# print NAMES "; $name\n"; # print NAMES "; $name\n";
# print NAMES "; $desc\n"; # print NAMES "; $desc\n";
for(my $j = 0; $j < POSIX::ceil(0xFFFF / $ucodes); $j++) { my $numLines = POSIX::ceil(0xFFFF / $ucodes);
for(my $j = 0; $j < $numLines; $j++) {
open(OUTPUT, ">$name$j.tst"); open(OUTPUT, ">$name$j.tst");
print OUTPUT generateSRFull($header, $body, $j*$ucodes, print OUTPUT generateSRFull($header, $body, $j*$ucodes,
($j+1)*$ucodes-1); ($j+1)*$ucodes-1);
close(OUTPUT); close(OUTPUT);
print NAMES "$name$j.tst\n"; print NAMES "$name$j.tst";
# Don't end with a newline
if ($j < $numLines - 1) {
print NAMES "\n";
}
} }
close(NAMES); close(NAMES);