mirror of https://github.com/zeldaret/tmc.git
fix calcrom to accept strings.s
This commit is contained in:
parent
001bf63c61
commit
0cb4a64f67
|
@ -58,11 +58,17 @@ while (my $line = <$file>)
|
||||||
}
|
}
|
||||||
elsif ($dir eq 'data')
|
elsif ($dir eq 'data')
|
||||||
{
|
{
|
||||||
|
if ($basename =~ /(strings)/)
|
||||||
|
{
|
||||||
|
$srcdata += $size;
|
||||||
|
}
|
||||||
|
else {
|
||||||
$data += $size;
|
$data += $size;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|
||||||
my @sorted = sort { $a->[1] <=> $b->[1] } @pairs;
|
my @sorted = sort { $a->[1] <=> $b->[1] } @pairs;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue