Add NON-WORKING gzip DEFLATE support

This commit is contained in:
CrashOveride95
2021-01-03 13:09:20 -05:00
parent 08f47d350b
commit fc0aabe98e
7 changed files with 898 additions and 11 deletions

18
tools/romalign Executable file
View File

@@ -0,0 +1,18 @@
#!/usr/bin/perl
die "Usage: romalign file align\n" unless $#ARGV >= 1;
$in = $ARGV[0];
$align = $ARGV[1];
@s = stat($in);
$insize = $s[7];
open(OUT, ">> $in") or die "Can't open $in for output: $!";
$frag = $insize % $align;
$fill = pack("C", 0);
for($i = 0; $i < ($align-$frag)%$align; $i++) {
syswrite(OUT, $fill, 1);
}
close OUT;