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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [gdb/] [testsuite/] [gdb.base/] [solib-symbol.exp] - Blame information for rev 330

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 330 jeremybenn
# Copyright 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
2
# This program is free software; you can redistribute it and/or modify
3
# it under the terms of the GNU General Public License as published by
4
# the Free Software Foundation; either version 3 of the License, or
5
# (at your option) any later version.
6
#
7
# This program is distributed in the hope that it will be useful,
8
# but WITHOUT ANY WARRANTY; without even the implied warranty of
9
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
10
# GNU General Public License for more details.
11
#
12
# You should have received a copy of the GNU General Public License
13
# along with this program.  If not, see .
14
#
15
# Contributed by Markus Deuling .
16
#
17
 
18
if {[skip_shlib_tests]} {
19
    return 0
20
}
21
 
22
# Library file.
23
set libname "solib-symbol-lib"
24
set srcfile_lib ${srcdir}/${subdir}/${libname}.c
25
set binfile_lib ${objdir}/${subdir}/${libname}.so
26
set lib_flags [list debug ldflags=-Wl,-Bsymbolic]
27
# Binary file.
28
set testfile "solib-symbol-main"
29
set srcfile ${srcdir}/${subdir}/${testfile}.c
30
set binfile ${objdir}/${subdir}/${testfile}
31
set bin_flags [list debug shlib=${binfile_lib}]
32
 
33
if [get_compiler_info ${binfile}] {
34
    return -1
35
}
36
 
37
if { [gdb_compile_shlib ${srcfile_lib} ${binfile_lib} $lib_flags] != ""
38
     || [gdb_compile ${srcfile} ${binfile} executable $bin_flags] != "" } {
39
  untested "Could not compile $binfile_lib or $binfile."
40
  return -1
41
}
42
 
43
gdb_exit
44
gdb_start
45
gdb_reinitialize_dir $srcdir/$subdir
46
gdb_load ${binfile}
47
gdb_load_shlibs $binfile_lib
48
 
49
if ![runto_main] then {
50
  fail "Can't run to main"
51
  return 0
52
}
53
 
54
# Set a breakpoint in the binary.
55
gdb_test "br foo2" \
56
         "Breakpoint.*file.*${srcfile}.*" \
57
         "foo2 in main"
58
 
59
delete_breakpoints
60
 
61
# Break in the library.
62
gdb_test "br foo" \
63
         "Breakpoint.*file.*${srcfile_lib}.*" \
64
         "foo in libmd"
65
 
66
gdb_test "continue" \
67
         "Continuing.*" \
68
         "continue"
69
 
70
# This symbol is now looked up in the ELF library.
71
gdb_test "br foo2" \
72
         "Breakpoint.*file.*${srcfile_lib}.*" \
73
         "foo2 in mdlib"
74
 
75
gdb_exit
76
 
77
return 0
78
 
79
 

powered by: WebSVN 2.1.0

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