gen_coalescing.pl

来自「ICS 课程的Lab7」· PL 代码 · 共 36 行

#!/usr/bin/perl

$out_filename = "coalescing.rep";
$blk_size = 4095;
$num_iters = 2400;

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

# Calculate misc parameters
$blk_size2 = 2*$blk_size;
$suggested_heap_size = 2*$blk_size*$num_iters + 100;
$num_blocks = 3*$num_iters;
$num_ops = 6*$num_iters;

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

for ($i = 0;  $i < $num_iters; $i += 1) {
    $blk1 = 3*$i;
    $blk2 = $blk1 + 1;
    $blk3 = $blk1 + 2;

    print OUTFILE "a $blk1 $blk_size\n";
    print OUTFILE "a $blk2 $blk_size\n";
    print OUTFILE "f $blk1\n";
    print OUTFILE "f $blk2\n";
    print OUTFILE "a $blk3 $blk_size2\n";
    print OUTFILE "f $blk3\n";
}

close OUTFILE;