Changeset 20290


Ignore:
Timestamp:
2010-03-18T22:10:56+01:00 (8 years ago)
Author:
jow
Message:

[scripts] remote-gdb:

  • use sysroot instead of solib search paths
  • don't query arch if there's only one choice
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/scripts/remote-gdb

    r19850 r20290  
    3434                } 
    3535 
    36                 # Query arch 
    37                 do { 
    38                         print("Target? > "); 
    39                         chomp($tid = <STDIN>); 
    40                 } while( !defined($tid) || $tid !~ /^\d+$/ || $tid < 1 || $tid > @arches ); 
     36                if( @arches > 1 ) 
     37                { 
     38                        # Query arch 
     39                        do { 
     40                                print("Target? > "); 
     41                                chomp($tid = <STDIN>); 
     42                        } while( !defined($tid) || $tid !~ /^\d+$/ || $tid < 1 || $tid > @arches ); 
    4143 
    42                 ($arch, $libc) = @{$arches[$tid-1]}; 
     44                        ($arch, $libc) = @{$arches[$tid-1]}; 
     45                } 
     46                else 
     47                { 
     48                        ($arch, $libc) = @{$arches[0]}; 
     49                } 
    4350        } 
    4451 
     
    4855        my ($gdb) = glob("$Bin/../build_dir/toolchain-${arch}_*_${libc}/gdb-*/gdb/gdb"); 
    4956 
    50         if( -x $gdb ) 
     57        if( defined($gdb) && -x $gdb ) 
    5158        { 
    5259                my ( $fh, $fp ) = tempfile(); 
    5360 
    54                 # Find library paths 
    55                 my $libdirs = join ':', ( 
    56                         glob("$Bin/../staging_dir/target-${arch}_${libc}/root-*/{,usr/}lib/"), 
    57                         glob("$Bin/../staging_dir/target-${arch}_${libc}/{,usr/}lib/"), 
    58                         glob("$Bin/../staging_dir/toolchain-${arch}_*_${libc}/lib/") 
    59                 ); 
     61                # Find sysroot 
     62                my ($sysroot) = glob("$Bin/../staging_dir/target-${arch}_${libc}/root-*/"); 
    6063 
    61                 print $fh "set solib-search-path $libdirs\n"; 
     64                print $fh "set sysroot $sysroot\n" if $sysroot; 
    6265                print $fh "target remote $ARGV[0]\n"; 
    6366 
Note: See TracChangeset for help on using the changeset viewer.