You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
1.6 KiB
62 lines
1.6 KiB
#!/usr/bin/perl
|
|
#!/usr/local/bin/perl
|
|
|
|
$out_filename = $argv[0];
|
|
$out_filename = "random.rep" unless $out_filename;
|
|
$num_blocks = $argv[1];
|
|
# $num_blocks = 1200 unless $num_blocks;
|
|
$num_blocks = 2400 unless $num_blocks;
|
|
$max_blk_size = $argv[2];
|
|
$max_blk_size = 32768 unless $max_blk_size;
|
|
|
|
#print "Output file: $out_filename\n";
|
|
#print "Number of blocks: $num_blocks\n";
|
|
#print "Max block size: $max_blk_size\n";
|
|
|
|
# Create trace
|
|
# Make a series of malloc()s
|
|
for ($i = 0; $i < $num_blocks; $i += 1) {
|
|
$size = int(rand $max_blk_size);
|
|
$op = {};
|
|
$op->{type} = "a";
|
|
$op->{seq} = $i;
|
|
$op->{size} = $size;
|
|
$total_block_size += $size;
|
|
push @trace, $op;
|
|
}
|
|
# Insert free()s in proper places
|
|
for ($i = 0; $i < $num_blocks; $i += 1) {
|
|
for ($minval = $i; $minval < $num_blocks + $i; $minval += 1) {
|
|
if (($trace[$minval]->{type} eq "a") && ($trace[$minval]->{seq} == $i)) {
|
|
last;
|
|
}
|
|
}
|
|
$pos = int(rand($num_blocks + $i - $minval - 1) + $minval + 1);
|
|
$op = {};
|
|
$op->{type} = "f";
|
|
$op->{seq} = $i;
|
|
splice @trace, $pos, 0, $op;
|
|
}
|
|
|
|
# Open output file
|
|
open OUTFILE, ">$out_filename" or die "Cannot create $out_filename\n";
|
|
|
|
# Calculate misc parameters
|
|
$suggested_heap_size = $total_block_size + 100;
|
|
$num_ops = 2*$num_blocks;
|
|
|
|
print OUTFILE "$suggested_heap_size\n";
|
|
print OUTFILE "$num_blocks\n";
|
|
print OUTFILE "$num_ops\n";
|
|
print OUTFILE "1\n";
|
|
|
|
for ($i = 0; $i < 2*$num_blocks; $i += 1) {
|
|
if ($trace[$i]->{type} eq "a") {
|
|
print OUTFILE "$trace[$i]->{type} $trace[$i]->{seq} $trace[$i]->{size}\n";
|
|
} else {
|
|
print OUTFILE "$trace[$i]->{type} $trace[$i]->{seq}\n";
|
|
}
|
|
}
|
|
|
|
close OUTFILE;
|
|
|