"join-dummy", "join-invalid", "join-no",
"priority-preempt", "priority-fifo", "priority-donate-one",
"priority-donate-multiple", "priority-donate-nest",
- #"mlfqs-on", "mlfqs-off"
- )
+ "mlfqs-on", "mlfqs-off")
unless @TESTS > 0;
# Find the directory that contains the grading files.
$details .= "Translation of backtrace:\n";
my (@addrs) = $stack_line[0] =~ /Call stack:((?: 0x[0-9a-f]+)+)/;
- print "addrs: '@addrs'\n";
my ($A2L);
if (`uname -m`
=~ /i.86|pentium.*|[pk][56]|nexgen|viac3|6x86|athlon.*/) {
$A2L = "i386-elf-addr2line";
}
open (A2L, "$A2L -fe output/$test/kernel.o @addrs|");
- while (my $function = <A2L>) {
- my ($line) = <A2L>;
+ for (;;) {
+ my ($function, $line);
+ last unless defined ($function = <A2L>);
+ $line = <A2L>;
chomp $function;
chomp $line;
$details .= " $function ($line)\n";