piwalker/dolphin
1
0
Fork 0
mirror of https://github.com/dolphin-emu/dolphin.git synced 2025-07-23 22:29:39 -06:00
Code Issues Packages Projects Releases Wiki Activity

createtest fixes and compile fixes for linux

Browse Source 
git-svn-id: https://dolphin-emu.googlecode.com/svn/trunk@3482 8ced0084-cf51-0410-be5f-012b33b47a6e
This commit is contained in:
nakeee
2009-06-17 21:44:03 +00:00
parent ff83f9eb71
commit 697ce7b1ab
11 changed files with 59 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Source/DSPSpy/util/createtest.pl
View File

@ -57,7 +57,10 @@ usage() if (! defined $input);
my $xtest = XMLin($input);
my $type = $xtest->{'type'};
foreach my $cmd (split(/,/, $cmds)) {
my @cmdList = split(/,/, $cmds);
for(my $i = 0;$i < scalar(@cmdList);$i++) {
my $cmd = $cmdList[$i];
my $name = parseString($xtest->{'name'}, $cmd);
$name =~ s/ /_/g;
my $desc = parseString($xtest->{'description'}, $cmd);
@ -86,9 +89,6 @@ foreach my $cmd (split(/,/, $cmds)) {
open(NAMES, ">$name.lst");
}
# print NAMES "; $name\n";
# print NAMES "; $desc\n";
my $numLines = POSIX::ceil(0xFFFF / $ucodes);
for(my $j = 0; $j < $numLines; $j++) {
open(OUTPUT, ">$name$j.tst");
@ -98,7 +98,7 @@ foreach my $cmd (split(/,/, $cmds)) {
print NAMES "$name$j.tst";
# Don't end with a newline
if ($j < $numLines - 1) {
if ($j < $numLines - 1 || ($merge && $i != scalar(@cmdList)-1)) {
print NAMES "\n";
}
}