X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Futils%2Fbacktrace;h=300df642d4927f733f22795e6411c5d2aef08808;hb=51fe56156dc541c9fa74e0eb72e7cca1ddcec685;hp=18ff195321eb62effb4010dfd9eae8cd24534246;hpb=9aba44b7bb4e200639d73adaa347d8eabd0a1f11;p=pintos-anon

diff --git a/src/utils/backtrace b/src/utils/backtrace
index 18ff195..300df64 100755
--- a/src/utils/backtrace
+++ b/src/utils/backtrace
@@ -6,13 +6,13 @@ while ($function = <A2L>) {
     $line = <A2L>;
     chomp $function;
     chomp $line;
-    print "$function ($line)\n";
+    print shift (@ARGV), ": $function ($line)\n";
 }
    
 sub search_path {
     my ($target) = @_;
     for $dir (split (':', $ENV{PATH})) {
-	my ($file = "$dir/$target";
+	my ($file) = "$dir/$target";
 	return $file if -e $file;
     }
     return 0;