projects
/
openwrt
/
openwrt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bcm53xx: set Netgear R8000 USB LEDs
[openwrt/openwrt.git]
/
scripts
/
remote-gdb
diff --git
a/scripts/remote-gdb
b/scripts/remote-gdb
index 380a22511b6fe1a37b42f6bfeb7381c66f6847e2..efb321c24376c5f886973f9263ff0d813824e4dc 100755
(executable)
--- a/
scripts/remote-gdb
+++ b/
scripts/remote-gdb
@@
-1,4
+1,4
@@
-#!/usr/bin/perl
+#!/usr/bin/
env
perl
use strict;
use warnings;
use strict;
use warnings;
@@
-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|musl)[^/
]+)\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|musl)
+)/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);
@@
-58,13
+58,18
@@
if( opendir SD, "$Bin/../staging_dir" )
my ( $fh, $fp ) = tempfile();
# Find sysroot
my ( $fh, $fp ) = tempfile();
# Find sysroot
- my ($sysroot) = glob("$Bin/../staging_dir/target-${arch}_${libc}/root-*/");
+ my ($sysroot) = glob("$Bin/../staging_dir/target-${arch}_${libc}
*
/root-*/");
print $fh "set sysroot $sysroot\n" if $sysroot;
print $fh "set sysroot $sysroot\n" if $sysroot;
- my $cmd = "target remote";
+ my $cmd = "target
extended-
remote";
-f $ARGV[0] and $cmd = "core-file";
print $fh "$cmd $ARGV[0]\n";
-f $ARGV[0] and $cmd = "core-file";
print $fh "$cmd $ARGV[0]\n";
+ # History settings
+ print $fh "set history filename $Bin/../tmp/.gdb_history\n";
+ print $fh "set history size 100000000\n";
+ print $fh "set history save on\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);