From 9aba44b7bb4e200639d73adaa347d8eabd0a1f11 Mon Sep 17 00:00:00 2001
From: Ben Pfaff <blp@cs.stanford.edu>
Date: Thu, 16 Sep 2004 00:53:41 +0000
Subject: [PATCH] backtrace utility

---
 src/utils/backtrace | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 src/utils/backtrace

diff --git a/src/utils/backtrace b/src/utils/backtrace
new file mode 100755
index 0000000..18ff195
--- /dev/null
+++ b/src/utils/backtrace
@@ -0,0 +1,19 @@
+#! /usr/bin/perl
+$a2l = search_path ("i386-elf-addr2line") || search_path ("addr2line");
+$bin = shift @ARGV;
+open (A2L, "$a2l -fe $bin " . join (' ', @ARGV) . "|");
+while ($function = <A2L>) {
+    $line = <A2L>;
+    chomp $function;
+    chomp $line;
+    print "$function ($line)\n";
+}
+   
+sub search_path {
+    my ($target) = @_;
+    for $dir (split (':', $ENV{PATH})) {
+	my ($file = "$dir/$target";
+	return $file if -e $file;
+    }
+    return 0;
+}
-- 
2.30.2