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.mi/] [mi-stepi.exp] - Blame information for rev 258

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

Line No. Rev Author Line
1 24 jeremybenn
# Copyright 1999, 2000, 2001, 2002, 2004, 2005, 2007, 2008
2
# Free Software Foundation, Inc.
3
 
4
# This program is free software; you can redistribute it and/or modify
5
# it under the terms of the GNU General Public License as published by
6
# the Free Software Foundation; either version 3 of the License, or
7
# (at your option) any later version.
8
#
9
# This program is distributed in the hope that it will be useful,
10
# but WITHOUT ANY WARRANTY; without even the implied warranty of
11
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12
# GNU General Public License for more details.
13
#
14
# You should have received a copy of the GNU General Public License
15
# along with this program.  If not, see .
16
 
17
# Test Machine interface (MI) operations
18
# Verify that, using the MI, we can run a simple program and perform
19
# exec-step-instruction and exec-next-instruction.
20
 
21
# The goal is not to
22
# test gdb functionality, which is done by other tests, but to verify
23
# the correct output response to MI operations.
24
#
25
 
26
load_lib mi-support.exp
27
set MIFLAGS "-i=mi"
28
 
29
gdb_exit
30
if [mi_gdb_start] {
31
    continue
32
}
33
 
34
set testfile "basics"
35
set srcfile ${testfile}.c
36
set binfile ${objdir}/${subdir}/${testfile}
37
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } {
38
     untested mi-stepi.exp
39
     return -1
40
}
41
 
42
proc test_stepi_nexti {} {
43
    global mi_gdb_prompt
44
    global hex fullname_syntax srcfile
45
 
46
    set line_main_head  [gdb_get_line_number "main ("]
47
    set line_main_body  [expr $line_main_head + 2]
48
    set line_main_hello [gdb_get_line_number "Hello, World!"]
49
 
50
    send_gdb "111-exec-step-instruction\n"
51
    gdb_expect {
52
        -re "111\\^running\r\n${mi_gdb_prompt}111\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"main\",args=\\\[\\\],file=\".*basics.c\",fullname=\"${fullname_syntax}${srcfile}\",line=\"(\[0-9\]+)\"\}\r\n$mi_gdb_prompt$" {
53
            set line $expect_out(2,string)
54
            if { $line >= $line_main_body && $line <= $line_main_hello } {
55
                pass "step-instruction at main"
56
            } else {
57
                fail "step-instruction at main"
58
            }
59
        }
60
        timeout {
61
            fail "step-instruction at main (timeout)"
62
        }
63
    }
64
    send_gdb "222-exec-next-instruction\n"
65
    gdb_expect {
66
        -re "222\\^running\r\n${mi_gdb_prompt}222\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"main\",args=\\\[\\\],file=\".*basics.c\",fullname=\"${fullname_syntax}${srcfile}\",line=\"(\[0-9\]+)\"\}\r\n$mi_gdb_prompt$" {
67
            set line $expect_out(2,string)
68
            if { $line >= $line_main_body && $line <= $line_main_hello } {
69
                pass "next-instruction at main"
70
            } else {
71
                fail "next-instruction at main"
72
            }
73
        }
74
        timeout {
75
            fail "next-instruction at main (timeout)"
76
        }
77
    }
78
    send_gdb "333-exec-next-instruction\n"
79
    gdb_expect {
80
        -re "333\\^running\r\n${mi_gdb_prompt}333\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"main\",args=\\\[\\\],file=\".*basics.c\",fullname=\"${fullname_syntax}${srcfile}\",line=\"(\[0-9\]+)\"\}\r\n$mi_gdb_prompt$" {
81
            set line $expect_out(2,string)
82
            if { $line >= $line_main_body && $line <= $line_main_hello } {
83
                pass "next-instruction at main"
84
            } else {
85
                fail "next-instruction at main"
86
            }
87
        }
88
        timeout {
89
            fail "next-instruction at main (timeout)"
90
        }
91
    }
92
}
93
 
94
mi_run_to_main
95
test_stepi_nexti
96
 
97
mi_gdb_exit
98
return 0

powered by: WebSVN 2.1.0

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