projects
/
openwrt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
lantiq: BT Home Hub 2B support - jedec probe
[openwrt.git]
/
scripts
/
remote-gdb
diff --git
a/scripts/remote-gdb
b/scripts/remote-gdb
index aad23e3246ad6feb441c9ecbb593f36899f7a1cb..380a22511b6fe1a37b42f6bfeb7381c66f6847e2 100755
(executable)
--- a/
scripts/remote-gdb
+++ b/
scripts/remote-gdb
@@
-6,7
+6,7
@@
use FindBin '$Bin';
use File::Temp 'tempfile';
@ARGV == 2 || do {
use File::Temp 'tempfile';
@ARGV == 2 || do {
- die "Usage: $0 <host:port> <executable>\n";
+ die "Usage: $0 <
corefile|
host:port> <executable>\n";
exit 1;
};
exit 1;
};
@@
-14,7
+14,7
@@
if( opendir SD, "$Bin/../staging_dir" )
{
my ( $tid, $arch, $libc, @arches );
{
my ( $tid, $arch, $libc, @arches );
- if( $ARGV[1] =~ m!\btarget-(.+?)_(
[^_]+libc[^_
/]+)\b!i )
+ if( $ARGV[1] =~ m!\btarget-(.+?)_(
([^_]+libc|musl)[^
/]+)\b!i )
{
print("Using target $1 ($2)\n");
($arch, $libc) = ($1, $2);
{
print("Using target $1 ($2)\n");
($arch, $libc) = ($1, $2);
@@
-26,7
+26,7
@@
if( opendir SD, "$Bin/../staging_dir" )
while( defined( my $e = readdir SD ) )
{
while( defined( my $e = readdir SD ) )
{
- if( -d "$Bin/../staging_dir/$e" && $e =~ /^target-(.+?)_(
[^_]+libc[^_]
+)/i )
+ if( -d "$Bin/../staging_dir/$e" && $e =~ /^target-(.+?)_(
([^_]+.libc|musl)
+)/i )
{
push @arches, [ $1, $2 ];
printf(" %2d) %s (%s)\n", @arches + 0, $1, $2);
{
push @arches, [ $1, $2 ];
printf(" %2d) %s (%s)\n", @arches + 0, $1, $2);
@@
-52,8
+52,7
@@
if( opendir SD, "$Bin/../staging_dir" )
closedir SD;
# Find gdb
closedir SD;
# Find gdb
- my ($gdb) = glob("$Bin/../staging_dir/toolchain-${arch}_*_${libc}/bin/*-gdb");
-
+ my ($gdb) = glob("$Bin/../staging_dir/toolchain-${arch}_*_${libc}*/bin/*-gdb");
if( defined($gdb) && -x $gdb )
{
my ( $fh, $fp ) = tempfile();
if( defined($gdb) && -x $gdb )
{
my ( $fh, $fp ) = tempfile();
@@
-62,7
+61,9
@@
if( opendir SD, "$Bin/../staging_dir" )
my ($sysroot) = glob("$Bin/../staging_dir/target-${arch}_${libc}/root-*/");
print $fh "set sysroot $sysroot\n" if $sysroot;
my ($sysroot) = glob("$Bin/../staging_dir/target-${arch}_${libc}/root-*/");
print $fh "set sysroot $sysroot\n" if $sysroot;
- print $fh "target remote $ARGV[0]\n";
+ my $cmd = "target remote";
+ -f $ARGV[0] and $cmd = "core-file";
+ print $fh "$cmd $ARGV[0]\n";
my $file = -f "$sysroot/$ARGV[1]" ? "$sysroot/$ARGV[1]" : $ARGV[1];
system($gdb, '-x', $fp, $file);
my $file = -f "$sysroot/$ARGV[1]" ? "$sysroot/$ARGV[1]" : $ARGV[1];
system($gdb, '-x', $fp, $file);