diff options
author | Jo-Philipp Wich <jow@openwrt.org> | 2009-10-25 17:45:57 +0000 |
---|---|---|
committer | Jo-Philipp Wich <jow@openwrt.org> | 2009-10-25 17:45:57 +0000 |
commit | 40d72d7e3574c6abc023a27cc6cd705e3d3137b2 (patch) | |
tree | 8d1c59f41e4e4de416b4a7b5f0fb523b6d5136b8 | |
parent | c9ec1904ac3422d347e30059660afffb0a614c59 (diff) | |
download | master-187ad058-40d72d7e3574c6abc023a27cc6cd705e3d3137b2.tar.gz master-187ad058-40d72d7e3574c6abc023a27cc6cd705e3d3137b2.tar.bz2 master-187ad058-40d72d7e3574c6abc023a27cc6cd705e3d3137b2.zip |
[scripts] add "remote-gdb", a helper script to connect the local host gdb with a running gdbserver on the target
git-svn-id: svn://svn.openwrt.org/openwrt/trunk@18153 3c298f89-4303-0410-b956-a3cf2f4a3e73
-rwxr-xr-x | scripts/remote-gdb | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/scripts/remote-gdb b/scripts/remote-gdb new file mode 100755 index 0000000000..869fa875a0 --- /dev/null +++ b/scripts/remote-gdb @@ -0,0 +1,78 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use FindBin '$Bin'; +use File::Temp 'tempfile'; + +@ARGV == 2 || do { + die "Usage: $0 <host:port> <executable>\n"; + exit 1; +}; + +if( opendir SD, "$Bin/../staging_dir" ) +{ + my ( $tid, $arch, $libc, @arches ); + + if( $ARGV[1] =~ m!\btarget-([^_/]+)_([^_/]+)\b! ) + { + print("Using target $1 ($2)\n"); + ($arch, $libc) = ($1, $2); + } + else + { + # Find arches + print("Choose target:\n"); + + while( defined( my $e = readdir SD ) ) + { + if( -d "$Bin/../staging_dir/$e" && $e =~ /^target-([^_]+)_([^_]+)/ ) + { + push @arches, [ $1, $2 ]; + printf(" %2d) %s (%s)\n", @arches + 0, $1, $2); + } + } + + # Query arch + do { + print("Target? > "); + chomp($tid = <STDIN>); + } while( !defined($tid) || $tid !~ /^\d+$/ || $tid < 1 || $tid > @arches ); + + ($arch, $libc) = @{$arches[$tid-1]}; + } + + closedir SD; + + # Find gdb + my ($gdb) = glob("$Bin/../build_dir/toolchain-${arch}_*_${libc}/gdb-*/gdb/gdb"); + + if( -x $gdb ) + { + my ( $fh, $fp ) = tempfile(); + + # Find library paths + my $libdirs = join ':', ( + glob("$Bin/../staging_dir/target-${arch}_${libc}/{usr/,}lib"), + glob("$Bin/../staging_dir/toolchain-${arch}_*_${libc}/lib") + ); + + print $fh "set solib-search-path $libdirs\n"; + print $fh "target remote $ARGV[0]\n"; + + system($gdb, '-x', $fp, $ARGV[1]); + + close($fh); + unlink($fp); + } + else + { + print("No gdb found! Make sure that CONFIG_GDB is set!\n"); + exit(1); + } +} +else +{ + print("No staging_dir found! You need to compile at least once!\n"); + exit(1); +} |