From 475d6f108e093a5a738c67f1a4a2ea4b886e0959 Mon Sep 17 00:00:00 2001 From: Jo-Philipp Wich Date: Sun, 25 Oct 2009 17:45:57 +0000 Subject: [PATCH] [scripts] add "remote-gdb", a helper script to connect the local host gdb with a running gdbserver on the target SVN-Revision: 18153 --- scripts/remote-gdb | 78 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 78 insertions(+) create mode 100755 scripts/remote-gdb 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 \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 = ); + } 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); +} -- 2.30.2