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.objc/] [objcdecode.exp] - Blame information for rev 157

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
# Copyright 2003, 2007, 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
# This file tests decoding of Objective-C symbols
17
 
18
# This file was written by Adam Fedor (fedor@gnu.org)
19
 
20
if $tracelevel then {
21
        strace $tracelevel
22
}
23
 
24
set testfile "objcdecode"
25
set srcfile ${testfile}.m
26
set binfile ${objdir}/${subdir}/${testfile}
27
 
28
#
29
# Objective-C program compilation isn't standard. We need to figure out
30
# which libraries to link in. Most of the time it uses pthread
31
#
32
if {[gdb_compile_objc "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } {
33
  return -1
34
}
35
 
36
proc do_objc_tests {} {
37
    global prms_id
38
    global bug_id
39
    global subdir
40
    global objdir
41
    global srcdir
42
    global binfile
43
    global gdb_prompt
44
 
45
    set prms_id 0
46
    set bug_id 0
47
 
48
    # Start with a fresh gdb.
49
 
50
    gdb_exit
51
    gdb_start
52
    gdb_reinitialize_dir $srcdir/$subdir
53
    gdb_load $binfile
54
 
55
}
56
 
57
do_objc_tests
58
 
59
#
60
# Break on multiply defined method (PR objc/1236)
61
#
62
set name "break on multiply defined method"
63
gdb_test_multiple "break multipleDef" $name \
64
{
65
    -re "\\\[0\\\] cancel\r\n\\\[1\\\] all\r\n\\\[2\\\] -.Decode multipleDef. at .*\r\n\\\[3\\\] multipleDef at .*\r\n> $" {
66
        send_gdb "3\n"
67
        exp_continue
68
    }
69
    -re "Breakpoint \[0-9\]+ at 0x\[0-9a-f\]+: file .*\r\n$gdb_prompt $" { pass $name }
70
    -re ".*$gdb_prompt $"   { kfail "gdb/1236" $name }
71
}
72
 
73
set name "continue after break on multiply defined symbol"
74
gdb_run_cmd
75
gdb_test_multiple "" $name \
76
{
77
    -re "Breakpoint \[0-9\]+, multipleDef \\\(\\\) at .*\r\n$gdb_prompt $" {
78
        pass $name
79
    }
80
    -re "\\\[0\\\] cancel\r\n\\\[1\\\] all\r\n\\\[2\\\] -.Decode multipleDef. at .*\r\n\\\[3\\\] multipleDef at .*\r\n> $" {
81
        send_gdb "0\n"
82
        kfail "gdb/1238" $name
83
        # gdb is in a bad state here.
84
        # It would be difficult to do any more tests after this.
85
    }
86
}

powered by: WebSVN 2.1.0

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