X-Git-Url: http://v3vee.org/palacios/gitweb/gitweb.cgi?p=palacios.git;a=blobdiff_plain;f=misc%2Ftest_vm%2Fscripts%2Ffindaddr;fp=misc%2Ftest_vm%2Fscripts%2Ffindaddr;h=0000000000000000000000000000000000000000;hp=7b9b877288371d8aafeeda0f8bac9a2caf03d547;hb=a70930549d1b741704dd7af4e6bb0e89f6f8a519;hpb=afb634a80f946634454a5d067a92aa600227bd93

diff --git a/misc/test_vm/scripts/findaddr b/misc/test_vm/scripts/findaddr
deleted file mode 100755
index 7b9b877..0000000
--- a/misc/test_vm/scripts/findaddr
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /usr/bin/perl
-
-# Find the address of a symbol in the storage map.
-
-use strict qw(refs vars);
-use FileHandle;
-
-if ( scalar(@ARGV) != 2 ) {
-    print "Usage: findaddr <storage map> <symbol name>\n";
-    exit 1;
-}
-
-my $storage = shift @ARGV;
-my $symbol = shift @ARGV;
-
-my $fh = new FileHandle("<$storage");
-(defined $fh) || die "Couldn't open storage map: $!\n";
-
-while ( <$fh> ) {
-    if ( /^\s*(0x([0-9]|[a-f]|[A-F])+)\s+\Q$symbol\E\s*$/ ) {
-	print $1, "\n";
-	last;
-    }
-}
-
-$fh->close();