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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [gdb/] [testsuite/] [gdb.base/] [hashline1.exp] - Blame information for rev 842

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 227 jeremybenn
# Copyright 2008, 2009, 2010 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
# This file is part of the gdb testsuite.
17
 
18
# Test loading of line number information with absolute path in #line, bug 2360.
19
 
20
if $tracelevel then {
21
    strace $tracelevel
22
}
23
 
24
set prms_id 2360
25
set bug_id 0
26
 
27
# srcfile is in objdir because we need to machine generate it in order
28
# to get the correct path in the #line directive.
29
 
30
set testfile "hashline1"
31
set srcfile "${testfile}.c"
32
set binfile "${objdir}/${subdir}/${testfile}"
33
 
34
set fd [open ${objdir}/${subdir}/${srcfile} w]
35
puts $fd "#line 2 \"[pwd]/${subdir}/${srcfile}\""
36
puts $fd "int main () { return 0; } /* set breakpoint here */"
37
close $fd
38
 
39
# The choice of path name for the source file is important in order to trigger
40
# the bug.  Using ${objdir}/${subdir}/${srcfile} here won't trigger the bug.
41
if { [gdb_compile "./${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
42
    untested hashline1.exp
43
    return -1
44
}
45
 
46
gdb_exit
47
gdb_start
48
gdb_reinitialize_dir $srcdir/$subdir
49
gdb_load ${binfile}
50
 
51
set bp_location [gdb_get_line_number "set breakpoint here" ${objdir}/${subdir}/${srcfile}]
52
 
53
# Try to set a breakpoint on the specified file location.
54
 
55
gdb_test "break $srcfile:$bp_location" \
56
    "Breakpoint.*at.* file .*$srcfile, line.*" \
57
    "set breakpoint"

powered by: WebSVN 2.1.0

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