1 files changed, 0 insertions, 101 deletions
diff --git a/src/build/trace/trace_parse b/src/build/trace/trace_parse
deleted file mode 100755
index b36dcb68f..000000000
--- a/src/build/trace/trace_parse
+++ /dev/null
@@ -1,101 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-my $buf;
-
-my $memory_file = shift;
-my $syms_file = "./img/hbicore.syms";
-my $search_path = "./obj/";
-
-# Print header.
-printf "-------------------------------------------------------------------------------\n";
-printf "%8s %6s %5s %8s %4s %s\n",
-    "Sec", "Usec",
-    "PID", "Comp", "Line",
-    "Entry Data";
-printf "-------------------------------------------------------------------------------\n";
-
-
-
-open MEMORY, $memory_file || die "Cannot open $memory_file";
-binmode MEMORY;
-
-# Find pointer for trace buffer instance.
-my $first_page = hex ((split ",",`grep ",Singleton<TraceBuffer>::instance()::instance" $syms_file`)[1]);
-
-seek MEMORY, $first_page, 0;
-read MEMORY, $buf, 8;
-$first_page = unpack "Q>1", $buf;
-
-# Iterate over all the trace pages.
-while (0 != $first_page)
-{
-    printf "Buffer Page: 0x%08x - ", $first_page;
-    
-    # Read page size (in bytes)
-    seek MEMORY, $first_page + 8, 0;
-    read MEMORY, $buf, 8;
-    my $page_size = unpack "Q>1", $buf;
-    if ($page_size > 4096) { $page_size = 4096; }
-    printf "%d bytes\n", $page_size;
-
-    while ($page_size)
-    {
-        read MEMORY, $buf, 32;
-        my ($comp, $tid, $len, $hash, $timestamp, $line, $unused) =
-            unpack "Q>1 S>1 S>1 L>1 Q>1 L>1 L>1", $buf;
-
-        if (0 == $hash)
-        {
-            $page_size = 0;
-        }
-        else
-        {
-            my $hash_string = 
-                `find $search_path -name "*.hash" | xargs grep $hash`;
-            chomp $hash_string;
-            my ($unused, $format, $file) = split /\|\|/, $hash_string;
-            $page_size -= 32;
-            
-            # Read extra words.
-            my @extra_words = ();
-            while ($len)
-            {
-                read MEMORY, $buf, 8;
-                my $data = unpack "Q>1", $buf;
-                $len -= 8;
-                $page_size -= 8;
-
-                push @extra_words, $data;
-            }
-
-            # Read component string.
-            if (0 != $comp)
-            {
-                my $loc = tell MEMORY;
-                seek MEMORY, $comp, 0;
-                $/ = "\0";
-                $comp = <MEMORY>;
-                seek MEMORY, $loc, 0;
-            }
-
-            # Calculate time in seconds.
-            my $timesec = int($timestamp / 512000000);
-            my $timeusec = int(($timestamp - ($timesec * 512000000)) / 512);
-
-            printf "%08d.%06d|%5d|%8s|%4d|$format\n", 
-                $timesec, $timeusec,
-                $tid,
-                $comp,
-                $line,
-                @extra_words;
-        }
-    }
-
-    # Find pointer to next page.
-    seek MEMORY, $first_page, 0;
-    read MEMORY, $buf, 8;
-    $first_page = unpack "Q>1", $buf;
-}
-
-close MEMORY;