OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.ada/] [sym_print_name.exp] - Blame information for rev 24

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
# Copyright 2008 Free Software Foundation, Inc.
2
#
3
# This program is free software; you can redistribute it and/or modify
4
# it under the terms of the GNU General Public License as published by
5
# the Free Software Foundation; either version 3 of the License, or
6
# (at your option) any later version.
7
#
8
# This program is distributed in the hope that it will be useful,
9
# but WITHOUT ANY WARRANTY; without even the implied warranty of
10
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11
# GNU General Public License for more details.
12
#
13
# You should have received a copy of the GNU General Public License
14
# along with this program.  If not, see .
15
 
16
if $tracelevel then {
17
    strace $tracelevel
18
}
19
 
20
load_lib "ada.exp"
21
 
22
set testdir "sym_print_name"
23
set testfile "${testdir}/foo"
24
set srcfile ${srcdir}/${subdir}/${testfile}.adb
25
set binfile ${objdir}/${subdir}/${testfile}
26
 
27
file mkdir ${objdir}/${subdir}/${testdir}
28
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
29
  return -1
30
}
31
 
32
# A convenience function that joins all the arguments together,
33
# with a regexp that matches zero-or-more end of lines in between
34
# each argument.  This function is ideal to write the expected output
35
# of a GDB command that generates more than a couple of lines, as
36
# this allows us to write each line as a separate string, which is
37
# easier to read by a human being.
38
 
39
proc multi_line { args } {
40
    return [join $args "\[\r\n\]*"]
41
}
42
 
43
gdb_exit
44
gdb_start
45
gdb_reinitialize_dir $srcdir/$subdir
46
gdb_load ${binfile}
47
 
48
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
49
runto "foo.adb:$bp_location"
50
 
51
set menu [multi_line "Multiple matches for i" \
52
                     "\\\[0\\\] cancel" \
53
                     "\\\[1\\\] pck\\.first\\.i.*" \
54
                     "\\\[2\\\] pck\\.second\\.i.*" \
55
                     "> $" ]
56
 
57
set test_name "multiple matches for symbol i"
58
gdb_test_multiple "print i" "$test_name" \
59
{
60
      -re "$menu" {
61
          pass "$test_name"
62
      }
63
 
64
      default {
65
          fail "$test_name"
66
      }
67
}
68
 
69
# Select the first choice from the multiple-choice menu above.
70
gdb_test "1" \
71
         "48" \
72
         "select first choice from multiple-choice menu"
73
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.