gen_realloc2.pl

ICS 课程的Lab6

#!/usr/bin/perl

$out_filename = "realloc2.rep";
$realloc_size = 4092;
$size_increment = 5;
$malloc_size = 16;
$num_iters = 4800;

# Open output file
open OUTFILE, ">$out_filename" or die "Cannot create $out_filename\n";

# Calculate misc parameters

$suggested_heap_size = $realloc_size+$size_increment*($num_iters-1)+$malloc_size*$num_iters+100;
$num_blocks = $num_iters + 1;
$num_ops = 3 * $num_iters + 1;
$blk = 1;

print OUTFILE "$suggested_heap_size\n"; 
print OUTFILE "$num_blocks\n";
print OUTFILE "$num_ops\n";
print OUTFILE "1\n"; 

print OUTFILE "a 0 $realloc_size\n";
print OUTFILE "a $blk $malloc_size\n";

for ($i = 1;  $i < $num_iters; $i += 1) { 
	$blk += 1;
	
	$realloc_size += $size_increment;
	
	print OUTFILE "r 0 $realloc_size\n";
	print OUTFILE "a $blk $malloc_size\n";
	
	$prevblk = $blk-1;
	print OUTFILE "f $prevblk\n";
}

$finalblk = $blk;
print OUTFILE "f $finalblk\n";
print OUTFILE "f 0";

print OUTFILE 

close OUTFILE;