#!/usr/bin/perl

system "gcc -O2 -o alloc_test alloc_test.c";

my @test_bytes = (4,8,16,32,64,128,256,512,1024,
	'8 16 28 36 12 4 8 64 1024 8 24 12 8 64 16');
my $cnt = 10000000;

my @old_result;
my @new_result;
my $t0, $t1, $e;

foreach $e (@test_bytes) {
	$t0 = (times)[2];
	system "./alloc_test old $cnt $e";
	push @old_result, (times)[2] - $t0;

	$t0 = (times)[2];
	system "./alloc_test new $cnt $e";
	push @new_result, (times)[2] - $t0;
}

print " bytes   : ";
foreach $e (@test_bytes) {
	$e = 'mix' if($e =~ /\d+ \d+/);
	printf("%5s ", $e);
}
print "\n";

print " original: ";
foreach $e (@old_result) { printf("%.3f ", $e); }
print "\n";

print " patched : ";
foreach $e (@new_result) { printf("%.3f ", $e); }
print "\n";