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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [testsuite/] [config/] [udi.exp] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
# Test Framework Driver for GDB driving Universal Debug Interface on 29K
2
#   Copyright 1988, 1990, 1991, 1992, 1993, 1994, 1997 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 2 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, write to the Free Software
16
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17
 
18
# Please email any bugs, comments, and/or additions to this file to:
19
# DejaGnu@cygnus.com
20
 
21
# This file was written by Rob Savoye. (rob@cygnus.com)
22
 
23
load_lib gdb.exp
24
 
25
#
26
# gdb_target_udi
27
# Set gdb to the desired UDI target
28
#
29
proc gdb_target_udi { } {
30
    global gdb_prompt
31
    global verbose
32
    global exit_status
33
 
34
    set targetname [target_info mondfe,name];
35
    # set targets hostname
36
    send_gdb "target udi $targetname\n"
37
    set timeout 60
38
    verbose "Timeout is now $timeout seconds" 2
39
    gdb_expect {
40
        -re "target udi $targetname\[\r\n\]+" {
41
            exp_continue
42
        }
43
        -re "TIP UDI 1.2 Conformant.*$gdb_prompt $"     {
44
            verbose "Set target to $targetname"
45
        }
46
        -re "TIP-ipc WARNING,.*failed:" {
47
            warning "$expect_out(buffer)"
48
        }
49
        -re "TIP-ipc ERROR,.*failed:" {
50
            perror "$expect_out(buffer)"
51
        }
52
        -re "A program is being debugged already.  Kill it\? \(y or n\)" {
53
            send "y\n"
54
            exp_continue
55
        }
56
        timeout {
57
            perror "Couldn't set target for UDI."
58
            cleanup
59
            exit $exit_status
60
        }
61
    }
62
    set timeout 10
63
    verbose "Timeout is now $timeout seconds" 2
64
}
65
 
66
#
67
# gdb_load -- load a file into the debugger.
68
#             return a -1 if anything goes wrong.
69
#
70
 
71
proc gdb_load { arg } {
72
    global verbose
73
    global loadpath
74
    global loadfile
75
    global GDB
76
    global gdb_prompt
77
 
78
    if [gdb_file_cmd $arg] {
79
        return -1
80
    }
81
 
82
    gdb_target_udi
83
}
84
 
85
#
86
# gdb_start -- start GDB running. This assumes that there the
87
#              UDICONF enviroment variable is set.
88
#
89
proc gdb_start { } {
90
    global env;
91
 
92
    set env(UDICONF) [target_info mondfe,udi_soc];
93
    default_gdb_start
94
    verbose "Setting up target, Please wait..."
95
    gdb_target_udi
96
}
97
 
98
#
99
# gdb_exit -- exit gdb
100
#
101
proc gdb_exit { } {
102
    catch default_gdb_exit
103
    set in [open [concat "|ls -F"] r]
104
    while {[gets $in line]>-1} {
105
        if [regexp "=$" $line] then {
106
            set line [string trimright $line "="]
107
            verbose "Removing the $line named socket"
108
            exec rm -f $line
109
        }
110
    }
111
    close $in
112
}

powered by: WebSVN 2.1.0

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