#!/usr/bin/perl

`rm trace.pg`;
`../P3/java/compile l3_test11.l3 -o a.s`;
$foo = `grep "partial" l3_test11.l3.hot_inc.temp`;
while ($foo ne "")
{
	print `cat l3_test11.l3.hot_inc.temp`;
	`../P3/shared/link a.s ../P3/shared/runtime/*.c`;
	`./a.out`;
	`../P3/java/compile l3_test11.l3 -o a.s`;
	$foo = `grep "partial" l3_test11.l3.hot_inc.temp`;
}
print `cat l3_test11.l3.hot_inc.temp`;
print "done\n";
