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.base/] [step-bt.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 2006, 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
# The intent of this testcase it to verify that various aliases and
17
# shortcuts of the "delete" command never stop working.
18
 
19
if $tracelevel then {
20
    strace $tracelevel
21
}
22
 
23
set prms_id 0
24
set bug_id 0
25
 
26
set testfile step-bt
27
set srcfile ${testfile}.c
28
set binfile ${objdir}/${subdir}/${testfile}
29
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
30
    untested "Couldn't compile test program"
31
    return -1
32
}
33
 
34
# Get things started.
35
 
36
gdb_exit
37
gdb_start
38
gdb_reinitialize_dir $srcdir/$subdir
39
gdb_load ${binfile}
40
 
41
gdb_test "break *hello" \
42
         "Breakpoint.*at.* file .*$srcfile, line .*" \
43
         "breakpoint at first instruction of hello()"
44
 
45
gdb_run_cmd
46
gdb_expect {
47
    -re ".*Breakpoint.* hello .* at .*$srcfile:.*$gdb_prompt $"  {
48
        pass "run to hello()"
49
    }
50
    -re ".*$gdb_prompt $" {
51
        fail "run to hello()"
52
        return -1
53
    }
54
    timeout {
55
        fail "run to hello() (timeout)"
56
        return -1
57
    }
58
}
59
 
60
gdb_test "stepi" \
61
         "" \
62
         "step first instruction"
63
 
64
gdb_test "bt" \
65
         "#0 +(0x\[0-9a-z\]+ in )?hello .*#1 +(0x\[0-9a-z\]* in )?main.*" \
66
         "backtrace after first instruction step"
67
 
68
gdb_test "stepi" \
69
         "" \
70
         "step second instruction"
71
 
72
gdb_test "bt" \
73
         "#0 +(0x\[0-9a-z\]+ in )?hello .*#1 +(0x\[0-9a-z\]* in )?main.*" \
74
         "backtrace after second instruction step"
75
 

powered by: WebSVN 2.1.0

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